emacs-diffs
[Top][All Lists]
Advanced

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

master ff87aecf855: Address "Useless clause following default cond claus


From: Stefan Monnier
Subject: master ff87aecf855: Address "Useless clause following default cond clause" warnings
Date: Tue, 12 Sep 2023 12:59:12 -0400 (EDT)

branch: master
commit ff87aecf8554042b043467a7aaff1a758df0bbae
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    Address "Useless clause following default cond clause" warnings
    
    * lisp/gnus/message.el (message-position-point): Fix paren typo.
    
    * lisp/org/org.el: Remove dead-code.
---
 lisp/gnus/message.el | 4 ++--
 lisp/org/org.el      | 4 +---
 2 files changed, 3 insertions(+), 5 deletions(-)

diff --git a/lisp/gnus/message.el b/lisp/gnus/message.el
index b8ea529d51c..b6b9927a788 100644
--- a/lisp/gnus/message.el
+++ b/lisp/gnus/message.el
@@ -6595,8 +6595,8 @@ they are."
     (widen)
     (forward-line 1)
     (unless (looking-at "$")
-      (forward-line 2)))
-   (sit-for 0)))
+      (forward-line 2))))
+  (sit-for 0))
 
 (defcustom message-beginning-of-line t
   "Whether \\<message-mode-map>\\[message-beginning-of-line]\
diff --git a/lisp/org/org.el b/lisp/org/org.el
index b18a446e4d4..9a0bcf7dd66 100644
--- a/lisp/org/org.el
+++ b/lisp/org/org.el
@@ -18872,9 +18872,7 @@ ELEMENT."
             (goto-char start)
             (current-indentation)))
          ;; In any other case, indent like the current line.
-         (t (current-indentation)))))
-      ;; Finally, no indentation is needed, fall back to 0.
-      (t (current-indentation))))))
+         (t (current-indentation)))))))))
 
 (defun org--align-node-property ()
   "Align node property at point.



reply via email to

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