[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 9effa4b 4/4: Remove obsolete comments and commented
From: |
Reuben Thomas |
Subject: |
[Emacs-diffs] master 9effa4b 4/4: Remove obsolete comments and commented code from dired-x.el |
Date: |
Fri, 2 Dec 2016 16:09:36 +0000 (UTC) |
branch: master
commit 9effa4bfebdb9d78339997253916602afbdc6b37
Author: Reuben Thomas <address@hidden>
Commit: Reuben Thomas <address@hidden>
Remove obsolete comments and commented code from dired-x.el
* lisp/dired-x.el (dired-mark-sexp): Remove a query from 1993 and its
1997 answer about whether dired-mark-sexp is used.
* lisp/dired-x.el (dired-buffers-for-dir-exact): Remove this function
commented out since before dired-x.el was added to RCS in 1994.
---
lisp/dired-x.el | 26 --------------------------
1 file changed, 26 deletions(-)
diff --git a/lisp/dired-x.el b/lisp/dired-x.el
index 2bebb69..1a844ae 100644
--- a/lisp/dired-x.el
+++ b/lisp/dired-x.el
@@ -1400,29 +1400,6 @@ Considers buffers closer to the car of `buffer-list' to
be more recent."
(memq buffer1 (buffer-list))
(not (memq buffer1 (memq buffer2 (buffer-list))))))
-;; Same thing as `dired-buffers-for-dir' of dired.el? - lrd 11/23/93
-;; (defun dired-buffers-for-dir-exact (dir)
-;; ;; Return a list of buffers that dired DIR (a directory or wildcard)
-;; ;; at top level, or as subdirectory.
-;; ;; Top level matches must match the wildcard part too, if any.
-;; ;; The list is in reverse order of buffer creation, most recent last.
-;; ;; As a side effect, killed dired buffers for DIR are removed from
-;; ;; dired-buffers.
-;; (let ((alist dired-buffers) result elt)
-;; (while alist
-;; (setq elt (car alist)
-;; alist (cdr alist))
-;; (let ((buf (cdr elt)))
-;; (if (buffer-name buf)
-;; ;; Top level must match exactly against dired-directory in
-;; ;; case one of them is a wildcard.
-;; (if (or (equal dir (with-current-buffer buf dired-directory))
-;; (assoc dir (with-current-buffer buf
dired-subdir-alist)))
-;; (setq result (cons buf result)))
-;; ;; else buffer is killed - clean up:
-;; (setq dired-buffers (delq elt dired-buffers)))))
-;; result))
-
;; Needed if ls -lh is supported and also for GNU ls -ls.
(defun dired-x--string-to-number (str)
@@ -1440,9 +1417,6 @@ sure that a trailing letter in STR is one of BKkMGTPEZY."
(setq val (* 1024.0 val)))))
val))
-;; Does anyone use this? - lrd 6/29/93.
-;; Apparently people do use it. - lrd 12/22/97.
-
(defun dired-mark-sexp (predicate &optional unflag-p)
"Mark files for which PREDICATE returns non-nil.
With a prefix arg, unmark or unflag those files instead.