From: Stefan Monnier Date: Tue, 12 Sep 2023 16:59:03 +0000 (-0400) Subject: Address "Useless clause following default cond clause" warnings X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=ff87aecf8554042b043467a7aaff1a758df0bbae;p=emacs.git 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. --- 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-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.