emenel/doomemacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity

set-electric!: fix & improve error handling

Browse source
This commit is contained in:
Henrik Lissner 2018-06-15 13:29:25 +02:00
parent 3c7c5d5120
commit cccccbb3fd
No known key found for this signature in database
GPG key ID: 5F6C0EA160557395
1 changed files with 8 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

14
modules/emacs/electric/autoload.el
View file

@ -5,16 +5,18 @@
"Declare :words (list of strings) or :chars (lists of chars) in MODES that
trigger electric indentation."
(declare (indent 1))
(unless plist
(signal 'wrong-number-of-arguments
(list '(:char :words) plist)))
(cl-destructuring-bind (&key char words) plist
(when (or chars words)
(let* ((name (mapconcat #'symbol-name modes "-"))
(fn (intern (format "+electric-indent--init-%s" name))))
(dolist (mode (doom-enlist modes))
(let ((fn (intern (format "+electric-indent--init-%s" mode))))
(fset fn
(lambda () (electric-indent-local-mode +1)
(lambda ()
(electric-indent-local-mode +1)
(if chars (setq electric-indent-chars chars))
(if words (setq +electric-indent-words words))))
(dolist (mode modes)
(add-hook (intern (format "%s-hook" mode)) fn-name))))))
(add-hook (intern (format "%s-hook" mode)) fn)))))
;; FIXME obsolete :electric
;;;###autoload