From: Stefan Kangas <stefankangas@gmail.com>
Date: Thu, 17 Oct 2019 11:13:05 +0000 (+0200)
Subject: Remove XEmacs compat code from tcl.el
X-Git-Tag: emacs-27.0.90~1021
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=96fe257e73b3f692604de166423dbf2667bc2ec8;p=emacs.git

Remove XEmacs compat code from tcl.el

* lisp/progmodes/tcl.el (tcl-mode): Remove XEmacs compat code.
(tcl-popup-menu): Declare obsolete.
---

diff --git a/lisp/progmodes/tcl.el b/lisp/progmodes/tcl.el
index e5fdd272438..dcdc614c587 100644
--- a/lisp/progmodes/tcl.el
+++ b/lisp/progmodes/tcl.el
@@ -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))