emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/denote f3b09f95c2: Re-indent form


From: ELPA Syncer
Subject: [elpa] externals/denote f3b09f95c2: Re-indent form
Date: Sat, 6 Aug 2022 14:57:29 -0400 (EDT)

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

    Re-indent form
---
 denote.el | 36 ++++++++++++++++++------------------
 1 file changed, 18 insertions(+), 18 deletions(-)

diff --git a/denote.el b/denote.el
index 36c75522b8..54ffb026ab 100644
--- a/denote.el
+++ b/denote.el
@@ -1175,24 +1175,24 @@ appropriate."
              (new-title title)
              (new-keywords (denote--format-front-matter-keywords
                             keywords (denote--filetype-heuristics file))))
-      (with-current-buffer (find-file-noselect file)
-        (when (y-or-n-p (format
-                         "Replace front matter?\n-%s\n+%s\n\n-%s\n+%s?"
-                         (propertize old-title 'face 'error)
-                         (propertize new-title 'face 'success)
-                         (propertize old-keywords 'face 'error)
-                         (propertize new-keywords 'face 'success)))
-          (save-excursion
-            (save-restriction
-              (widen)
-              (goto-char (point-min))
-              (re-search-forward 
denote--retrieve-title-front-matter-key-regexp nil t 1)
-              (search-forward old-title nil t 1)
-              (replace-match (concat "\\1" new-title) t)
-              (goto-char (point-min))
-              (re-search-forward 
denote--retrieve-keywords-front-matter-key-regexp nil t 1)
-              (search-forward old-keywords nil t 1)
-              (replace-match (concat "\\1" new-keywords) t)))))))
+    (with-current-buffer (find-file-noselect file)
+      (when (y-or-n-p (format
+                       "Replace front matter?\n-%s\n+%s\n\n-%s\n+%s?"
+                       (propertize old-title 'face 'error)
+                       (propertize new-title 'face 'success)
+                       (propertize old-keywords 'face 'error)
+                       (propertize new-keywords 'face 'success)))
+        (save-excursion
+          (save-restriction
+            (widen)
+            (goto-char (point-min))
+            (re-search-forward denote--retrieve-title-front-matter-key-regexp 
nil t 1)
+            (search-forward old-title nil t 1)
+            (replace-match (concat "\\1" new-title) t)
+            (goto-char (point-min))
+            (re-search-forward 
denote--retrieve-keywords-front-matter-key-regexp nil t 1)
+            (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")



reply via email to

[Prev in Thread] Current Thread [Next in Thread]