commit 14b4e657e2fd647153b336c61a220acedda8454c (HEAD, refs/remotes/origin/master) Author: Paul Eggert Date: Sat Feb 21 20:00:16 2015 -0800 Spelling fixes * lisp/cedet/semantic/doc.el (semantic-documentation-comment-preceding-tag): Rename from semantic-documentation-comment-preceeding-tag. All uses changed. Leave an obsolete alias behind. * src/lisp.h (DEFINE_NON_NIL_Q_SYMBOL_MACROS): Rename from DEFINE_NONNIL_Q_SYMBOL_MACROS. All uses changed. diff --git a/doc/misc/auth.texi b/doc/misc/auth.texi index 7c0254a..8dbde4d 100644 --- a/doc/misc/auth.texi +++ b/doc/misc/auth.texi @@ -247,8 +247,8 @@ names: Your netrc entries will then be: @example -machine gmail login account@@gmail.com password "accountpassword" port imap -machine gmail2 login account2@@gmail.com password "account2password" port imap +machine gmail login account@@gmail.com password "account password" port imap +machine gmail2 login account2@@gmail.com password "account2 password" port imap @end example @node Secret Service API diff --git a/lib-src/make-docfile.c b/lib-src/make-docfile.c index a7943e3..bada8df 100644 --- a/lib-src/make-docfile.c +++ b/lib-src/make-docfile.c @@ -743,7 +743,7 @@ write_globals (void) puts ("#endif"); puts ("#define Qnil builtin_lisp_symbol (0)"); - puts ("#if DEFINE_NONNIL_Q_SYMBOL_MACROS"); + puts ("#if DEFINE_NON_NIL_Q_SYMBOL_MACROS"); num_symbols = 0; for (int i = 0; i < num_globals; i++) if (globals[i].type == SYMBOL && num_symbols++ != 0) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index b78dd79..a583d7c 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -534,7 +534,7 @@ (package--sort-deps-in-alist): New function. (package-menu-mark-install): Can mark dependencies. (package--newest-p): New function. - (package-delete): Don't delesect when deleting an older version of + (package-delete): Don't deselect when deleting an older version of an upgraded package. * emacs-lisp/package.el: Add missing (require 'subr-x) diff --git a/lisp/cedet/ChangeLog b/lisp/cedet/ChangeLog index 838a269..c9ddc38 100644 --- a/lisp/cedet/ChangeLog +++ b/lisp/cedet/ChangeLog @@ -1,3 +1,10 @@ +2015-02-22 Paul Eggert + + Spelling fixes + * semantic/doc.el (semantic-documentation-comment-preceding-tag): + Rename from semantic-documentation-comment-preceeding-tag. All + uses changed. Leave an obsolete alias behind. + 2015-02-16 Stefan Monnier * semantic/db-el.el (semanticdb-elisp-sym->tag): Fix copy&paste error diff --git a/lisp/cedet/semantic/doc.el b/lisp/cedet/semantic/doc.el index 874763f..3ceb351 100644 --- a/lisp/cedet/semantic/doc.el +++ b/lisp/cedet/semantic/doc.el @@ -56,13 +56,12 @@ If nosnarf if 'lex, then only return the lex token." doctmp ;; Check just before the definition. (when (semantic-tag-with-position-p tag) - (semantic-documentation-comment-preceeding-tag tag nosnarf)) + (semantic-documentation-comment-preceding-tag tag nosnarf)) ;; Let's look for comments either after the definition, but before code: ;; Not sure yet. Fill in something clever later.... nil)))))) -;; FIXME this is not how you spell "preceding". -(defun semantic-documentation-comment-preceeding-tag (&optional tag nosnarf) +(defun semantic-documentation-comment-preceding-tag (&optional tag nosnarf) "Find a comment preceding TAG. If TAG is nil. use the tag under point. Searches the space between TAG and the preceding tag for a comment, @@ -84,6 +83,10 @@ just the lexical token and not the string." ;; of a function. (semantic-doc-snarf-comment-for-tag nosnarf))) )) +(define-obsolete-function-alias + 'semantic-documentation-comment-preceeding-tag + 'semantic-documentation-comment-preceding-tag + "25.1") (defun semantic-doc-snarf-comment-for-tag (nosnarf) "Snarf up the comment at POINT for `semantic-documentation-for-tag'. diff --git a/lisp/cedet/srecode/document.el b/lisp/cedet/srecode/document.el index 9f106a4..4757784 100644 --- a/lisp/cedet/srecode/document.el +++ b/lisp/cedet/srecode/document.el @@ -395,7 +395,7 @@ It is assumed that the comment occurs just in front of FCN-IN." (beginning-of-line) (forward-char -1) - (let ((lextok (semantic-documentation-comment-preceeding-tag fcn-in 'lex)) + (let ((lextok (semantic-documentation-comment-preceding-tag fcn-in 'lex)) (doctext (srecode-document-function-name-comment fcn-in)) ) diff --git a/lisp/emacs-lisp/package.el b/lisp/emacs-lisp/package.el index d8a4fc9..de1158d 100644 --- a/lisp/emacs-lisp/package.el +++ b/lisp/emacs-lisp/package.el @@ -335,11 +335,10 @@ contents of the archive." :version "24.4") (defcustom package-selected-packages nil - "Store here packages installed explicitely by user. -This variable will be feeded automatically by emacs, -when installing a new package. -This variable will be used by `package-autoremove' to decide -which packages are no more needed. + "Store here packages installed explicitly by user. +This variable is fed automatically by Emacs when installing a new package. +This variable is used by `package-autoremove' to decide +which packages are no longer needed. You can use it to (re)install packages on other machines by running `package-user-selected-packages-install'. @@ -1280,7 +1279,7 @@ to install it but still mark it as selected." ;;;###autoload (defun package-reinstall (pkg) "Reinstall package PKG. -PKG shoul be either a symbol, the package name, or a package-desc +PKG should be either a symbol, the package name, or a package-desc object." (interactive (list (intern (completing-read "Reinstall package: " @@ -1547,7 +1546,7 @@ If NOSAVE is non-nil, the package is not removed from ;; `package-selected-packages' even if it can't be deleted. (when (and (null nosave) (package--user-selected-p name) - ;; Don't delesect if this is an older version of an + ;; Don't deselect if this is an older version of an ;; upgraded package. (package--newest-p pkg-desc)) (customize-save-variable diff --git a/lisp/gnus/ChangeLog b/lisp/gnus/ChangeLog index 7895f37..07d1d47 100644 --- a/lisp/gnus/ChangeLog +++ b/lisp/gnus/ChangeLog @@ -827,7 +827,7 @@ 2014-01-30 Lars Ingebrigtsen * nnmail.el (nnmail-split-it): Instead of redoing the search to restore - the match data, just save and restore it explictly (bug#12375). + the match data, just save and restore it explicitly (bug#12375). * gnus-sum.el (gnus-summary-read-group-1): Initialize the spam code if that's needed. @@ -24084,7 +24084,7 @@ (spam-ham-copy-or-move-routine): Return the number of processed ham messages. (spam-summary-prepare-exit): Use the above values to decide - whether status messages shouled be displayed. + whether status messages should be displayed. 2004-05-20 Katsumi Yamaoka diff --git a/lisp/org/ChangeLog b/lisp/org/ChangeLog index 081da5d..ce39bb7 100644 --- a/lisp/org/ChangeLog +++ b/lisp/org/ChangeLog @@ -852,7 +852,7 @@ in a table.el table last. * org.el (org-delete-property): Don't suggest to delete the - CATEGORY property when the category is not explicitely set in the + CATEGORY property when the category is not explicitly set in the property drawer. Also enforce matching when completing. (org-insert-heading): Fix regression: with two universal prefixes, insert heading at the end of the subtree. diff --git a/src/ChangeLog b/src/ChangeLog index 8604cfc..5e4dbb7 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,9 @@ +2015-02-22 Paul Eggert + + Spelling fixes + * lisp.h (DEFINE_NON_NIL_Q_SYMBOL_MACROS): + Rename from DEFINE_NONNIL_Q_SYMBOL_MACROS. All uses changed. + 2015-02-21 Eli Zaretskii * w32term.c (queue_notifications): diff --git a/src/lisp.h b/src/lisp.h index 7795c90..9764b09 100644 --- a/src/lisp.h +++ b/src/lisp.h @@ -746,10 +746,10 @@ struct Lisp_Symbol /* By default, define macros for Qt, etc., as this leads to a bit better performance in the core Emacs interpreter. A plugin can - define DEFINE_NONNIL_Q_SYMBOL_MACROS to be false, to be portable to + define DEFINE_NON_NIL_Q_SYMBOL_MACROS to be false, to be portable to other Emacs instances that assign different values to Qt, etc. */ -#ifndef DEFINE_NONNIL_Q_SYMBOL_MACROS -# define DEFINE_NONNIL_Q_SYMBOL_MACROS true +#ifndef DEFINE_NON_NIL_Q_SYMBOL_MACROS +# define DEFINE_NON_NIL_Q_SYMBOL_MACROS true #endif #include "globals.h" diff --git a/test/automated/vc-tests.el b/test/automated/vc-tests.el index e83eb85..4d9aefa 100644 --- a/test/automated/vc-tests.el +++ b/test/automated/vc-tests.el @@ -331,8 +331,8 @@ For backends which dont support it, `vc-not-supported' is signalled." (let ((tmp-name (expand-file-name "foo" default-directory))) ;; Check for initial state, should be nil until it's registered. - ;; Don't pass the backend explictly, otherwise some implementations - ;; return non-nil. + ;; Don't pass the backend explicitly, otherwise some + ;; implementations return non-nil. (should (null (vc-working-revision tmp-name))) ;; Write a new file. Check state. diff --git a/test/cedet/srecode-tests.el b/test/cedet/srecode-tests.el index 423df72..f7529ec 100644 --- a/test/cedet/srecode-tests.el +++ b/test/cedet/srecode-tests.el @@ -272,7 +272,7 @@ Dump out the extracted dictionary." (not (semantic-tag-of-class-p fcn-in 'function))) (error "No tag of class 'function to insert comment for")) - (let ((lextok (semantic-documentation-comment-preceeding-tag fcn-in 'lex)) + (let ((lextok (semantic-documentation-comment-preceding-tag fcn-in 'lex)) ) (when (not lextok) commit 1cb34285463d2b9050a031a7f9a53d376de5b489 Author: Paul Eggert Date: Sat Feb 21 12:54:21 2015 -0800 * bindings.el (ctl-x-map): There is no 'C-;'. For now, make do with 'M-;'; this allows 'make bootstrap' to work. Perhaps some other binding should be chosen. Fixes: bug#19826 diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 64aa3de..b78dd79 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2015-02-21 Paul Eggert + + * bindings.el (ctl-x-map): There is no 'C-;'. + For now, make do with 'M-;'; this allows 'make bootstrap' to work. + Perhaps some other binding should be chosen. + Fixes: bug#19826 + 2015-02-21 Artur Malabarba * bindings.el (ctl-x-map): Fix `comment-line' binding. diff --git a/lisp/bindings.el b/lisp/bindings.el index 44a6570..a1f0d98 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el @@ -1130,7 +1130,7 @@ if `inhibit-field-text-motion' is non-nil." (define-key esc-map "j" 'indent-new-comment-line) (define-key esc-map "\C-j" 'indent-new-comment-line) (define-key ctl-x-map ";" 'comment-set-column) -(define-key ctl-x-map "\C-;" 'comment-line) +(define-key ctl-x-map "\M-;" 'comment-line) (define-key ctl-x-map "f" 'set-fill-column) (define-key ctl-x-map "$" 'set-selective-display) commit e38be5c483ee4b629a4a3ecb27de068a1cb6402c Author: Artur Malabarba Date: Sat Feb 21 18:07:22 2015 -0200 lisp/ChangeLog: Fix entry to mention (Bug#19826) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 1d95f10..64aa3de 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,6 +1,7 @@ 2015-02-21 Artur Malabarba * bindings.el (ctl-x-map): Fix `comment-line' binding. + (Bug#19826) 2015-02-21 Michael Albinus commit 48415204e8ea143300f3f10d33b9617d91ed1c54 Author: Artur Malabarba Date: Sat Feb 21 18:06:07 2015 -0200 bindings.el (ctl-x-map): Fix `comment-line' binding. diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0211458..1d95f10 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,7 @@ +2015-02-21 Artur Malabarba + + * bindings.el (ctl-x-map): Fix `comment-line' binding. + 2015-02-21 Michael Albinus * autorevert.el (auto-revert-notify-add-watch) diff --git a/lisp/bindings.el b/lisp/bindings.el index 4cc9f6a..44a6570 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el @@ -1130,7 +1130,7 @@ if `inhibit-field-text-motion' is non-nil." (define-key esc-map "j" 'indent-new-comment-line) (define-key esc-map "\C-j" 'indent-new-comment-line) (define-key ctl-x-map ";" 'comment-set-column) -(define-key ctl-x-map "C-;" 'comment-line) +(define-key ctl-x-map "\C-;" 'comment-line) (define-key ctl-x-map "f" 'set-fill-column) (define-key ctl-x-map "$" 'set-selective-display) commit 9074a684990600abd9dfad0477c7cd1d2f339ed3 Author: Eli Zaretskii Date: Sat Feb 21 14:54:08 2015 +0200 Prefer 'Qfoo' to 'intern ("foo")' in w32 source files src/w32term.c (queue_notifications): src/w32inevt.c (handle_file_notifications): src/w32font.c (w32_enumfont_pattern_entity): Prefer 'Qfoo' to 'intern ("foo")'. diff --git a/src/ChangeLog b/src/ChangeLog index 1692c3f..8604cfc 100644 --- a/src/ChangeLog +++ b/src/ChangeLog @@ -1,3 +1,10 @@ +2015-02-21 Eli Zaretskii + + * w32term.c (queue_notifications): + * w32inevt.c (handle_file_notifications): + * w32font.c (w32_enumfont_pattern_entity): Prefer 'Qfoo' to + 'intern ("foo")'. + 2015-02-21 Paul Eggert Prefer 'Qfoo' to 'intern ("foo")' diff --git a/src/w32font.c b/src/w32font.c index 360ad3f..422f082 100644 --- a/src/w32font.c +++ b/src/w32font.c @@ -1072,11 +1072,11 @@ w32_enumfont_pattern_entity (Lisp_Object frame, truetype so that this information is not any worse than we could have obtained later. */ if (EQ (backend, Quniscribe) && (full_type & NTMFLAGS_OPENTYPE)) - tem = intern ("opentype"); + tem = Qopentype; else if (font_type & TRUETYPE_FONTTYPE) tem = intern ("truetype"); else if (full_type & NTM_PS_OPENTYPE) - tem = intern ("postscript"); + tem = Qpostscript; else if (full_type & NTM_TYPE1) tem = intern ("type1"); else if (font_type & RASTER_FONTTYPE) @@ -1875,10 +1875,10 @@ static Lisp_Object w32_to_fc_weight (int n) { if (n >= FW_EXTRABOLD) return intern ("black"); - if (n >= FW_BOLD) return intern ("bold"); + if (n >= FW_BOLD) return Qbold; if (n >= FW_SEMIBOLD) return intern ("demibold"); if (n >= FW_NORMAL) return intern ("medium"); - return intern ("light"); + return Qlight; } /* Fill in all the available details of LOGFONT from FONT_SPEC. */ diff --git a/src/w32inevt.c b/src/w32inevt.c index e09903f..ea2db26 100644 --- a/src/w32inevt.c +++ b/src/w32inevt.c @@ -631,7 +631,7 @@ handle_file_notifications (struct input_event *hold_quit) if (notification_buffer_in_use) { DWORD info_size = notifications_size; - Lisp_Object cs = intern ("utf-16le"); + Lisp_Object cs = Qutf_16le; Lisp_Object obj = w32_get_watch_object (notifications_desc); /* notifications_size could be zero when the buffer of diff --git a/src/w32term.c b/src/w32term.c index a9ed2a8..d415b13 100644 --- a/src/w32term.c +++ b/src/w32term.c @@ -3223,7 +3223,7 @@ queue_notifications (struct input_event *event, W32Msg *msg, struct frame *f, if (notification_buffer_in_use) { DWORD info_size = notifications_size; - Lisp_Object cs = intern ("utf-16le"); + Lisp_Object cs = Qutf_16le; Lisp_Object obj = w32_get_watch_object (notifications_desc); /* notifications_size could be zero when the buffer of commit a2e6668dee271ef76bede2c9556439df67999fda Author: Michael Albinus Date: Sat Feb 21 13:21:24 2015 +0100 Mention file notification support for dired buffers and autorevert. diff --git a/etc/NEWS b/etc/NEWS index ed25538..3f88d3d 100644 --- a/etc/NEWS +++ b/etc/NEWS @@ -558,6 +558,9 @@ command line's password prompt. ** tar-mode: new `tar-new-entry' command, allowing for new members to be added to the archive. +** Autorevert: dired buffers are also auto-reverted via file +notifications, if Emacs is compiled with file notification support. + ** Obsolete packages --- commit 629ed7714a0387cfb9fa5d928159a52f1b088def Author: Michael Albinus Date: Sat Feb 21 13:11:55 2015 +0100 Support file notifications for dired auto-revert * autorevert.el (auto-revert-notify-add-watch) (auto-revert-notify-handler, auto-revert-buffers): Handle also buffers without an associated file, like dired buffers. diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 7f5fb7d..0211458 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,9 @@ +2015-02-21 Michael Albinus + + * autorevert.el (auto-revert-notify-add-watch) + (auto-revert-notify-handler, auto-revert-buffers): Handle also + buffers without an associated file, like dired buffers. + 2015-02-21 Dima Kogan * autorevert.el (auto-revert-mode, auto-revert-tail-mode) diff --git a/lisp/autorevert.el b/lisp/autorevert.el index 4dd021e..6489a3e 100644 --- a/lisp/autorevert.el +++ b/lisp/autorevert.el @@ -505,16 +505,22 @@ will use an up-to-date value of `auto-revert-interval'" ;; `auto-revert-use-notify' are non-nil. (when (or (string-match auto-revert-notify-exclude-dir-regexp (expand-file-name default-directory)) - (file-symlink-p buffer-file-name)) + (file-symlink-p (or buffer-file-name default-directory))) ;; Fallback to file checks. (set (make-local-variable 'auto-revert-use-notify) nil)) (when (not auto-revert-notify-watch-descriptor) (setq auto-revert-notify-watch-descriptor (ignore-errors - (file-notify-add-watch - (expand-file-name buffer-file-name default-directory) - '(change attribute-change) 'auto-revert-notify-handler))) + (if buffer-file-name + (file-notify-add-watch + (expand-file-name buffer-file-name default-directory) + '(change attribute-change) + 'auto-revert-notify-handler) + (file-notify-add-watch + (expand-file-name default-directory) + '(change) + 'auto-revert-notify-handler)))) (if auto-revert-notify-watch-descriptor (progn (puthash @@ -563,40 +569,40 @@ no more reverts are possible until the next call of auto-revert-notify-watch-descriptor-hash-list))) ;; Check, that event is meant for us. (cl-assert descriptor) - ;; We do not handle `deleted', because nothing has to be refreshed. - (unless (eq action 'deleted) - (cl-assert (memq action '(attribute-changed changed created renamed)) - t) - ;; Since we watch a directory, a file name must be returned. - (cl-assert (stringp file)) - (when (eq action 'renamed) (cl-assert (stringp file1))) - ;; Loop over all buffers, in order to find the intended one. - (cl-dolist (buffer buffers) - (when (buffer-live-p buffer) - (with-current-buffer buffer - (when (and (stringp buffer-file-name) - (or - (and (memq action '(attribute-changed changed - created)) - (string-equal - (file-name-nondirectory file) - (file-name-nondirectory buffer-file-name))) - (and (eq action 'renamed) - (string-equal - (file-name-nondirectory file1) - (file-name-nondirectory buffer-file-name))))) - ;; Mark buffer modified. - (setq auto-revert-notify-modified-p t) - - ;; Revert the buffer now if we're not locked out - (when (/= auto-revert-buffers-counter-lockedout - auto-revert-buffers-counter) - (auto-revert-handler) - (setq auto-revert-buffers-counter-lockedout - auto-revert-buffers-counter)) - - ;; No need to check other buffers. - (cl-return))))))))) + ;; Since we watch a directory, a file name must be returned. + (cl-assert (stringp file)) + (when (eq action 'renamed) (cl-assert (stringp file1))) + ;; Loop over all buffers, in order to find the intended one. + (cl-dolist (buffer buffers) + (when (buffer-live-p buffer) + (with-current-buffer buffer + (when (or + ;; A buffer associated with a file. + (and (stringp buffer-file-name) + (or + (and (memq action '(attribute-changed changed created)) + (string-equal + (file-name-nondirectory file) + (file-name-nondirectory buffer-file-name))) + (and (eq action 'renamed) + (string-equal + (file-name-nondirectory file1) + (file-name-nondirectory buffer-file-name))))) + ;; A buffer w/o a file, like dired. + (and (null buffer-file-name) + (memq action '(created renamed deleted)))) + ;; Mark buffer modified. + (setq auto-revert-notify-modified-p t) + + ;; Revert the buffer now if we're not locked out. + (when (/= auto-revert-buffers-counter-lockedout + auto-revert-buffers-counter) + (auto-revert-handler) + (setq auto-revert-buffers-counter-lockedout + auto-revert-buffers-counter)) + + ;; No need to check other buffers. + (cl-return)))))))) (defun auto-revert-active-p () "Check if auto-revert is active (in current buffer or globally)." @@ -750,7 +756,7 @@ the timer when no buffers need to be checked." (delq buf auto-revert-buffer-list))) (when (auto-revert-active-p) ;; Enable file notification. - (when (and auto-revert-use-notify buffer-file-name + (when (and auto-revert-use-notify (not auto-revert-notify-watch-descriptor)) (auto-revert-notify-add-watch)) (auto-revert-handler))) commit 6982acc4e1561e681ea18a91ee87c32cd3b47f57 Author: Dima Kogan Date: Sat Feb 21 10:47:22 2015 +0100 Install notification handlers when enabling the auto-revert modes. * autorevert.el (auto-revert-mode, auto-revert-tail-mode) (global-auto-revert-mode): Remove (let (auto-revert-use-notify) ... ) wrappers. Call (auto-revert-buffers) consequently in order to install handlers. diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 4e59654..7f5fb7d 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,10 @@ +2015-02-21 Dima Kogan + + * autorevert.el (auto-revert-mode, auto-revert-tail-mode) + (global-auto-revert-mode): Remove (let (auto-revert-use-notify) ... ) + wrappers. Call (auto-revert-buffers) consequently in order to + install handlers. + 2015-02-21 Wilson Snyder Sync with upstream verilog-mode revision 0d6420b. diff --git a/lisp/autorevert.el b/lisp/autorevert.el index 02cef24..4dd021e 100644 --- a/lisp/autorevert.el +++ b/lisp/autorevert.el @@ -361,9 +361,8 @@ without being changed in the part that is already in the buffer." (delq (current-buffer) auto-revert-buffer-list))) (auto-revert-set-timer) (when auto-revert-mode - (let (auto-revert-use-notify) - (auto-revert-buffers) - (setq auto-revert-tail-mode nil)))) + (auto-revert-buffers) + (setq auto-revert-tail-mode nil))) ;;;###autoload @@ -417,8 +416,7 @@ Use `auto-revert-mode' for changes other than appends!" (y-or-n-p "File changed on disk, content may be missing. \ Perform a full revert? ") ;; Use this (not just revert-buffer) for point-preservation. - (let (auto-revert-use-notify) - (auto-revert-handler))) + (auto-revert-buffers)) ;; else we might reappend our own end when we save (add-hook 'before-save-hook (lambda () (auto-revert-tail-mode 0)) nil t) (or (local-variable-p 'auto-revert-tail-pos) ; don't lose prior position @@ -463,8 +461,7 @@ specifies in the mode line." :global t :group 'auto-revert :lighter global-auto-revert-mode-text (auto-revert-set-timer) (if global-auto-revert-mode - (let (auto-revert-use-notify) - (auto-revert-buffers)) + (auto-revert-buffers) (dolist (buf (buffer-list)) (with-current-buffer buf (when auto-revert-use-notify