aboutsummaryrefslogtreecommitdiffstats
path: root/lisp/obsolete
diff options
context:
space:
mode:
authorMiles Bader2007-08-13 13:41:28 +0000
committerMiles Bader2007-08-13 13:41:28 +0000
commit37cc095b6a175fb5a2fb18fa029eaf3aa3b3fa53 (patch)
tree7fb68e80f66e55100c48b9751cf70c74af2d4bf1 /lisp/obsolete
parent031b6333283be57d971e557b83da31c6be937b0a (diff)
parent9d2db4c6637fe37d75f947063bcb2ecce319a1bc (diff)
downloademacs-37cc095b6a175fb5a2fb18fa029eaf3aa3b3fa53.tar.gz
emacs-37cc095b6a175fb5a2fb18fa029eaf3aa3b3fa53.zip
Merge from emacs--rel--22
Revision: emacs@sv.gnu.org/emacs--devo--0--patch-851
Diffstat (limited to 'lisp/obsolete')
-rw-r--r--lisp/obsolete/fast-lock.el2
1 files changed, 1 insertions, 1 deletions
diff --git a/lisp/obsolete/fast-lock.el b/lisp/obsolete/fast-lock.el
index a2405b0edb2..569771143e3 100644
--- a/lisp/obsolete/fast-lock.el
+++ b/lisp/obsolete/fast-lock.el
@@ -523,7 +523,7 @@ See `fast-lock-cache-directories'."
523 ;; Just a directory. 523 ;; Just a directory.
524 directory) 524 directory)
525 (t 525 (t
526 ;; A directory iff the file name matches the regexp. 526 ;; A directory if the file name matches the regexp.
527 (let ((bufile (expand-file-name buffer-file-truename)) 527 (let ((bufile (expand-file-name buffer-file-truename))
528 (case-fold-search nil)) 528 (case-fold-search nil))
529 (when (save-match-data (string-match (car directory) bufile)) 529 (when (save-match-data (string-match (car directory) bufile))