diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-04-13 21:30:27 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-04-13 21:30:27 -0400 |
| commit | e192281baae377a8702f3c048fce988d63ccfc1a (patch) | |
| tree | 02e1ef1379960091d084eaf8a1a1871b28f542b2 /lisp | |
| parent | 56dfd3de9c63dbb6325129de8e38c420808146c9 (diff) | |
| download | emacs-e192281baae377a8702f3c048fce988d63ccfc1a.tar.gz emacs-e192281baae377a8702f3c048fce988d63ccfc1a.tar.bz2 emacs-e192281baae377a8702f3c048fce988d63ccfc1a.zip | |
(gnus-group--setup-tool-bar-update): Fix last change
* lisp/gnus/gnus-group.el (gnus-group--setup-tool-bar-update):
cursor-sensor-functions should be a list of functions.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/gnus/gnus-group.el | 2 | ||||
| -rw-r--r-- | lisp/gnus/gnus-uu.el | 7 |
2 files changed, 7 insertions, 2 deletions
diff --git a/lisp/gnus/gnus-group.el b/lisp/gnus/gnus-group.el index 8e8d1752a43..ff839d7f18c 100644 --- a/lisp/gnus/gnus-group.el +++ b/lisp/gnus/gnus-group.el @@ -1625,7 +1625,7 @@ if it is a string, only list groups matching REGEXP." (unless (bound-and-true-p cursor-sensor-mode) (cursor-sensor-mode 1)) (gnus-put-text-property beg end 'cursor-sensor-functions - #'gnus-tool-bar-update)) + '(gnus-tool-bar-update))) (gnus-put-text-property beg end 'point-entered #'gnus-tool-bar-update) (gnus-put-text-property beg end 'point-left diff --git a/lisp/gnus/gnus-uu.el b/lisp/gnus/gnus-uu.el index 55a881c7d18..f5d44959391 100644 --- a/lisp/gnus/gnus-uu.el +++ b/lisp/gnus/gnus-uu.el @@ -875,8 +875,13 @@ When called interactively, prompt for REGEXP." (goto-char (setq beg (point-max))) (save-excursion (save-restriction + ;; FIXME: We save excursion and restriction in "*gnus-uu-body*", + ;; only to immediately move to another buffer? And we narrow in + ;; that buffer without save-restriction? And we finish the + ;; save-restriction with a call to `widen'? How can that + ;; make sense? (set-buffer buffer) - (let (buffer-read-only) + (let ((inhibit-read-only t)) (set-text-properties (point-min) (point-max) nil) ;; These two are necessary for XEmacs 19.12 fascism. (put-text-property (point-min) (point-max) 'invisible nil) |