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

(file-relative-name): Don't lose when DIRECTORY is nil.

Browse source
This commit is contained in:
Roland McGrath 1992-09-27 02:27:00 +00:00
parent 6c636af99b
commit ea912aa694
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
lisp/files.el
View file

@ -940,7 +940,8 @@ Value is a list whose car is the name for the backup file
(defun file-relative-name (filename &optional directory)
"Convert FILENAME to be relative to DIRECTORY (default: default-directory)."
(setq filename (expand-file-name filename)
directory (file-name-as-directory (or (expand-file-name directory)
directory (file-name-as-directory (if directory
(expand-file-name directory)
default-directory)))
(while (not (string-match (concat "^" (regexp-quote directory)) filename))
(setq directory (file-name-directory (substring directory 0 -1))))