[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
bug#23933: 25.1.50; Run a buffer-local hook with mapc
From: |
Tino Calancha |
Subject: |
bug#23933: 25.1.50; Run a buffer-local hook with mapc |
Date: |
Sun, 10 Jul 2016 19:18:33 +0900 (JST) |
User-agent: |
Alpine 2.20 (DEB 67 2015-01-07) |
Prevent calling (funcall t) when running a buffer-local hook
as (mapc #'funcall LOCAL-HOOK).
emacs -Q /tmp
M-! for f in foo bar foo-new bar-new; do echo $f>/tmp/$f;done RET
M-! for f in foo bar; do diff -u /tmp/$f /tmp/${f}-new >> /tmp/patch;done
RET
M-x epatch RET n patch RET C-k RET y n v q y
;; funcall: Symbol’s function definition is void: t
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
From de693cda8c6a174149b523fb4adcfae6d28bc202 Mon Sep 17 00:00:00 2001
From: Tino Calancha <tino.calancha@gmail.com>
Date: Sun, 10 Jul 2016 18:02:16 +0900
Subject: [PATCH] Run a buffer-local hook with mapc
* lisp/vc/ediff-util.el (ediff-really-quit): Avoid to apply funcall on 't'
(Bug#23933).
---
lisp/vc/ediff-util.el | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/lisp/vc/ediff-util.el b/lisp/vc/ediff-util.el
index a6b88d5..3d2b9a3 100644
--- a/lisp/vc/ediff-util.el
+++ b/lisp/vc/ediff-util.el
@@ -2522,7 +2522,8 @@ ediff-really-quit
(frame-selected-window warp-frame))
2 1))
- (mapc #'funcall after-quit-hook-internal)
+ ;; after-quit-hook-internal is buffer-local; see
`ediff-filegroup-action'.
+ (mapc (lambda (f) (or (eq f t) (funcall f))) after-quit-hook-internal)
))
;; Returns frame under mouse, if this frame is not a minibuffer
--
2.8.1
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
In GNU Emacs 25.1.50.5 (x86_64-pc-linux-gnu, GTK+ Version 3.20.6)
of 2016-07-10
Repository revision: 466ee1b3ea76425d201b5d59950e88251870c836
Ediff 2.81.5 of July 4, 2013;
- bug#23933: 25.1.50; Run a buffer-local hook with mapc,
Tino Calancha <=
- bug#23933: 25.1.50; Run a buffer-local hook with mapc, Eli Zaretskii, 2016/07/10
- bug#23933: 25.1.50; Run a buffer-local hook with mapc, Stefan Monnier, 2016/07/10
- bug#23933: 25.1.50; Run a buffer-local hook with mapc, Eli Zaretskii, 2016/07/10
- bug#23933: 25.1.50; Run a buffer-local hook with mapc, Stefan Monnier, 2016/07/10
- bug#23933: 25.1.50; Run a buffer-local hook with mapc, npostavs, 2016/07/10
- bug#23933: 25.1.50; Run a buffer-local hook with mapc, Stefan Monnier, 2016/07/10
- bug#23933: 25.1.50; Run a buffer-local hook with mapc, Tino Calancha, 2016/07/11
- bug#23933: 25.1.50; Run a buffer-local hook with mapc, Tino Calancha, 2016/07/11
- bug#23933: 25.1.50; Run a buffer-local hook with mapc, Eli Zaretskii, 2016/07/10
- bug#23933: 25.1.50; Run a buffer-local hook with mapc, Tino Calancha, 2016/07/10