From: Stefan Monnier Date: Mon, 11 Jul 2016 15:55:04 +0000 (+0900) Subject: Prevent to apply funcall on t X-Git-Url: https://code.delx.au/gnu-emacs/commitdiff_plain/7af6c87b5047c5362cb57c6173d27fe877597c04 Prevent to apply funcall on t * lisp/vc/ediff-util.el (ediff-really-quit): Ignore the global part of 'ediff-after-quit-hook-internal' hook (Bug#23933). --- diff --git a/lisp/vc/ediff-util.el b/lisp/vc/ediff-util.el index a6b88d557b..99672fcb01 100644 --- a/lisp/vc/ediff-util.el +++ b/lisp/vc/ediff-util.el @@ -2439,7 +2439,9 @@ temporarily reverses the meaning of this variable." ;; restore buffer mode line id's in buffer-A/B/C (let ((control-buffer ediff-control-buffer) (meta-buffer ediff-meta-buffer) - (after-quit-hook-internal ediff-after-quit-hook-internal) + ;; FIXME: Here we ignore the global part of the + ;; ediff-after-quit-hook-internal hook. + (after-quit-hook-internal (remq t ediff-after-quit-hook-internal)) (session-number ediff-meta-session-number) ;; suitable working frame (warp-frame (if (and (ediff-window-display-p) (eq ediff-grab-mouse t))