diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2018-03-29 17:41:11 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2018-03-29 17:43:08 -0700 |
| commit | 20b858ef13f8f71fae6cbce5cdac31c4dd130600 (patch) | |
| tree | 861786941f43a58fa282a5a019d3948904b10a9c /lisp/help-fns.el | |
| parent | 00c1f771f2a51ffa675ec5a07ea330f2605cd302 (diff) | |
| download | emacs-20b858ef13f8f71fae6cbce5cdac31c4dd130600.tar.gz emacs-20b858ef13f8f71fae6cbce5cdac31c4dd130600.tar.bz2 emacs-20b858ef13f8f71fae6cbce5cdac31c4dd130600.zip | |
Prefer \... to control chars in .el literals
Diffstat (limited to 'lisp/help-fns.el')
| -rw-r--r-- | lisp/help-fns.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/help-fns.el b/lisp/help-fns.el index a592809de6a..ec46a479ed8 100644 --- a/lisp/help-fns.el +++ b/lisp/help-fns.el @@ -181,8 +181,8 @@ KIND should be `var' for a variable or `subr' for a subroutine." (expand-file-name internal-doc-file-name doc-directory))) (let ((file (catch 'loop (while t - (let ((pnt (search-forward (concat " " name "\n")))) - (re-search-backward " S\\(.*\\)") + (let ((pnt (search-forward (concat "\^_" name "\n")))) + (re-search-backward "\^_S\\(.*\\)") (let ((file (match-string 1))) (if (member file build-files) (throw 'loop file) @@ -1293,7 +1293,7 @@ BUFFER should be a buffer or a buffer name." ".AU Richard M. Stallman\n") (insert-file-contents file) (let (notfirst) - (while (search-forward " " nil 'move) + (while (search-forward "\^_" nil 'move) (if (= (following-char) ?S) (delete-region (1- (point)) (line-end-position)) (delete-char -1) @@ -1326,12 +1326,12 @@ BUFFER should be a buffer or a buffer name." (insert "@") (forward-char 1)) (goto-char (point-min)) - (while (search-forward " " nil t) + (while (search-forward "\^_" nil t) (when (/= (following-char) ?S) (setq type (char-after) name (buffer-substring (1+ (point)) (line-end-position)) doc (buffer-substring (line-beginning-position 2) - (if (search-forward " " nil 'move) + (if (search-forward "\^_" nil 'move) (1- (point)) (point))) alist (cons (list name type doc) alist)) |