[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 04f1396640 2/5: Move dired-buffer-more-recently-used-p to dired.e
From: |
Stefan Kangas |
Subject: |
master 04f1396640 2/5: Move dired-buffer-more-recently-used-p to dired.el |
Date: |
Sat, 9 Jul 2022 05:50:20 -0400 (EDT) |
branch: master
commit 04f1396640f2af1a3be2ba48181c4e9242e6e77c
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>
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.
---
lisp/dired-x.el | 8 --------
lisp/dired.el | 11 ++++++++---
2 files changed, 8 insertions(+), 11 deletions(-)
diff --git a/lisp/dired-x.el b/lisp/dired-x.el
index 796625058b..4d66ab6f12 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.
diff --git a/lisp/dired.el b/lisp/dired.el
index 5769b73f63..bdcfc36a0e 100644
--- a/lisp/dired.el
+++ b/lisp/dired.el
@@ -40,9 +40,6 @@
(require 'dired-loaddefs nil t)
(require 'dnd)
-(declare-function dired-buffer-more-recently-used-p
- "dired-x" (buffer1 buffer2))
-
;;; Customizable variables
@@ -3505,6 +3502,14 @@ is the directory where the file on this line resides."
(point-max)
(point))))
+;; 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))))))
+
;;; Deleting files