diff options
| -rw-r--r-- | lisp/ChangeLog | 3 | ||||
| -rw-r--r-- | lisp/simple.el | 4 |
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 @@ | |||
| 1 | 2014-12-01 Stefan Monnier <monnier@iro.umontreal.ca> | 1 | 2014-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) |