mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-25 23:10:47 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/emacs-lisp/checkdoc.el (checkdoc-this-string-valid-engine):

Browse source 
Assume foo(bar) is a manpage reference rather than some unquoted symbol.

Fixes: debbugs:7705
This commit is contained in:
Jari Aalto 2011-01-21 13:12:32 -05:00 • committed by Stefan Monnier
parent d5e632d853
commit 26a2788480
2 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/ChangeLog
View file

@ -1,3 +1,8 @@
2011-01-21 Jari Aalto <jari.aalto@cante.net>
* emacs-lisp/checkdoc.el (checkdoc-this-string-valid-engine): (bug#7705)
Assume foo(bar) is a manpage reference rather than some unquoted symbol.
2011-01-21 Stefan Monnier <monnier@iro.umontreal.ca> 2011-01-21 Stefan Monnier <monnier@iro.umontreal.ca>
* subr.el (shell-quote-argument): Properly quote \n (bug#7687). * subr.el (shell-quote-argument): Properly quote \n (bug#7687).

4
lisp/emacs-lisp/checkdoc.el
View file

@ -1817,7 +1817,9 @@ Replace with \"%s\"? " original replace)
(let ((found nil) (start (point)) (msg nil) (ms nil)) (let ((found nil) (start (point)) (msg nil) (ms nil))
(while (and (not msg) (while (and (not msg)
(re-search-forward (re-search-forward
"[^-([`':a-zA-Z]\\(\\w+[:-]\\(\\w\\|\\s_\\)+\\)[^]']" ;; Ignore manual page refereces like
;; git-config(1).
"[^-([`':a-zA-Z]\\(\\w+[:-]\\(\\w\\|\\s_\\)+\\)[^](']"
e t)) e t))
(setq ms (match-string 1)) (setq ms (match-string 1))
;; A . is a \s_ char, so we must remove periods from ;; A . is a \s_ char, so we must remove periods from