procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(check-declare-locate): Reflow doc.

Browse source 
(check-declare-verify): Handle fset.
This commit is contained in:
Glenn Morris 2007-11-28 03:53:44 +00:00
parent 79df1d6f2f
commit 4ab4de9ce6
1 changed files with 7 additions and 7 deletions

14
lisp/emacs-lisp/check-declare.el
View file

@ -46,9 +46,9 @@
(defun check-declare-locate (file basefile) (defun check-declare-locate (file basefile)
"Return the full path of FILE. "Return the full path of FILE.
Expands files with a \".c\" extension relative to the Emacs Expands files with a \".c\" extension relative to the Emacs
\"src/\" directory. Otherwise, `locate-library' searches for \"src/\" directory. Otherwise, `locate-library' searches for FILE.
FILE. If that fails, expands FILE relative to BASEFILE's If that fails, expands FILE relative to BASEFILE's directory part.
directory part. The returned file might not exist." The returned file might not exist."
(if (string-equal "c" (file-name-extension file)) (if (string-equal "c" (file-name-extension file))
(expand-file-name file (expand-file-name "src" source-directory)) (expand-file-name file (expand-file-name "src" source-directory))
(let ((tfile (locate-library (file-name-nondirectory file)))) (let ((tfile (locate-library (file-name-nondirectory file))))
@ -112,7 +112,7 @@ found to be true, otherwise a list of errors with elements of the form
;; defsubst's don't _have_ to be known at compile time. ;; defsubst's don't _have_ to be known at compile time.
(setq re (format (if cflag (setq re (format (if cflag
"^[ \t]*\\(DEFUN\\)[ \t]*([ \t]*\"%s\"" "^[ \t]*\\(DEFUN\\)[ \t]*([ \t]*\"%s\""
"^[ \t]*(\\(def\\(?:un\\|subst\\|\ "^[ \t]*(\\(fset[ \t]+'\\|def\\(?:un\\|subst\\|\
ine-\\(?:derived\\|generic\\|\\(?:global\\(?:ized\\)?-\\)?minor\\)-mode\ ine-\\(?:derived\\|generic\\|\\(?:global\\(?:ized\\)?-\\)?minor\\)-mode\
\\|\\(?:ine-obsolete-function-\\)?alias[ \t]+'\\)\\)\ \\|\\(?:ine-obsolete-function-\\)?alias[ \t]+'\\)\\)\
\[ \t]*%s\\([ \t;]+\\|$\\)") \[ \t]*%s\\([ \t;]+\\|$\\)")
@ -153,8 +153,8 @@ ine-\\(?:derived\\|generic\\|\\(?:global\\(?:ized\\)?-\\)?minor\\)-mode\
"\\`define-obsolete-function-alias\\>" "\\`define-obsolete-function-alias\\>"
type) type)
'obsolete) 'obsolete)
;; Can't easily check alias arguments. ;; Can't easily check arguments in these cases.
((string-match "\\`defalias\\>" type) ((string-match "\\`\\(defalias\\|fset\\)\\>" type)
t) t)
((looking-at "\\((\\|nil\\)") ((looking-at "\\((\\|nil\\)")
(byte-compile-arglist-signature (byte-compile-arglist-signature
@ -176,7 +176,7 @@ ine-\\(?:derived\\|generic\\|\\(?:global\\(?:ized\\)?-\\)?minor\\)-mode\
;; arglist t means no arglist specified, as ;; arglist t means no arglist specified, as
;; opposed to an empty arglist. ;; opposed to an empty arglist.
((eq arglist t) nil) ((eq arglist t) nil)
((eq sig t) nil) ; defalias, can't check ((eq sig t) nil) ; eg defalias - can't check arguments
((eq sig 'err) ((eq sig 'err)
"arglist not found") ; internal error "arglist not found") ; internal error
((not (equal (byte-compile-arglist-signature ((not (equal (byte-compile-arglist-signature