comparison lisp/progmodes/tcl.el @ 7781:22449aa6d5ae

Another menu fix.

7780:98874151109a

;; Maintainer: Tom Tromey <[e-mail]>
;; Author: Tom Tromey <[e-mail]>
;;    Chris Lindblad <[e-mail]>
;; Keywords: languages tcl modes
;; Version: $Revision: 1.17 $

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by

;;; Commentary:

;; LCD Archive Entry:
;; tcl|Tom Tromey|[e-mail]|
;; Major mode for editing Tcl|
;; $Date: 1994/06/03 00:47:15 $|$Revision: 1.17 $|~/modes/tcl.el.Z|

;; CUSTOMIZATION NOTES:
;; * tcl-proc-list can be used to customize a list of things that
;; "define" other things.  Eg in my project I put "defvar" in this
;; list.

;; * tcl-type-alist can be used to minimally customize indentation
;; according to context.

;; Change log:
;; $Log: tcl.el,v $
; Revision 1.17  1994/06/03  00:47:15  tromey
; Fixed bug in bug-reporting code.
;
; Revision 1.16  1994/05/26  05:06:14  tromey
; Menu items now sensitive as appropriate.

       (if (and (string-match "19\\." emacs-version)
		(not (string-match "Lucid" emacs-version)))
	   (require 'imenu))
       ()))

(defconst tcl-version "$Revision: 1.17 $")
(defconst tcl-maintainer "Tom Tromey <[e-mail]>")

;;
;; User variables.
;;

    ["Comment region" comment-region (tcl-mark)]
    ["Uncomment region" tcl-uncomment-region (tcl-mark)]
    "----"
    ["Show Tcl process buffer" inferior-tcl t]
    ["Send function to Tcl process" tcl-eval-defun
     (and inferior-tcl (get-buffer inferior-tcl-buffer))]
    ["Send region to Tcl process" tcl-eval-region
     (and inferior-tcl (get-buffer inferior-tcl-buffer))]
    ["Send file to Tcl process" tcl-load-file
     (and inferior-tcl (get-buffer inferior-tcl-buffer))]
    ["Restart Tcl process with file" tcl-restart-with-file t]
    "----"
    ["Tcl help" tcl-help-on-word tcl-help-directory-list]
    ["Send bug report" tcl-submit-bug-report t])
  "Lucid Emacs menu for Tcl mode.")

7781:22449aa6d5ae

;; Maintainer: Tom Tromey <[e-mail]>
;; Author: Tom Tromey <[e-mail]>
;;    Chris Lindblad <[e-mail]>
;; Keywords: languages tcl modes
;; Version: $Revision: 1.18 $

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by

;;; Commentary:

;; LCD Archive Entry:
;; tcl|Tom Tromey|[e-mail]|
;; Major mode for editing Tcl|
;; $Date: 1994/06/03 20:39:14 $|$Revision: 1.18 $|~/modes/tcl.el.Z|

;; CUSTOMIZATION NOTES:
;; * tcl-proc-list can be used to customize a list of things that
;; "define" other things.  Eg in my project I put "defvar" in this
;; list.

;; * tcl-type-alist can be used to minimally customize indentation
;; according to context.

;; Change log:
;; $Log: tcl.el,v $
; Revision 1.18  1994/06/03  20:39:14  tromey
; Fixed menu bug.
;
; Revision 1.17  1994/06/03  00:47:15  tromey
; Fixed bug in bug-reporting code.
;
; Revision 1.16  1994/05/26  05:06:14  tromey
; Menu items now sensitive as appropriate.

       (if (and (string-match "19\\." emacs-version)
		(not (string-match "Lucid" emacs-version)))
	   (require 'imenu))
       ()))

(defconst tcl-version "$Revision: 1.18 $")
(defconst tcl-maintainer "Tom Tromey <[e-mail]>")

;;
;; User variables.
;;

    ["Comment region" comment-region (tcl-mark)]
    ["Uncomment region" tcl-uncomment-region (tcl-mark)]
    "----"
    ["Show Tcl process buffer" inferior-tcl t]
    ["Send function to Tcl process" tcl-eval-defun
     (and inferior-tcl-buffer (get-buffer inferior-tcl-buffer))]
    ["Send region to Tcl process" tcl-eval-region
     (and inferior-tcl-buffer (get-buffer inferior-tcl-buffer))]
    ["Send file to Tcl process" tcl-load-file
     (and inferior-tcl-buffer (get-buffer inferior-tcl-buffer))]
    ["Restart Tcl process with file" tcl-restart-with-file t]
    "----"
    ["Tcl help" tcl-help-on-word tcl-help-directory-list]
    ["Send bug report" tcl-submit-bug-report t])
  "Lucid Emacs menu for Tcl mode.")