diff options
| author | Stefan Monnier | 2023-09-12 12:59:03 -0400 |
|---|---|---|
| committer | Stefan Monnier | 2023-09-12 12:59:03 -0400 |
| commit | ff87aecf8554042b043467a7aaff1a758df0bbae (patch) | |
| tree | 9127f53d412edd36d5cdc5d3230d443ab9791d39 | |
| parent | 68dd520e39eccb1be9366add1e3298318e5010de (diff) | |
| download | emacs-ff87aecf8554042b043467a7aaff1a758df0bbae.tar.gz emacs-ff87aecf8554042b043467a7aaff1a758df0bbae.zip | |
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.
| -rw-r--r-- | lisp/gnus/message.el | 4 | ||||
| -rw-r--r-- | 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." | |||
| 6595 | (widen) | 6595 | (widen) |
| 6596 | (forward-line 1) | 6596 | (forward-line 1) |
| 6597 | (unless (looking-at "$") | 6597 | (unless (looking-at "$") |
| 6598 | (forward-line 2))) | 6598 | (forward-line 2)))) |
| 6599 | (sit-for 0))) | 6599 | (sit-for 0)) |
| 6600 | 6600 | ||
| 6601 | (defcustom message-beginning-of-line t | 6601 | (defcustom message-beginning-of-line t |
| 6602 | "Whether \\<message-mode-map>\\[message-beginning-of-line]\ | 6602 | "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." | |||
| 18872 | (goto-char start) | 18872 | (goto-char start) |
| 18873 | (current-indentation))) | 18873 | (current-indentation))) |
| 18874 | ;; In any other case, indent like the current line. | 18874 | ;; In any other case, indent like the current line. |
| 18875 | (t (current-indentation))))) | 18875 | (t (current-indentation))))))))) |
| 18876 | ;; Finally, no indentation is needed, fall back to 0. | ||
| 18877 | (t (current-indentation)))))) | ||
| 18878 | 18876 | ||
| 18879 | (defun org--align-node-property () | 18877 | (defun org--align-node-property () |
| 18880 | "Align node property at point. | 18878 | "Align node property at point. |