summaryrefslogtreecommitdiff
path: root/lisp/dired-x.el
diff options
context:
space:
mode:
authorStefan Kangas <stefan@marxist.se>2022-07-09 10:14:54 +0200
committerStefan Kangas <stefan@marxist.se>2022-07-09 11:47:52 +0200
commit04f1396640f2af1a3be2ba48181c4e9242e6e77c (patch)
treed22ede18aa54120e1aac8ab023f7f4c81e01e850 /lisp/dired-x.el
parentac7b90e323eb375d5ff48fb24df206dc6336e656 (diff)
downloademacs-04f1396640f2af1a3be2ba48181c4e9242e6e77c.tar.gz
Move dired-buffer-more-recently-used-p to dired.el
* lisp/dired-x.el (dired-buffer-more-recently-used-p): Move from here... * lisp/dired.el (dired-buffer-more-recently-used-p): ...to here.
Diffstat (limited to 'lisp/dired-x.el')
-rw-r--r--lisp/dired-x.el8
1 files changed, 0 insertions, 8 deletions
diff --git a/lisp/dired-x.el b/lisp/dired-x.el
index 796625058be..4d66ab6f128 100644
--- a/lisp/dired-x.el
+++ b/lisp/dired-x.el
@@ -1138,14 +1138,6 @@ otherwise."
;;; Miscellaneous internal functions
-;; This should be a builtin
-(defun dired-buffer-more-recently-used-p (buffer1 buffer2)
- "Return t if BUFFER1 is more recently used than BUFFER2.
-Considers buffers closer to the car of `buffer-list' to be more recent."
- (and (not (equal buffer1 buffer2))
- (memq buffer1 (buffer-list))
- (not (memq buffer1 (memq buffer2 (buffer-list))))))
-
;; Needed if ls -lh is supported and also for GNU ls -ls.
(defun dired-x--string-to-number (str)
"Like `string-to-number' but recognize a trailing unit prefix.