Changeset 4161 for trunk/lisp/files.el
- Timestamp:
- 09/09/06 16:30:10 (2 years ago)
- Files:
-
- trunk/lisp/files.el (modified) (3 diffs)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
trunk/lisp/files.el
r4140 r4161 1311 1311 (let ((abbreviated-home-dir "$foo")) 1312 1312 (concat "^" (abbreviate-file-name (expand-file-name "~")) 1313 "\\(/\\| $\\)"))))1313 "\\(/\\|\\'\\)")))) 1314 1314 1315 1315 ;; If FILENAME starts with the abbreviated homedir, … … 2697 2697 * Its name ends with \"hook(s)\", \"function(s)\", \"form(s)\", \"map\", 2698 2698 \"program\", \"command(s)\", \"predicate(s)\", \"frame-alist\", 2699 \"mode-alist\", \"font-lock-(syntactic-)keyword*\", or2700 \"map-alist\" ."2699 \"mode-alist\", \"font-lock-(syntactic-)keyword*\", 2700 \"map-alist\", or \"bindat-spec\"." 2701 2701 ;; If this is an alias, check the base name. 2702 2702 (condition-case nil … … 2707 2707 -commands?$\\|-predicates?$\\|font-lock-keywords$\\|font-lock-keywords\ 2708 2708 -[0-9]+$\\|font-lock-syntactic-keywords$\\|-frame-alist$\\|-mode-alist$\\|\ 2709 -map$\\|-map-alist$ " (symbol-name sym))))2709 -map$\\|-map-alist$\\|-bindat-spec$" (symbol-name sym)))) 2710 2710 2711 2711 (defun hack-one-local-variable-quotep (exp)
