Commit d1ea675d authored by Stefan Monnier's avatar Stefan Monnier

(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.
parent 6e5ac1d1
Pipeline #585 failed with stage
in 6 minutes and 57 seconds
......@@ -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.
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment