Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-16 17:24:23 +00:00
Code Issues Projects Releases Packages Wiki Activity

Remove XEmacs compat code from tcl.el

Browse source 
* lisp/progmodes/tcl.el (tcl-mode): Remove XEmacs compat code.
(tcl-popup-menu): Declare obsolete.
This commit is contained in:
Stefan Kangas 2019-10-17 13:13:05 +02:00
parent bf5a72ac94
commit 96fe257e73
1 changed files with 3 additions and 18 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

21
lisp/progmodes/tcl.el
View file

@ -604,9 +604,6 @@ already exist."
(set (make-local-variable 'dabbrev-abbrev-char-regexp) "\\sw\\|\\s_")
(set (make-local-variable 'parse-sexp-ignore-comments) t)
;; XEmacs has defun-prompt-regexp, but I don't believe
;; that it works for end-of-defun -- only for
;; beginning-of-defun.
(set (make-local-variable 'defun-prompt-regexp) tcl-omit-ws-regexp)
(set (make-local-variable 'add-log-current-defun-function)
'tcl-add-log-defun)
@ -614,11 +611,7 @@ already exist."
(setq-local beginning-of-defun-function #'tcl-beginning-of-defun-function)
(setq-local end-of-defun-function #'tcl-end-of-defun-function)
(easy-menu-add tcl-mode-menu)
;; Append Tcl menu to popup menu for XEmacs.
(if (boundp 'mode-popup-menu)
(setq mode-popup-menu
(cons (concat mode-name " Mode Commands") tcl-mode-menu))))
(easy-menu-add tcl-mode-menu))
@ -1541,17 +1534,9 @@ The first line is assumed to look like \"#!.../program ...\"."
(if (looking-at "#![^ \t]*/\\([^ \t\n/]+\\)\\([ \t]\\|$\\)")
(set (make-local-variable 'tcl-application) (match-string 1)))))
;;
;; XEmacs menu support.
;; Taken from schmid@fb3-s7.math.TU-Berlin.DE (Gregor Schmid),
;; who wrote a different Tcl mode.
;; We also have support for menus in Emacs. We do this by
;; loading the XEmacs menu emulation code.
;;
(defun tcl-popup-menu (_e)
"XEmacs menu support."
(declare (obsolete nil "27.1"))
(interactive "@e")
(popup-menu tcl-mode-menu))