mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-01-03 10:31:37 -08:00
Code Issues Projects Releases Wiki Activity

Don't quote lambda expressions with `quote'.

Browse source
This commit is contained in:
Stefan Monnier 2011-05-23 14:57:17 -03:00
parent 782fc81943
commit 4f91a8160f
77 changed files with 466 additions and 493 deletions
Download patch file Download diff file Expand all files Collapse all files

26
lisp/gnus/gnus-cus.el
View file

@ -1034,19 +1034,19 @@ articles in the thread.
(widget-create
'push-button
:notify
'(lambda (&rest ignore)
(let* ((info (assq gnus-agent-cat-name gnus-category-alist))
(widgets category-fields))
(while widgets
(let* ((widget (pop widgets))
(value (condition-case nil (widget-value widget) (error))))
(eval `(setf (,(widget-get widget :accessor) ',info)
',value)))))
(gnus-category-write)
(gnus-kill-buffer (current-buffer))
(when (get-buffer gnus-category-buffer)
(switch-to-buffer (get-buffer gnus-category-buffer))
(gnus-category-list)))
(lambda (&rest ignore)
(let* ((info (assq gnus-agent-cat-name gnus-category-alist))
(widgets category-fields))
(while widgets
(let* ((widget (pop widgets))
(value (condition-case nil (widget-value widget) (error))))
(eval `(setf (,(widget-get widget :accessor) ',info)
',value)))))
(gnus-category-write)
(gnus-kill-buffer (current-buffer))
(when (get-buffer gnus-category-buffer)
(switch-to-buffer (get-buffer gnus-category-buffer))
(gnus-category-list)))
"Done")
(widget-insert
"\n Note: Empty fields default to the customizable global\

3
lisp/gnus/gnus-delay.el
View file

@ -151,8 +151,7 @@ DELAY is a string, giving the length of the time. Possible values are:
(when (gnus-group-entry group)
(gnus-activate-group group)
(add-hook 'message-send-hook
'(lambda ()
(message-remove-header gnus-delay-header)))
(lambda () (message-remove-header gnus-delay-header)))
(setq articles (nndraft-articles))
(while (setq article (pop articles))
(gnus-request-head article group)

10
lisp/gnus/gnus.el
View file

@ -4357,11 +4357,11 @@ current display is used."
(switch-to-buffer gnus-group-buffer)
(funcall gnus-other-frame-function arg)
(add-hook 'gnus-exit-gnus-hook
'(lambda nil
(when (and (frame-live-p gnus-other-frame-object)
(cdr (frame-list)))
(delete-frame gnus-other-frame-object))
(setq gnus-other-frame-object nil)))))))
(lambda nil
(when (and (frame-live-p gnus-other-frame-object)
(cdr (frame-list)))
(delete-frame gnus-other-frame-object))
(setq gnus-other-frame-object nil)))))))
;;;###autoload
(defun gnus (&optional arg dont-connect slave)