diff options
author | Reuben Thomas <rrt@sc3d.org> | 2017-08-23 11:34:21 +0100 |
---|---|---|
committer | Reuben Thomas <rrt@sc3d.org> | 2017-08-23 23:52:24 +0100 |
commit | c71162e0f186a8e50a48629410e17e873ef55938 (patch) | |
tree | 68bf573ad11fee93fcc5138020bc43bd8129210b /lisp/files.el | |
parent | ad3cd227aa915ac1e671c27aa642da49bac5c463 (diff) | |
download | emacs-c71162e0f186a8e50a48629410e17e873ef55938.tar.gz |
Remove old duplicate commented code
* lisp/files.el (file-relative-name): Remove old commented version,
replaced 14 years ago in commit 753ad9889.
Diffstat (limited to 'lisp/files.el')
-rw-r--r-- | lisp/files.el | 40 |
1 files changed, 0 insertions, 40 deletions
diff --git a/lisp/files.el b/lisp/files.el index bc347c1d7df..be51c200e81 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -4733,46 +4733,6 @@ Uses `backup-directory-alist' in the same way as "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'). -;; This function returns a relative file name which is equivalent to FILENAME -;; when used with that default directory as the default. -;; If this is impossible (which can happen on MSDOS and Windows -;; when the file name and directory use different drive names) -;; then it returns FILENAME." -;; (save-match-data -;; (let ((fname (expand-file-name filename))) -;; (setq directory (file-name-as-directory -;; (expand-file-name (or directory default-directory)))) -;; ;; On Microsoft OSes, if FILENAME and DIRECTORY have different -;; ;; drive names, they can't be relative, so return the absolute name. -;; (if (and (or (eq system-type 'ms-dos) -;; (eq system-type 'cygwin) -;; (eq system-type 'windows-nt)) -;; (not (string-equal (substring fname 0 2) -;; (substring directory 0 2)))) -;; filename -;; (let ((ancestor ".") -;; (fname-dir (file-name-as-directory fname))) -;; (while (and (not (string-match (concat "^" (regexp-quote directory)) fname-dir)) -;; (not (string-match (concat "^" (regexp-quote directory)) fname))) -;; (setq directory (file-name-directory (substring directory 0 -1)) -;; ancestor (if (equal ancestor ".") -;; ".." -;; (concat "../" ancestor)))) -;; ;; Now ancestor is empty, or .., or ../.., etc. -;; (if (string-match (concat "^" (regexp-quote directory)) fname) -;; ;; We matched within FNAME's directory part. -;; ;; Add the rest of FNAME onto ANCESTOR. -;; (let ((rest (substring fname (match-end 0)))) -;; (if (and (equal ancestor ".") -;; (not (equal rest ""))) -;; ;; But don't bother with ANCESTOR if it would give us `./'. -;; rest -;; (concat (file-name-as-directory ancestor) rest))) -;; ;; We matched FNAME's directory equivalent. -;; ancestor)))))) - (defun file-relative-name (filename &optional directory) "Convert FILENAME to be relative to DIRECTORY (default: `default-directory'). This function returns a relative file name which is equivalent to FILENAME |