aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rw-r--r--lisp/ChangeLog3
-rw-r--r--lisp/simple.el4
2 files changed, 5 insertions, 2 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index ac36c059bd3..12e5ef0e346 100644
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,5 +1,8 @@
12014-12-01 Stefan Monnier <monnier@iro.umontreal.ca> 12014-12-01 Stefan Monnier <monnier@iro.umontreal.ca>
2 2
3 * simple.el (newline): Place the hook buffer-locally,
4 to make sure it's first.
5
3 * progmodes/prog-mode.el (prettify-symbols--compose-symbol): 6 * progmodes/prog-mode.el (prettify-symbols--compose-symbol):
4 Fix handling of symbols with different syntax at beginning/end or with 7 Fix handling of symbols with different syntax at beginning/end or with
5 symbol rather than word syntax. 8 symbol rather than word syntax.
diff --git a/lisp/simple.el b/lisp/simple.el
index 65fcf6e90b2..b8b15796a26 100644
--- a/lisp/simple.el
+++ b/lisp/simple.el
@@ -440,12 +440,12 @@ A non-nil INTERACTIVE argument means to run the `post-self-insert-hook'."
440 (self-insert-command (prefix-numeric-value arg))) 440 (self-insert-command (prefix-numeric-value arg)))
441 (unwind-protect 441 (unwind-protect
442 (progn 442 (progn
443 (add-hook 'post-self-insert-hook postproc) 443 (add-hook 'post-self-insert-hook postproc nil t)
444 (self-insert-command (prefix-numeric-value arg))) 444 (self-insert-command (prefix-numeric-value arg)))
445 ;; We first used let-binding to protect the hook, but that was naive 445 ;; We first used let-binding to protect the hook, but that was naive
446 ;; since add-hook affects the symbol-default value of the variable, 446 ;; since add-hook affects the symbol-default value of the variable,
447 ;; whereas the let-binding might only protect the buffer-local value. 447 ;; whereas the let-binding might only protect the buffer-local value.
448 (remove-hook 'post-self-insert-hook postproc))) 448 (remove-hook 'post-self-insert-hook postproc t)))
449 (cl-assert (not (member postproc post-self-insert-hook))) 449 (cl-assert (not (member postproc post-self-insert-hook)))
450 (cl-assert (not (member postproc (default-value 'post-self-insert-hook)))))) 450 (cl-assert (not (member postproc (default-value 'post-self-insert-hook))))))
451 nil) 451 nil)