Mercurial > emacs
comparison lisp/obsolete/fast-lock.el @ 104552:10c38084881d
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 |