mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-25 10:47:00 +00:00
Code Issues Releases Activity

(file-relative-name-1): New function split out.

Browse Source 
(file-relative-name): Use it.
This commit is contained in:
Richard M. Stallman 1992-09-28 13:02:52 +00:00
parent 3bcbd523b2
commit 46fa307385
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
lisp/files.el
View File

@ -937,23 +937,23 @@ Value is a list whose car is the name for the backup file
"Return number of names file FILENAME has."
(car (cdr (file-attributes filename))))
(defun file-relative-name-1 (directory)
(cond ((string= directory "/")
filename)
((string-match (concat "^" (regexp-quote directory))
filename)
(substring filename (match-end 0)))
(t
(file-relative-name-1
(file-name-directory (substring directory 0 -1))))))
(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 (if directory
(expand-file-name directory)
default-directory)))
(let ((strip (lambda (directory)
(cond ((string= directory "/")
filename)
((string-match (concat "^" (regexp-quote directory))
filename)
(substring filename (match-end 0)))
(t
(funcall strip
(file-name-directory (substring directory
0 -1))))))))
(funcall strip directory)))
(file-relative-name-1 directory))
(defun save-buffer (&optional args)
"Save current buffer in visited file if modified. Versions described below.