From: Stefan Kangas Date: Tue, 27 Oct 2020 21:32:37 +0000 (+0100) Subject: Remove some Emacs 20 compat code from speedbar.el X-Git-Tag: emacs-28.0.90~5376 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=12505df89f64c4a0fc77f6deebf513eb41bc1106;p=emacs.git Remove some Emacs 20 compat code from speedbar.el * lisp/speedbar.el (speedbar-easymenu-definition-trailer): Remove Emacs 20 compat code. --- diff --git a/lisp/speedbar.el b/lisp/speedbar.el index 9c5f028e4ab..991c8a33d46 100644 --- a/lisp/speedbar.el +++ b/lisp/speedbar.el @@ -899,12 +899,9 @@ This basically creates a sparse keymap, and makes its parent be "Additional menu items while in file-mode.") (defvar speedbar-easymenu-definition-trailer - (append - (if (and (featurep 'custom) (fboundp 'custom-declare-variable)) - (list ["Customize..." speedbar-customize t])) - (list + '(["Customize..." speedbar-customize t] ["Close" dframe-close-frame t] - ["Quit" delete-frame t] )) + ["Quit" delete-frame t]) "Menu items appearing at the end of the speedbar menu.") (defvar speedbar-desired-buffer nil