diff options
author | Lars Ingebrigtsen <larsi@gnus.org> | 2021-10-13 21:21:23 +0200 |
---|---|---|
committer | Lars Ingebrigtsen <larsi@gnus.org> | 2021-10-13 21:52:57 +0200 |
commit | 43f59b91aa2bc5e1771ed68e9a3a84b4aef26ef4 (patch) | |
tree | 26b63dd136593a72ab4d64e3a07984bd7d9af944 /lisp/subr.el | |
parent | 5be4483d33e574d30146e06b7ed083d1e1ece3d6 (diff) | |
download | emacs-43f59b91aa2bc5e1771ed68e9a3a84b4aef26ef4.tar.gz emacs-43f59b91aa2bc5e1771ed68e9a3a84b4aef26ef4.tar.bz2 emacs-43f59b91aa2bc5e1771ed68e9a3a84b4aef26ef4.zip |
Mark all def* functions that should indent as `defun'
* lisp/abbrev.el (define-abbrev):
(define-abbrev-table): Mark all functions that have names that
start with "def" that should indent according to the current
heuristics (bug#43329).
* lisp/autoinsert.el (define-auto-insert):
* lisp/button.el (define-button-type):
* lisp/subr.el (define-key-after):
(define-mail-user-agent):
(define-keymap):
* lisp/widget.el (define-widget):
* lisp/emacs-lisp/package.el (define-package):
* lisp/international/mule-cmds.el (define-char-code-property):
* lisp/international/mule.el (define-charset):
(define-coding-system):
(define-translation-table):
(define-translation-hash-table):
Diffstat (limited to 'lisp/subr.el')
-rw-r--r-- | lisp/subr.el | 3 |
1 files changed, 3 insertions, 0 deletions
diff --git a/lisp/subr.el b/lisp/subr.el index 805c14eae3b..46cd4c127dc 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -1000,6 +1000,7 @@ Bindings are always added before any inherited map. The order of bindings in a keymap matters only when it is used as a menu, so this function is not useful for non-menu keymaps." + (declare (indent defun)) (unless after (setq after t)) (or (keymapp keymap) (signal 'wrong-type-argument (list 'keymapp keymap))) @@ -5572,6 +5573,7 @@ If HOOKVAR is nil, `mail-send-hook' is used. The properties used on SYMBOL are `composefunc', `sendfunc', `abortfunc', and `hookvar'." + (declare (indent defun)) (put symbol 'composefunc composefunc) (put symbol 'sendfunc sendfunc) (put symbol 'abortfunc (or abortfunc #'kill-buffer)) @@ -6491,6 +6493,7 @@ also be the special symbol `:menu', in which case DEFINITION should be a MENU form as accepted by `easy-menu-define'. \(fn &key FULL PARENT SUPPRESS NAME PREFIX KEYMAP &rest [KEY DEFINITION]...)" + (declare (indent defun)) (define-keymap--define definitions)) (defun define-keymap--define (definitions) |