mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-15 10:30:25 -08:00
Mark def* macros for indentation
* lisp/widget.el (define-widget-keywords): * lisp/vc/pcvs.el (defun-cvs-mode): * lisp/subr.el (defvar-local): (defvar-keymap): * lisp/skeleton.el (define-skeleton): * lisp/simple.el (define-alternatives): * lisp/progmodes/gud.el (gdb-script-mode): * lisp/progmodes/gdb-mi.el (def-gdb-preempt-display-buffer): (def-gdb-auto-update-trigger): (def-gdb-auto-update-handler): (def-gdb-trigger-and-handler): (def-gdb-thread-buffer-command): (def-gdb-thread-buffer-simple-command): (def-gdb-thread-buffer-gud-command): (def-gdb-set-positive-number): (def-gdb-memory-format): (def-gdb-memory-unit): (def-gdb-memory-show-page): * lisp/progmodes/compile.el (define-compilation-mode): * lisp/progmodes/cc-vars.el (defcustom-c-stylevar): * lisp/obsolete/cl.el (define-setf-expander): (defsetf): (define-modify-macro): * lisp/obsolete/cl-compat.el (defkeyword): * lisp/net/hmac-def.el (define-hmac-function): * lisp/international/mule-conf.el (define-iso-single-byte-charset): * lisp/international/ccl.el (define-ccl-program): * lisp/image.el (defimage): * lisp/gnus/gmm-utils.el (defun-gmm): * lisp/ezimage.el (defezimage): * lisp/erc/erc.el (define-erc-module): * lisp/emacs-lisp/shortdoc.el (define-short-documentation-group): * lisp/emacs-lisp/eieio.el (defclass): * lisp/emacs-lisp/eieio-compat.el (defgeneric): (defmethod): * lisp/emacs-lisp/easy-mmode.el (define-minor-mode): (define-globalized-minor-mode): * lisp/emacs-lisp/derived.el (define-derived-mode): * lisp/emacs-lisp/byte-run.el (defsubst): (define-obsolete-function-alias): (define-obsolete-variable-alias): * lisp/custom.el (defcustom): (defface): (defgroup): (deftheme): * lisp/cedet/semantic/wisent.el (define-wisent-lexer): * lisp/cedet/semantic/lex.el (define-lex): (define-lex-analyzer): (define-lex-regex-analyzer): (define-lex-simple-regex-analyzer): (define-lex-block-analyzer): (define-lex-keyword-type-analyzer): (define-lex-sexp-type-analyzer): (define-lex-regex-type-analyzer): (define-lex-string-type-analyzer): (define-lex-block-type-analyzer): * lisp/cedet/semantic/lex-spp.el (define-lex-spp-macro-declaration-analyzer): (define-lex-spp-macro-undeclaration-analyzer): (define-lex-spp-include-analyzer): * lisp/cedet/semantic/dep.el (defcustom-mode-local-semantic-dependency-system-include-path): * lisp/cedet/semantic/decorate/mode.el (define-semantic-decoration-style): * lisp/cedet/mode-local.el (define-child-mode): (define-overloadable-function): (define-mode-local-override): * lisp/calc/calc.el (defcalcmodevar): (defmath): Explicitly mark all macros that have names that start with "def" that should indent defunly-like (bug#43329).
This commit is contained in:
parent
43f59b91aa
commit
3b3211c023
32 changed files with 78 additions and 39 deletions
|
|
@ -1612,6 +1612,7 @@ this trigger is subscribed to `gdb-buf-publisher' and called with
|
|||
;; Used to display windows with thread-bound buffers
|
||||
(defmacro def-gdb-preempt-display-buffer (name buffer &optional doc
|
||||
split-horizontal)
|
||||
(declare (indent defun))
|
||||
`(defun ,name (&optional thread)
|
||||
,(when doc doc)
|
||||
(message "%s" thread)
|
||||
|
|
@ -3012,6 +3013,7 @@ calling `gdb-current-context-command').
|
|||
Triggers defined by this command are meant to be used as a
|
||||
trigger argument when describing buffer types with
|
||||
`gdb-set-buffer-rules'."
|
||||
(declare (indent defun))
|
||||
`(defun ,trigger-name (&optional signal)
|
||||
(when
|
||||
(or (not ,signal-list)
|
||||
|
|
@ -3032,6 +3034,7 @@ Erase current buffer and evaluate CUSTOM-DEFUN.
|
|||
Then call `gdb-update-buffer-name'.
|
||||
|
||||
If NOPRESERVE is non-nil, window point is not restored after CUSTOM-DEFUN."
|
||||
(declare (indent defun))
|
||||
`(defun ,handler-name ()
|
||||
(let* ((inhibit-read-only t)
|
||||
,@(unless nopreserve
|
||||
|
|
@ -3055,6 +3058,7 @@ See `def-gdb-auto-update-trigger'.
|
|||
|
||||
HANDLER-NAME handler uses customization of CUSTOM-DEFUN.
|
||||
See `def-gdb-auto-update-handler'."
|
||||
(declare (indent defun))
|
||||
`(progn
|
||||
(def-gdb-auto-update-trigger ,trigger-name
|
||||
,gdb-command
|
||||
|
|
@ -3473,6 +3477,7 @@ corresponding to the mode line clicked."
|
|||
CUSTOM-DEFUN may use locally bound `thread' variable, which will
|
||||
be the value of `gdb-thread' property of the current line.
|
||||
If `gdb-thread' is nil, error is signaled."
|
||||
(declare (indent defun))
|
||||
`(defun ,name (&optional event)
|
||||
,(when doc doc)
|
||||
(interactive (list last-input-event))
|
||||
|
|
@ -3488,6 +3493,7 @@ If `gdb-thread' is nil, error is signaled."
|
|||
&optional doc)
|
||||
"Define a NAME which will call BUFFER-COMMAND with id of thread
|
||||
on the current line."
|
||||
(declare (indent defun))
|
||||
`(def-gdb-thread-buffer-command ,name
|
||||
(,buffer-command (gdb-mi--field thread 'id))
|
||||
,doc))
|
||||
|
|
@ -3543,6 +3549,7 @@ on the current line."
|
|||
"Define a NAME which will execute GUD-COMMAND with
|
||||
`gdb-thread-number' locally bound to id of thread on the current
|
||||
line."
|
||||
(declare (indent defun))
|
||||
`(def-gdb-thread-buffer-command ,name
|
||||
(if gdb-non-stop
|
||||
(let ((gdb-thread-number (gdb-mi--field thread 'id))
|
||||
|
|
@ -3711,6 +3718,7 @@ in `gdb-memory-format'."
|
|||
|
||||
(defmacro def-gdb-set-positive-number (name variable echo-string &optional doc)
|
||||
"Define a function NAME which reads new VAR value from minibuffer."
|
||||
(declare (indent defun))
|
||||
`(defun ,name (event)
|
||||
,(when doc doc)
|
||||
(interactive "e")
|
||||
|
|
@ -3739,6 +3747,7 @@ in `gdb-memory-format'."
|
|||
"Define a function NAME to switch memory buffer to use FORMAT.
|
||||
|
||||
DOC is an optional documentation string."
|
||||
(declare (indent defun))
|
||||
`(defun ,name () ,(when doc doc)
|
||||
(interactive)
|
||||
(customize-set-variable 'gdb-memory-format ,format)
|
||||
|
|
@ -3808,6 +3817,7 @@ DOC is an optional documentation string."
|
|||
"Define a function NAME to switch memory unit size to UNIT-SIZE.
|
||||
|
||||
DOC is an optional documentation string."
|
||||
(declare (indent defun))
|
||||
`(defun ,name () ,(when doc doc)
|
||||
(interactive)
|
||||
(customize-set-variable 'gdb-memory-unit ,unit-size)
|
||||
|
|
@ -3832,6 +3842,7 @@ The defined function switches Memory buffer to show address
|
|||
stored in ADDRESS-VAR variable.
|
||||
|
||||
DOC is an optional documentation string."
|
||||
(declare (indent defun))
|
||||
`(defun ,name
|
||||
,(when doc doc)
|
||||
(interactive)
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue