[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
master 3e3ba233cf: Remove some ancient Emacs compat code
From: |
Stefan Kangas |
Subject: |
master 3e3ba233cf: Remove some ancient Emacs compat code |
Date: |
Tue, 17 May 2022 18:32:15 -0400 (EDT) |
branch: master
commit 3e3ba233cfd8325cf75050b135e18eb5dfa56dc4
Author: Stefan Kangas <stefan@marxist.se>
Commit: Stefan Kangas <stefan@marxist.se>
Remove some ancient Emacs compat code
* lisp/cedet/mode-local.el (mode-local-describe-bindings-1):
* lisp/cedet/semantic/senator.el (senator-copy-tag-to-register):
* lisp/gnus/nnrss.el (nnrss-opml-export):
* lisp/net/newst-backend.el (newsticker-opml-export):
* lisp/textmodes/reftex.el (reftex-mode-menu):
* lisp/woman.el (woman-menu): Remove some ancient Emacs compat code.
---
lisp/cedet/mode-local.el | 7 +++----
lisp/cedet/semantic/senator.el | 9 +++------
lisp/gnus/nnrss.el | 3 +--
lisp/net/newst-backend.el | 3 +--
lisp/textmodes/reftex.el | 3 +--
lisp/woman.el | 3 +--
6 files changed, 10 insertions(+), 18 deletions(-)
diff --git a/lisp/cedet/mode-local.el b/lisp/cedet/mode-local.el
index b1a4fe4d54..ce37a28c35 100644
--- a/lisp/cedet/mode-local.el
+++ b/lisp/cedet/mode-local.el
@@ -877,10 +877,9 @@ META-NAME is a cons (OVERLOADABLE-SYMBOL . MAJOR-MODE)."
"Display mode local bindings active in BUFFER-OR-MODE.
Optional argument INTERACTIVE-P is non-nil if the calling command was
invoked interactively."
- (when (fboundp 'help-setup-xref)
- (help-setup-xref
- (list 'mode-local-describe-bindings-1 buffer-or-mode)
- interactive-p))
+ (help-setup-xref
+ (list 'mode-local-describe-bindings-1 buffer-or-mode)
+ interactive-p)
(with-output-to-temp-buffer (help-buffer) ; "*Help*"
(with-current-buffer standard-output
(mode-local-describe-bindings-2 buffer-or-mode))))
diff --git a/lisp/cedet/semantic/senator.el b/lisp/cedet/semantic/senator.el
index ebc4159a4c..1d16b024a5 100644
--- a/lisp/cedet/semantic/senator.el
+++ b/lisp/cedet/semantic/senator.el
@@ -735,12 +735,9 @@ yanked to."
Optional argument KILL-FLAG will delete the text of the tag to the
kill ring.
-Interactively, reads the register using `register-read-with-preview',
-if available."
- (interactive (list (if (fboundp 'register-read-with-preview)
- (register-read-with-preview "Tag to register: ")
- (read-char "Tag to register: "))
- current-prefix-arg))
+Interactively, reads the register using `register-read-with-preview'."
+ (interactive (list (register-read-with-preview "Tag to register: ")
+ current-prefix-arg))
(semantic-fetch-tags)
(let ((ft (semantic-obtain-foreign-tag)))
(when ft
diff --git a/lisp/gnus/nnrss.el b/lisp/gnus/nnrss.el
index 4ca53f108f..f740af3b6d 100644
--- a/lisp/gnus/nnrss.el
+++ b/lisp/gnus/nnrss.el
@@ -756,8 +756,7 @@ Export subscriptions to a buffer in OPML Format."
(insert " </body>\n"
"</opml>\n"))
(pop-to-buffer "*OPML Export*")
- (when (fboundp 'sgml-mode)
- (sgml-mode)))
+ (sgml-mode))
(defun nnrss-generate-download-script ()
"Generate a download script in the current buffer.
diff --git a/lisp/net/newst-backend.el b/lisp/net/newst-backend.el
index 113fbbaddf..7ae58884f9 100644
--- a/lisp/net/newst-backend.el
+++ b/lisp/net/newst-backend.el
@@ -2217,8 +2217,7 @@ Export subscriptions to a buffer in OPML Format."
(newsticker--opml-insert-feed (car f) 4)))
(insert " </body>\n</opml>\n")))
(pop-to-buffer "*OPML Export*")
- (when (fboundp 'sgml-mode)
- (sgml-mode)))
+ (sgml-mode))
(defun newsticker--opml-insert-elt (elt depth)
"Insert an OPML ELT with indentation level DEPTH."
diff --git a/lisp/textmodes/reftex.el b/lisp/textmodes/reftex.el
index 907d50889a..e72576cdc7 100644
--- a/lisp/textmodes/reftex.el
+++ b/lisp/textmodes/reftex.el
@@ -2257,8 +2257,7 @@ IGNORE-WORDS List of words which should be removed from
the string."
("Customize"
["Browse RefTeX Group" reftex-customize t]
"--"
- ["Build Full Customize Menu" reftex-create-customize-menu
- (fboundp 'customize-menu-create)])
+ ["Build Full Customize Menu" reftex-create-customize-menu])
("Documentation"
["Info" reftex-info t]
["Commentary" reftex-show-commentary t])))
diff --git a/lisp/woman.el b/lisp/woman.el
index c0c8f34348..fd5fee2005 100644
--- a/lisp/woman.el
+++ b/lisp/woman.el
@@ -1813,8 +1813,7 @@ Argument EVENT is the invoking mouse event."
"--"
["Describe (Wo)Man Mode" describe-mode t]
["Mini Help" woman-mini-help t]
- ,@(if (fboundp 'customize-group)
- '(["Customize..." (customize-group 'woman) t]))
+ ["Customize..." (customize-group 'woman) t]
"--"
("Advanced"
["View Source" (view-file woman-last-file-name) woman-last-file-name]
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- master 3e3ba233cf: Remove some ancient Emacs compat code,
Stefan Kangas <=