diff options
| author | Roland McGrath <roland@gnu.org> | 1992-09-27 02:25:31 +0000 |
|---|---|---|
| committer | Roland McGrath <roland@gnu.org> | 1992-09-27 02:25:31 +0000 |
| commit | 6c636af99b672bba196a6fd2d08c950485d18845 (patch) | |
| tree | 6b1a6cbdcec8b6031c2b6655328683df5112c54c /lisp/files.el | |
| parent | 1d30b62aa7d30ebfd9fd5cf3101f153b9852ce4a (diff) | |
| download | emacs-6c636af99b672bba196a6fd2d08c950485d18845.tar.gz emacs-6c636af99b672bba196a6fd2d08c950485d18845.tar.bz2 emacs-6c636af99b672bba196a6fd2d08c950485d18845.zip | |
(file-relative-name): New function.
Diffstat (limited to 'lisp/files.el')
| -rw-r--r-- | lisp/files.el | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/lisp/files.el b/lisp/files.el index c98ea0ce7a0..0e14d0027f2 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -936,6 +936,15 @@ Value is a list whose car is the name for the backup file (defun file-nlinks (filename) "Return number of names file FILENAME has." (car (cdr (file-attributes filename)))) + +(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) + default-directory))) + (while (not (string-match (concat "^" (regexp-quote directory)) filename)) + (setq directory (file-name-directory (substring directory 0 -1)))) + (substring filename (match-end 0))) (defun save-buffer (&optional args) "Save current buffer in visited file if modified. Versions described below. |