From: Stefan Kangas <stefan@marxist.se>
Date: Sat, 9 Jul 2022 08:14:54 +0000 (+0200)
Subject: Move dired-buffer-more-recently-used-p to dired.el
X-Git-Tag: emacs-29.0.90~1447^2~1075
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=04f1396640f2af1a3be2ba48181c4e9242e6e77c;p=emacs.git

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

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.
diff --git a/lisp/dired.el b/lisp/dired.el
index 5769b73f638..bdcfc36a0e0 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