summaryrefslogtreecommitdiff
path: root/lisp/files.el
diff options
context:
space:
mode:
authorKevin Ryde <user42@zip.com.au>2012-12-17 10:51:49 -0500
committerStefan Monnier <monnier@iro.umontreal.ca>2012-12-17 10:51:49 -0500
commit191562422a2d6d54214e24c349a471ac21ebf178 (patch)
treed753606e6b0b918583f1c7bd85c867efee06228d /lisp/files.el
parent53b6a8b11383585ae8a175bf53964e35e889d338 (diff)
downloademacs-191562422a2d6d54214e24c349a471ac21ebf178.tar.gz
* lisp/files.el (auto-save-file-name-p): Use \` and \'.
Fixes: debbugs:13186
Diffstat (limited to 'lisp/files.el')
-rw-r--r--lisp/files.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/files.el b/lisp/files.el
index 3f29468e2d1..f076530fbc8 100644
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -5717,7 +5717,7 @@ See also `auto-save-file-name-p'."
(defun auto-save-file-name-p (filename)
"Return non-nil if FILENAME can be yielded by `make-auto-save-file-name'.
FILENAME should lack slashes. You can redefine this for customization."
- (string-match "^#.*#$" filename))
+ (string-match "\\`#.*#\\'" filename))
(defun wildcard-to-regexp (wildcard)
"Given a shell file name pattern WILDCARD, return an equivalent regexp.