Skip to content

GitLab

emacs
emacs
Commit d1ea675d authored by Stefan Monnier's avatar Stefan Monnier
Browse files
Options

(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
    Hide whitespace changes
    Inline Side-by-side
    Showing with 2 additions and 2 deletions
    lisp/electric.el
    View file @ d1ea675d
    ......@@ -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