diff options
| author | Stefan Kangas <stefan@marxist.se> | 2020-11-19 06:42:46 +0100 |
|---|---|---|
| committer | Stefan Kangas <stefan@marxist.se> | 2020-11-19 20:43:51 +0100 |
| commit | 75555b5b6bc517911404fc769b02f583e40f6c35 (patch) | |
| tree | 024567695b0e966474688e1955398daf26321288 /lisp/cedet/semantic/bovine | |
| parent | 3963aea4f4a22da0c1fb8ca8ca80b59c58373811 (diff) | |
| download | emacs-75555b5b6bc517911404fc769b02f583e40f6c35.tar.gz | |
Remove some compat code for old versions and XEmacs
* lisp/ibuf-ext.el (ibuffer-old-saved-filters-warning)
(ibuffer-maybe-save-stuff): Assume customize-save-variable is
bound; it is autoloaded.
* lisp/cedet/semantic/symref/grep.el (semantic-symref-perform-search):
* lisp/password-cache.el (password-cache-remove):
* lisp/cedet/semantic/bovine/el.el (semantic-dependency-tag-file):
Remove Emacs 21 compat code.
* lisp/cedet/semantic/sort.el (semantic-string-lessp-ci):
Remove Emacs 20 compat code.
* test/lisp/cedet/semantic-utest.el (semantic-utest-temp-directory):
* lisp/mail/supercite.el (sc-ask): Remove XEmacs compat code.
* lisp/progmodes/idlw-shell.el (idlwave-shell-mode):
* lisp/progmodes/idlwave.el (idlwave-mode): Remove commented out
compat code.
Diffstat (limited to 'lisp/cedet/semantic/bovine')
| -rw-r--r-- | lisp/cedet/semantic/bovine/el.el | 26 |
1 files changed, 5 insertions, 21 deletions
diff --git a/lisp/cedet/semantic/bovine/el.el b/lisp/cedet/semantic/bovine/el.el index bbed1d94f20..2f05b99e467 100644 --- a/lisp/cedet/semantic/bovine/el.el +++ b/lisp/cedet/semantic/bovine/el.el @@ -464,27 +464,11 @@ Return a bovination list to use." (define-mode-local-override semantic-dependency-tag-file emacs-lisp-mode (tag) "Find the file BUFFER depends on described by TAG." - (if (fboundp 'find-library-name) - (condition-case nil - ;; Try an Emacs 22 fcn. This throws errors. - (find-library-name (semantic-tag-name tag)) - (error - (message "semantic: cannot find source file %s" - (semantic-tag-name tag)))) - ;; No handy function available. (Older Emacsen) - (let* ((lib (locate-library (semantic-tag-name tag))) - (name (if lib (file-name-sans-extension lib) nil)) - (nameel (concat name ".el"))) - (cond - ((and name (file-exists-p nameel)) nameel) - ((and name (file-exists-p (concat name ".el.gz"))) - ;; This is the linux distro case. - (concat name ".el.gz")) - ;; Source file does not exist. - (name - (message "semantic: cannot find source file %s" (concat name ".el"))) - (t - nil))))) + (condition-case nil + (find-library-name (semantic-tag-name tag)) + (error + (message "semantic: cannot find source file %s" + (semantic-tag-name tag))))) ;;; DOC Strings ;; |