procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Merge from emacs--devo--0

Browse source 
Patches applied:

 * emacs--devo--0  (patch 545-562)

   - Update from CVS
   - Update from erc--emacs--22
   - Merge from gnus--rel--5.10
   - erc-iswitchb: Temporarily enable iswitchb mode

 * gnus--rel--5.10  (patch 172-176)

   - Merge from emacs--devo--0
   - Update from CVS
   - Update from CVS: lisp/legacy-gnus-agent.el: Add Copyright notice.

Revision: emacs@sv.gnu.org/emacs--unicode--0--patch-156
This commit is contained in:
Miles Bader 2006-12-16 01:29:26 +00:00
commit 4bc5d7668e
459 changed files with 2242 additions and 1843 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lisp/emacs-lisp/cl-macs.el
View file

@ -1,6 +1,7 @@
;;; cl-macs.el --- Common Lisp macros -*-byte-compile-dynamic: t;-*-
;; Copyright (C) 1993, 2003, 2004, 2005, 2006 Free Software Foundation, Inc.
;; Copyright (C) 1993, 2001, 2002, 2003, 2004, 2005, 2006
;; Free Software Foundation, Inc.
;; Author: Dave Gillespie <daveg@synaptics.com>
;; Version: 2.02
@ -2291,10 +2292,15 @@ copier, a `NAME-p' predicate, and setf-able `NAME-SLOT' accessors.
(if (cadr (memq :read-only (cddr desc)))
(list 'error (format "%s is a read-only slot"
accessor))
(list 'cl-struct-setf-expander 'cl-x
(list 'quote name) (list 'quote accessor)
(and pred-check (list 'quote pred-check))
pos)))
;; If cl is loaded only for compilation,
;; the call to cl-struct-setf-expander would
;; cause a warning because it may not be
;; defined at run time. Suppress that warning.
(list 'with-no-warnings
(list 'cl-struct-setf-expander 'cl-x
(list 'quote name) (list 'quote accessor)
(and pred-check (list 'quote pred-check))
pos))))
forms)
(if print-auto
(nconc print-func