procyberian/emacs
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

*** empty log message ***

Browse source
This commit is contained in:
Jim Blandy 1992-07-17 22:17:57 +00:00
parent c0acc3e1cd
commit e373f20110
3 changed files with 23 additions and 8 deletions
Download patch file Download diff file Expand all files Collapse all files

18
lisp/files.el
View file

@ -327,10 +327,18 @@ otherwise a string <2> or <3> or ... is appended to get an unused name."
Choose the buffer's name using generate-new-buffer-name."
(get-buffer-create (generate-new-buffer-name name)))
(defconst automount-dir-prefix "^/tmp_mnt/"
"Regexp to match the automounter prefix in a directory name.")
(defun abbreviate-file-name (filename)
"Return a version of FILENAME shortened using directory-abbrev-alist.
This also substitutes \"~\" for the user's home directory.
See \\[describe-variable] directory-abbrev-alist RET for more information."
;; Get rid of the prefixes added by the automounter.
(if (and (string-match automount-dir-prefix filename)
(file-exists-p (file-name-directory
(substring filename (1- (match-end 0))))))
(setq filename (substring filename (1- (match-end 0)))))
(let ((tail directory-abbrev-alist))
(while tail
(if (string-match (car (car tail)) filename)
@ -347,13 +355,9 @@ See \\[describe-variable] directory-abbrev-alist RET for more information."
If a buffer exists visiting FILENAME, return that one, but
verify that the file has not changed since visited or saved.
The buffer is not selected, just returned to the caller."
(setq filename (expand-file-name filename))
;; Get rid of the prefixes added by the automounter.
(if (and (string-match "^/tmp_mnt/" filename)
(file-exists-p (file-name-directory
(substring filename (1- (match-end 0))))))
(setq filename (substring filename (1- (match-end 0)))))
(setq filename (abbreviate-file-name filename))
(setq filename
(abbreviate-file-name
(expand-file-name filename)))
(if (file-directory-p filename)
(if find-file-run-dired
(dired-noselect filename)

2
lisp/progmodes/etags.el
View file

@ -164,7 +164,7 @@ file the tag was in."
default-directory)
t)
current-prefix-arg))
(setq file (expand-file-name file))
(setq file (abbreviate-file-name (expand-file-name file)))
(if (file-directory-p file)
(setq file (expand-file-name "TAGS" file)))
(if local