diff options
author | Stefan Monnier <monnier@iro.umontreal.ca> | 2019-01-21 13:52:51 -0500 |
---|---|---|
committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2019-01-21 13:52:51 -0500 |
commit | d1ea675d2cfccfb043c8e853c410427ca62dd921 (patch) | |
tree | a4b55356bb2cef77bc6d4d7f11ab81db2867346e /lisp/electric.el | |
parent | 6e5ac1d1ff38ae52321758f53fd513959d360e0b (diff) | |
download | emacs-d1ea675d2cfccfb043c8e853c410427ca62dd921.tar.gz |
(electric--sort-post-self-insertion-hook): Accept non-symbol functions
* lisp/electric.el (electric--sort-post-self-insertion-hook):
Don't burp on non-symbol functions.
Diffstat (limited to 'lisp/electric.el')
-rw-r--r-- | lisp/electric.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/electric.el b/lisp/electric.el index f2061c2f52c..9610b4be22f 100644 --- a/lisp/electric.el +++ b/lisp/electric.el @@ -198,8 +198,8 @@ relative order must be maintained within it." (setq-default post-self-insert-hook (sort (default-value 'post-self-insert-hook) #'(lambda (fn1 fn2) - (< (or (get fn1 'priority) 0) - (or (get fn2 'priority) 0)))))) + (< (or (if (symbol fn1) (get fn1 'priority)) 0) + (or (if (symbol fn2) (get fn2 'priority)) 0)))))) ;;; Electric indentation. |