Mercurial > emacs

comparison lisp/obsolete/fast-lock.el @ 104552:10c38084881d

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Remove code for defunct system-types emx, macos, mswindows, unisoft-unix, vax-vms, win32, w32.
author Glenn Morris <rgm@gnu.org>
date Sat, 22 Aug 2009 21:59:40 +0000
parents a9dc0e7c3f2b
children 1d1d5d9bd884
comparison
equal deleted inserted replaced
104551:dbd882f3da46 104552:10c38084881d
547 See `fast-lock-cache-directory'." 547 See `fast-lock-cache-directory'."
548 (if (string-equal directory ".") 548 (if (string-equal directory ".")
549 (concat buffer-file-name ".flc") 549 (concat buffer-file-name ".flc")
550 (let* ((bufile (expand-file-name buffer-file-truename)) 550 (let* ((bufile (expand-file-name buffer-file-truename))
551 (chars-alist 551 (chars-alist
552 (if (memq system-type '(emx windows-nt cygwin)) 552 (if (memq system-type '(windows-nt cygwin))
553 '((?/ . (?#)) (?# . (?# ?#)) (?: . (?\;)) (?\; . (?\; ?\;))) 553 '((?/ . (?#)) (?# . (?# ?#)) (?: . (?\;)) (?\; . (?\; ?\;)))
554 '((?/ . (?#)) (?# . (?# ?#))))) 554 '((?/ . (?#)) (?# . (?# ?#)))))
555 (mapchars 555 (mapchars
556 (function (lambda (c) (or (cdr (assq c chars-alist)) (list c)))))) 556 (function (lambda (c) (or (cdr (assq c chars-alist)) (list c))))))
557 (concat 557 (concat