Mercurial > emacs
comparison lisp/fast-lock.el @ 24726:e097c31382f8
(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 |