mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-15 09:47:20 +00:00
Code Issues Releases Activity

Remove obsolete comments and commented code from dired-x.el

Browse Source 
* 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.
This commit is contained in:
Reuben Thomas 2016-11-08 22:04:52 +00:00
parent e22cca7d23
commit 9effa4bfeb
1 changed files with 0 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

26
lisp/dired-x.el
View File

@ -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.