mirror of
git://git.sv.gnu.org/emacs.git
synced 2025-12-15 10:30:25 -08:00
Use declare instead of def-edebug-spec in most places
* lisp/speedbar.el: Use lexical-binding. (speedbar-with-writable): Use `declare`. * lisp/subr.el (def-edebug-spec): Use `declare`. * lisp/cedet/ede/base.el: Use lexical-binding. (ede-with-projectfile): Use `declare`. (recentf-exclude): Declare var. * lisp/cedet/ede/pmake.el: Use lexical-binding. (ede-pmake-insert-variable-shared, ede-pmake-insert-variable-once): Use `declare`. * lisp/cedet/ede/proj-comp.el: Use lexical-binding. (ede-compiler-begin-unique, ede-compiler-only-once) (ede-linker-begin-unique, ede-linker-only-once): Use `declare`. * lisp/cedet/semantic/ctxt.el: Use lexical-binding. (semantic-with-buffer-narrowed-to-context) (semantic-with-buffer-narrowed-to-command): Use `declare`. (semantic--progress-reporter): Declare var. (semantic-ctxt-end-of-symbol-default): Remove unused var `fieldsep`. * lisp/cedet/semantic/lex-spp.el: Use lexical-binding. (define-lex-spp-macro-declaration-analyzer) (define-lex-spp-include-analyzer, semantic-lex-with-macro-used) (define-lex-spp-macro-undeclaration-analyzer): Use `declare`. (semantic-lex-spp-symbol-remove): Rename arg to avoid colliding with dynamic variable `obarray`. (semantic-lex-spp-symbol-pop): Remove unused var `oldvalue`. (semantic-lex-spp-lex-text-string): Remove unused var `analyzer`. * lisp/cedet/semantic/lex.el (define-lex) (semantic-lex-unterminated-syntax-protection, define-lex-analyzer) (define-lex-regex-analyzer, define-lex-block-analyzer) (semantic-lex-catch-errors): Use `declare`. * lisp/cedet/semantic/tag.el: Use lexical-binding. (semantic-with-buffer-narrowed-to-current-tag) (semantic-with-buffer-narrowed-to-tag): Use `declare`. * lisp/cedet/semantic/wisent.el: Use lexical-binding. (define-wisent-lexer): Use `declare`. * lisp/emacs-lisp/cl-lib.el (cl-pushnew): The arg to :test can be any form not just function form. * lisp/org/ob-comint.el (org-babel-comint-in-buffer) (org-babel-comint-with-output): Use `declare`. * lisp/org/ob-core.el (org-babel-map-src-blocks): Use `declare`. (org-babel-result-cond): Simplify edebug spec. * lisp/org/org-clock.el (org-with-clock-position, org-with-clock): * lisp/org/org-agenda.el (org-agenda-with-point-at-orig-entry): * lisp/org/ob-tangle.el (org-babel-with-temp-filebuffer): Use `declare`. * lisp/textmodes/rst.el (push): Remove redundant edebug spec. * lisp/vc/pcvs-parse.el: Use lexical-binding. (cvs-parse-buffer): Rename arg to avoid dynbound conflict. (cvs-or): Use `declare`.
This commit is contained in:
parent
9518926220
commit
f8dbefbaa5
25 changed files with 111 additions and 220 deletions
|
|
@ -1,4 +1,4 @@
|
|||
;;; ede-pmake.el --- EDE Generic Project Makefile code generator.
|
||||
;;; ede-pmake.el --- EDE Generic Project Makefile code generator -*- lexical-binding: t; -*-
|
||||
|
||||
;; Copyright (C) 1998-2005, 2007-2021 Free Software Foundation, Inc.
|
||||
|
||||
|
|
@ -241,6 +241,7 @@ MFILENAME is the makefile to generate."
|
|||
(defmacro ede-pmake-insert-variable-shared (varname &rest body)
|
||||
"Add VARNAME into the current Makefile.
|
||||
Execute BODY in a location where a value can be placed."
|
||||
(declare (debug t) (indent 1))
|
||||
`(let ((addcr t) (v ,varname))
|
||||
(if (save-excursion
|
||||
(goto-char (point-max))
|
||||
|
|
@ -258,11 +259,11 @@ Execute BODY in a location where a value can be placed."
|
|||
,@body
|
||||
(if addcr (insert "\n"))
|
||||
(goto-char (point-max))))
|
||||
(put 'ede-pmake-insert-variable-shared 'lisp-indent-function 1)
|
||||
|
||||
(defmacro ede-pmake-insert-variable-once (varname &rest body)
|
||||
"Add VARNAME into the current Makefile if it doesn't exist.
|
||||
Execute BODY in a location where a value can be placed."
|
||||
(declare (debug t) (indent 1))
|
||||
`(let ((addcr t) (v ,varname))
|
||||
(unless
|
||||
(save-excursion
|
||||
|
|
@ -271,7 +272,6 @@ Execute BODY in a location where a value can be placed."
|
|||
,@body
|
||||
(when addcr (insert "\n"))
|
||||
(goto-char (point-max)))))
|
||||
(put 'ede-pmake-insert-variable-once 'lisp-indent-function 1)
|
||||
|
||||
;;; SOURCE VARIABLE NAME CONSTRUCTION
|
||||
|
||||
|
|
@ -289,7 +289,7 @@ Change . to _ in the variable name."
|
|||
|
||||
;;; DEPENDENCY FILE GENERATOR LISTS
|
||||
;;
|
||||
(cl-defmethod ede-proj-makefile-dependency-files ((this ede-proj-target))
|
||||
(cl-defmethod ede-proj-makefile-dependency-files ((_this ede-proj-target))
|
||||
"Return a list of source files to convert to dependencies.
|
||||
Argument THIS is the target to get sources from."
|
||||
nil)
|
||||
|
|
@ -302,7 +302,7 @@ Argument THIS is the target to get sources from."
|
|||
Use CONFIGURATION as the current configuration to query."
|
||||
(cdr (assoc configuration (oref this configuration-variables))))
|
||||
|
||||
(cl-defmethod ede-proj-makefile-insert-variables-new ((this ede-proj-project))
|
||||
(cl-defmethod ede-proj-makefile-insert-variables-new ((_this ede-proj-project))
|
||||
"Insert variables needed by target THIS.
|
||||
|
||||
NOTE: Not yet in use! This is part of an SRecode conversion of
|
||||
|
|
@ -420,7 +420,7 @@ Use CONFIGURATION as the current configuration to query."
|
|||
(cdr (assoc configuration (oref this configuration-variables))))
|
||||
|
||||
(cl-defmethod ede-proj-makefile-insert-variables ((this ede-proj-target-makefile)
|
||||
&optional moresource)
|
||||
&optional _moresource)
|
||||
"Insert variables needed by target THIS.
|
||||
Optional argument MORESOURCE is a list of additional sources to add to the
|
||||
sources variable."
|
||||
|
|
@ -449,12 +449,12 @@ sources variable."
|
|||
(ede-proj-makefile-insert-variables linker)))))
|
||||
|
||||
(cl-defmethod ede-proj-makefile-insert-automake-pre-variables
|
||||
((this ede-proj-target))
|
||||
((_this ede-proj-target))
|
||||
"Insert variables needed by target THIS in Makefile.am before SOURCES."
|
||||
nil)
|
||||
|
||||
(cl-defmethod ede-proj-makefile-insert-automake-post-variables
|
||||
((this ede-proj-target))
|
||||
((_this ede-proj-target))
|
||||
"Insert variables needed by target THIS in Makefile.am after SOURCES."
|
||||
nil)
|
||||
|
||||
|
|
@ -511,7 +511,7 @@ Argument THIS is the project that should insert stuff."
|
|||
(mapc 'ede-proj-makefile-insert-dist-dependencies (oref this targets))
|
||||
)
|
||||
|
||||
(cl-defmethod ede-proj-makefile-insert-dist-dependencies ((this ede-proj-target))
|
||||
(cl-defmethod ede-proj-makefile-insert-dist-dependencies ((_this ede-proj-target))
|
||||
"Insert any symbols that the DIST rule should depend on.
|
||||
Argument THIS is the target that should insert stuff."
|
||||
nil)
|
||||
|
|
@ -530,7 +530,7 @@ Argument THIS is the target that should insert stuff."
|
|||
(insert " " (ede-subproject-relative-path sproj))
|
||||
))))
|
||||
|
||||
(cl-defmethod ede-proj-makefile-automake-insert-extradist ((this ede-proj-project))
|
||||
(cl-defmethod ede-proj-makefile-automake-insert-extradist ((_this ede-proj-project))
|
||||
"Insert the EXTRADIST variable entries needed for Automake and EDE."
|
||||
(proj-comp-insert-variable-once "EXTRA_DIST" (insert "Project.ede")))
|
||||
|
||||
|
|
@ -602,7 +602,7 @@ Argument THIS is the target that should insert stuff."
|
|||
"\t@false\n\n"
|
||||
"\n\n# End of Makefile\n")))
|
||||
|
||||
(cl-defmethod ede-proj-makefile-insert-rules ((this ede-proj-target))
|
||||
(cl-defmethod ede-proj-makefile-insert-rules ((_this ede-proj-target))
|
||||
"Insert rules needed by THIS target."
|
||||
nil)
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue