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

(gnus-group--setup-tool-bar-update): Fix last change

Browse source 
* lisp/gnus/gnus-group.el (gnus-group--setup-tool-bar-update):
cursor-sensor-functions should be a list of functions.
This commit is contained in:
Stefan Monnier 2015-04-13 21:30:27 -04:00
parent 56dfd3de9c
commit e192281baa
2 changed files with 7 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
lisp/gnus/gnus-group.el
View file

@ -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

7
lisp/gnus/gnus-uu.el
View file

@ -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)