diff options
| author | Richard M. Stallman <rms@gnu.org> | 1992-09-28 13:02:52 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1992-09-28 13:02:52 +0000 |
| commit | 46fa307385d0d53b3c32cbb006fe6a3d7ad4b7c4 (patch) | |
| tree | d0ed9a0224cf7168e89da8f7c785f808f72fbb57 /lisp/files.el | |
| parent | 3bcbd523b28a572022af20fc6988ce2efde3494e (diff) | |
| download | emacs-46fa307385d0d53b3c32cbb006fe6a3d7ad4b7c4.tar.gz emacs-46fa307385d0d53b3c32cbb006fe6a3d7ad4b7c4.tar.bz2 emacs-46fa307385d0d53b3c32cbb006fe6a3d7ad4b7c4.zip | |
(file-relative-name-1): New function split out.
(file-relative-name): Use it.
Diffstat (limited to 'lisp/files.el')
| -rw-r--r-- | lisp/files.el | 22 |
1 files changed, 11 insertions, 11 deletions
diff --git a/lisp/files.el b/lisp/files.el index db50e86dccb..f12609bdc96 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -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. |