summaryrefslogtreecommitdiff
path: root/lisp/ps-print.el
diff options
context:
space:
mode:
authorLars Ingebrigtsen <larsi@gnus.org>2021-07-02 17:33:37 +0200
committerLars Ingebrigtsen <larsi@gnus.org>2021-07-04 14:07:59 +0200
commit46d4ddd1767284e8a42b01e7880c2658c5957ab1 (patch)
tree0c31bed7ef00fc88299bcbedea66bfeb07cef326 /lisp/ps-print.el
parent3dae1e42e107938ec9d7c93efec2453e7d23ab5b (diff)
downloademacs-46d4ddd1767284e8a42b01e7880c2658c5957ab1.tar.gz
emacs-46d4ddd1767284e8a42b01e7880c2658c5957ab1.tar.bz2
emacs-46d4ddd1767284e8a42b01e7880c2658c5957ab1.zip
Adjust eshell and ps-print to not use emacs-kill-hook
* lisp/ps-print.el (ps-kill-emacs-check): * lisp/eshell/em-dirs.el (eshell-dirs-initialize) (eshell-save-some-last-dir): Don't use `emacs-kill-hook' (bug#28943). * lisp/eshell/em-hist.el (eshell-hist-initialize) (eshell-save-some-history):
Diffstat (limited to 'lisp/ps-print.el')
-rw-r--r--lisp/ps-print.el5
1 files changed, 3 insertions, 2 deletions
diff --git a/lisp/ps-print.el b/lisp/ps-print.el
index fcc6e1fd834..1b8654ead2b 100644
--- a/lisp/ps-print.el
+++ b/lisp/ps-print.el
@@ -6506,10 +6506,11 @@ If FACE is not a valid face name, use default face."
(and (buffer-live-p ps-buffer)
(buffer-modified-p ps-buffer)
(not (yes-or-no-p "Unprinted PostScript waiting; exit anyway? "))
- (error "Unprinted PostScript"))))
+ (error "Unprinted PostScript")))
+ t)
(unless noninteractive
- (add-hook 'kill-emacs-hook #'ps-kill-emacs-check))
+ (add-hook 'kill-emacs-query-functions #'ps-kill-emacs-check))
(provide 'ps-print)