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

lisp/gnus/gnus-start.el (gnus-dribble-eval-file): Ignore lexbind warning

Browse source
This commit is contained in:
Stefan Monnier 2025-04-13 10:59:47 -04:00
parent 9dfd4c6bd3
commit 1dee377bad
1 changed files with 7 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
lisp/gnus/gnus-start.el
View file

@ -892,9 +892,9 @@ If REGEXP is given, lines that match it will be deleted."
(when (or (file-exists-p auto) (file-exists-p dribble-file))
;; Load whichever file is newest -- the auto save file
;; or the "real" file.
(if (file-newer-than-file-p auto dribble-file)
(nnheader-insert-file-contents auto)
(nnheader-insert-file-contents dribble-file))
(nnheader-insert-file-contents
(if (file-newer-than-file-p auto dribble-file)
auto dribble-file))
(unless (zerop (buffer-size))
(set-buffer-modified-p t))
;; Set the file modes to reflect the .newsrc file modes.
@ -916,9 +916,10 @@ If REGEXP is given, lines that match it will be deleted."
(defun gnus-dribble-eval-file ()
(when gnus-dribble-eval-file
(setq gnus-dribble-eval-file nil)
(let ((gnus-dribble-ignore t))
(with-current-buffer gnus-dribble-buffer
(eval-buffer (current-buffer))))))
(with-current-buffer gnus-dribble-buffer
(let ((gnus-dribble-ignore t)
(warning-inhibit-types '((files missing-lexbind-cookie))))
(eval-buffer (current-buffer))))))
(defun gnus-dribble-delete-file ()
(when (file-exists-p (gnus-dribble-file-name))