From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Mon, 21 Jan 2019 18:52:51 +0000 (-0500)
Subject: (electric--sort-post-self-insertion-hook): Accept non-symbol functions
X-Git-Tag: emacs-27.0.90~3771
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=d1ea675d2cfccfb043c8e853c410427ca62dd921;p=emacs.git

(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.
---

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.