From de9d720dd7cec37572393917911cedbbf493e75b Mon Sep 17 00:00:00 2001 From: Reuben Thomas Date: Tue, 8 Nov 2016 22:04:52 +0000 Subject: [PATCH 4/5] 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 e1d8887..7d8376c 100644 --- a/lisp/dired-x.el +++ b/lisp/dired-x.el @@ -1385,29 +1385,6 @@ dired-buffer-more-recently-used-p (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) @@ -1425,9 +1402,6 @@ dired-x--string-to-number (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. -- 2.7.4