26 lines
1009 B
EmacsLisp
26 lines
1009 B
EmacsLisp
|
;;; emacs/electric-indent/autoload.el -*- lexical-binding: t; -*-
|
||
|
|
|
||
|
|
;;;###autodef
|
||
|
|
(defun set-electric! (modes &rest plist)
|
||
|
|
"Declare :words (list of strings) or :chars (lists of chars) in MODES that
|
||
|
|
trigger electric indentation."
|
||
|
|
(declare (indent 1))
|
||
|
|
(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))))
|
||
|
|
(fset fn
|
||
|
|
(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))))))
|
||
|
|
|
||
|
|
;; FIXME obsolete :electric
|
||
|
|
;;;###autoload
|
||
|
|
(def-setting! :electric (modes &rest plist)
|
||
|
|
"Declare :words (list of strings) or :chars (lists of chars) in MODES that
|
||
|
|
trigger electric indentation."
|
||
|
|
:obsolete set-electric!
|
||
|
|
`(set-electric! ,modes ,@plist))
|