diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2015-09-17 16:08:20 -0700 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2015-09-17 16:09:39 -0700 |
| commit | 284c470ef752967fcd8bae6a450dc138462b1e49 (patch) | |
| tree | 83e8bcfe4c756e741ee9d4ecdf80f6b8d0e73c91 /lisp/textmodes/refer.el | |
| parent | d149ff5233805c0a09b6067e0cf27549291cc83a (diff) | |
| download | emacs-284c470ef752967fcd8bae6a450dc138462b1e49.tar.gz | |
Backslash cleanup in Elisp source files
This patch should not change behavior. It typically omits backslashes
where they are redundant (e.g., in the string literal "^\$").
In a few places, insert backslashes where they make regular
expressions clearer: e.g., replace "^\*" (equivalent to "^*") with
"^\\*", which has the same effect as a regular expression.
Also, use ‘\ %’ instead of ‘\%’ when avoiding confusion with SCCS IDs,
and similarly use ‘\ $’ instead of ‘\$’ when avoiding confusion with
RCS IDs, as that makes it clearer that the backslash is intended.
Diffstat (limited to 'lisp/textmodes/refer.el')
| -rw-r--r-- | lisp/textmodes/refer.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/textmodes/refer.el b/lisp/textmodes/refer.el index 8d824ebad35..22dc7dc9165 100644 --- a/lisp/textmodes/refer.el +++ b/lisp/textmodes/refer.el @@ -229,7 +229,7 @@ found on the last `refer-find-entry' or `refer-find-next-entry'." (sit-for 1) (setq files (cdr files)))))) (ding) - (message "Keywords \"%s\" not found in any \.bib file" keywords)) + (message "Keywords \"%s\" not found in any .bib file" keywords)) (select-window old-window))) (defun refer-find-entry-in-file (keywords-list file &optional old-pos) @@ -351,21 +351,21 @@ found on the last `refer-find-entry' or `refer-find-next-entry'." (if (progn (goto-char (point-min)) (re-search-forward (concat refer-bib-files-regexp - "\\s-*\{") nil t)) + "\\s-*{") nil t)) (let ((files (list (buffer-substring (point) (progn - (re-search-forward "[,\}]" + (re-search-forward "[,}]" nil t) (backward-char 1) (point)))))) - (while (not (looking-at "\}")) + (while (not (looking-at "}")) (setq files (append files (list (buffer-substring (progn (forward-char 1) (point)) (progn (re-search-forward - "[,\}]" nil t) + "[,}]" nil t) (backward-char 1) (point))))))) files) |