mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2025-12-14 01:50:22 -08:00
Code Issues Projects Releases Wiki Activity

(file-relative-name): If we use default-directory,

Browse source 
call expand-file-name anyway.
This commit is contained in:
Richard M. Stallman 1993-07-08 03:04:52 +00:00
parent fe3371ef58
commit 77fb6aed82
1 changed files with 2 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

5
lisp/files.el
View file

@ -1321,9 +1321,8 @@ Value is a list whose car is the name for the backup file
(defun file-relative-name (filename &optional directory) (defun file-relative-name (filename &optional directory)
"Convert FILENAME to be relative to DIRECTORY (default: default-directory)." "Convert FILENAME to be relative to DIRECTORY (default: default-directory)."
(setq filename (expand-file-name filename) (setq filename (expand-file-name filename)
directory (file-name-as-directory (if directory directory (file-name-as-directory (expand-file-name
(expand-file-name directory) (or directory default-directory))))
default-directory)))
(file-relative-name-1 directory)) (file-relative-name-1 directory))
(defun save-buffer (&optional args) (defun save-buffer (&optional args)