1592 |
;; If the doc string starts with "Non-nil means" |
;; If the doc string starts with "Non-nil means" |
1593 |
(if (and (looking-at "\"\\*?Non-nil\\s-+means\\s-+") |
(if (and (looking-at "\"\\*?Non-nil\\s-+means\\s-+") |
1594 |
(not (string-match "-flag$" (car fp)))) |
(not (string-match "-flag$" (car fp)))) |
1595 |
(if (checkdoc-y-or-n-p |
(let ((newname |
1596 |
(format |
(if (string-match "-p$" (car fp)) |
1597 |
"Rename to %s and Query-Replace all occurances? " |
(concat (substring (car fp) 0 -2) "-flag") |
1598 |
(concat (car fp) "-flag"))) |
(concat (car fp) "-flag")))) |
1599 |
(progn |
(if (checkdoc-y-or-n-p |
1600 |
(beginning-of-defun) |
(format |
1601 |
(query-replace-regexp |
"Rename to %s and Query-Replace all occurances? " |
1602 |
(concat "\\<" (regexp-quote (car fp)) "\\>") |
newname)) |
1603 |
(concat (car fp) "-flag"))) |
(progn |
1604 |
(checkdoc-create-error |
(beginning-of-defun) |
1605 |
"Flag variable names should normally end in `-flag'" s |
(query-replace-regexp |
1606 |
(marker-position e)))) |
(concat "\\<" (regexp-quote (car fp)) "\\>") |
1607 |
|
newname)) |
1608 |
|
(checkdoc-create-error |
1609 |
|
"Flag variable names should normally end in `-flag'" s |
1610 |
|
(marker-position e))))) |
1611 |
;; Done with variables |
;; Done with variables |
1612 |
)) |
)) |
1613 |
(t |
(t |