summaryrefslogtreecommitdiff
path: root/lisp/subr.el
diff options
context:
space:
mode:
authorLars Ingebrigtsen <larsi@gnus.org>2021-10-13 21:21:23 +0200
committerLars Ingebrigtsen <larsi@gnus.org>2021-10-13 21:52:57 +0200
commit43f59b91aa2bc5e1771ed68e9a3a84b4aef26ef4 (patch)
tree26b63dd136593a72ab4d64e3a07984bd7d9af944 /lisp/subr.el
parent5be4483d33e574d30146e06b7ed083d1e1ece3d6 (diff)
downloademacs-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.el3
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)