Mercurial > emacs

comparison lisp/fast-lock.el @ 24726:e097c31382f8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(fast-lock-cache-name): Fix test for `windows-nt'.
author Karl Heuer <kwzh@gnu.org>
date Fri, 14 May 1999 08:47:12 +0000
parents c78112715e6c
children cbe304a26771
comparison
equal deleted inserted replaced
24725:269f6a206499 24726:e097c31382f8
550 See `fast-lock-cache-directory'." 550 See `fast-lock-cache-directory'."
551 (if (string-equal directory ".") 551 (if (string-equal directory ".")
552 (concat buffer-file-name ".flc") 552 (concat buffer-file-name ".flc")
553 (let* ((bufile (expand-file-name buffer-file-truename)) 553 (let* ((bufile (expand-file-name buffer-file-truename))
554 (chars-alist 554 (chars-alist
555 (if (memq system-type '(emx windowsnt)) 555 (if (memq system-type '(emx windows-nt))
556 '((?/ . (?#)) (?# . (?# ?#)) (?: . (?\;)) (?\; . (?\; ?\;))) 556 '((?/ . (?#)) (?# . (?# ?#)) (?: . (?\;)) (?\; . (?\; ?\;)))
557 '((?/ . (?#)) (?# . (?# ?#))))) 557 '((?/ . (?#)) (?# . (?# ?#)))))
558 (mapchars 558 (mapchars
559 (function (lambda (c) (or (cdr (assq c chars-alist)) (list c)))))) 559 (function (lambda (c) (or (cdr (assq c chars-alist)) (list c))))))
560 (concat 560 (concat