mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-26 10:49:33 +00:00
Code Issues Releases Activity

(checkdoc-this-string-valid-engine):

Browse Source 
Replace foo-p as var name with foo-flag, not foo-p-flag.
This commit is contained in:
Richard M. Stallman 2002-02-06 15:33:23 +00:00
parent e711842f4b
commit 1c511be4d9
1 changed files with 16 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
lisp/emacs-lisp/checkdoc.el
View File

@ -1592,18 +1592,22 @@ function,command,variable,option or symbol." ms1))))))
;; If the doc string starts with "Non-nil means"
(if (and (looking-at "\"\\*?Non-nil\\s-+means\\s-+")
(not (string-match "-flag$" (car fp))))
(if (checkdoc-y-or-n-p
(format
"Rename to %s and Query-Replace all occurances? "
(concat (car fp) "-flag")))
(progn
(beginning-of-defun)
(query-replace-regexp
(concat "\\<" (regexp-quote (car fp)) "\\>")
(concat (car fp) "-flag")))
(checkdoc-create-error
"Flag variable names should normally end in `-flag'" s
(marker-position e))))
(let ((newname
(if (string-match "-p$" (car fp))
(concat (substring (car fp) 0 -2) "-flag")
(concat (car fp) "-flag"))))
(if (checkdoc-y-or-n-p
(format
"Rename to %s and Query-Replace all occurances? "
newname))
(progn
(beginning-of-defun)
(query-replace-regexp
(concat "\\<" (regexp-quote (car fp)) "\\>")
newname))
(checkdoc-create-error
"Flag variable names should normally end in `-flag'" s
(marker-position e)))))
;; Done with variables
))
(t