[elpa] externals/denote d57da9f475 1/9: Reposition helper function in the file

[ELPA Syncer]

branch: externals/denote
commit d57da9f475105ed4fc80af27df6f8676119c00fb
Author: Protesilaos Stavrou <info@protesilaos.com>
Commit: Protesilaos Stavrou <info@protesilaos.com>

    Reposition helper function in the file
---
 denote.el | 56 ++++++++++++++++++++++++++++----------------------------
 1 file changed, 28 insertions(+), 28 deletions(-)

diff --git a/denote.el b/denote.el
index 2a3944532e..d2c6f37df0 100644
--- a/denote.el
+++ b/denote.el
@@ -1166,34 +1166,6 @@ operation on multiple files."
           (search-forward old-keywords nil t 1)
           (replace-match (concat "\\1" new-keywords) t))))))
 
-(make-obsolete 'denote-dired-rename-expert nil "0.5.0")
-(make-obsolete 'denote-dired-post-rename-functions nil "0.4.0")
-
-;;;;; The renaming commands and their prompts
-
-(defun denote--rename-dired-file-or-prompt ()
-  "Return Dired file at point, else prompt for one.
-
-Throw error is FILE is not regular, else return FILE."
-  (or (dired-get-filename nil t)
-      (let* ((file (buffer-file-name))
-             (format (if file
-                         (format "Rename file Denote-style [%s]: " file)
-                       "Rename file Denote-style: "))
-             (selected-file (read-file-name format nil file t nil)))
-        (if (or (file-directory-p selected-file)
-                (not (file-regular-p selected-file)))
-            (user-error "Only rename regular files")
-          selected-file))))
-
-(defun denote--rename-file-prompt (old-name new-name)
-  "Prompt to rename file named OLD-NAME to NEW-NAME."
-  (unless (string= (expand-file-name old-name) (expand-file-name new-name))
-    (y-or-n-p
-     (format "Rename %s to %s?"
-             (propertize (file-name-nondirectory old-name) 'face 'error)
-             (propertize (file-name-nondirectory new-name) 'face 'success)))))
-
 ;; FIXME 2022-07-25: We should make the underlying regular expressions
 ;; that `denote--retrieve-value-title' targets more refined, so that we
 ;; capture eveyrhing at once.
@@ -1226,6 +1198,34 @@ appropriate."
               (search-forward old-keywords nil t 1)
               (replace-match (concat "\\1" new-keywords) t)))))))
 
+(make-obsolete 'denote-dired-rename-expert nil "0.5.0")
+(make-obsolete 'denote-dired-post-rename-functions nil "0.4.0")
+
+;;;;; The renaming commands and their prompts
+
+(defun denote--rename-dired-file-or-prompt ()
+  "Return Dired file at point, else prompt for one.
+
+Throw error is FILE is not regular, else return FILE."
+  (or (dired-get-filename nil t)
+      (let* ((file (buffer-file-name))
+             (format (if file
+                         (format "Rename file Denote-style [%s]: " file)
+                       "Rename file Denote-style: "))
+             (selected-file (read-file-name format nil file t nil)))
+        (if (or (file-directory-p selected-file)
+                (not (file-regular-p selected-file)))
+            (user-error "Only rename regular files")
+          selected-file))))
+
+(defun denote--rename-file-prompt (old-name new-name)
+  "Prompt to rename file named OLD-NAME to NEW-NAME."
+  (unless (string= (expand-file-name old-name) (expand-file-name new-name))
+    (y-or-n-p
+     (format "Rename %s to %s?"
+             (propertize (file-name-nondirectory old-name) 'face 'error)
+             (propertize (file-name-nondirectory new-name) 'face 'success)))))
+
 ;;;###autoload
 (defun denote-rename-file (file title keywords)
   "Rename file and update existing front matter if appropriate.