comparison lisp/progmodes/tcl.el @ 35712:350ba5553ea3

(outline, dabbrev, add-log): Require when compiling. (tcl-using-emacs-19-23): Consider Emacs 21+. (tcl-help-directory-list, tcl-command-switches): Fix :type. (tcl-add-emacs-menu): Supply menu name. (tcl-beginning-of-defun, tcl-end-of-defun): Defalias, don't fset.

35711:f17e8743925c

;; tcl.el --- Tcl code editing commands for Emacs

;; Copyright (C) 1994, 1998, 1999, 2000  Free Software Foundation, Inc.

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

;; 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



;;; Code:

;; I sure wish Emacs had a package that made it easy to extract this
;; sort of information.  Strange definition works with XEmacs 20.0.
(defconst tcl-using-emacs-19 (not (string-match "18\\." emacs-version))
  "Non-nil if using Emacs 19.")

(defconst tcl-using-emacs-19-23
  (or (string-match "19\\.\\(2[3-9]\\|[3-9][0-9]\\)" emacs-version)
      (string-match "^20\\." emacs-version))
  "Non-nil if using Emacs 19-23 or later.")

(defconst tcl-using-xemacs-19 (string-match "XEmacs" emacs-version)
  "Non-nil if using XEmacs.")

;; When compiling under Emacs, load imenu during compilation.  If
;; you have 19.22 or earlier, comment this out, or get imenu.
(and (fboundp 'eval-when-compile)
     (eval-when-compile
       (if (and (string-match "19\\." emacs-version)
		(not (string-match "XEmacs" emacs-version)))
	   (require 'imenu))
       ()))

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

;;
;; User variables.
;;

  :type '(choice (const backslash) (const quote) (const smart) (const nil)))

(defcustom tcl-help-directory-list nil
  "*List of topmost directories containing TclX help files."
  :group 'tcl
  :type '(list directory))

(defcustom tcl-use-smart-word-finder t
  "*If not nil, use smart way to find current word, for Tcl help feature."
  :group 'tcl
  :type 'boolean)

  :type 'string)

(defcustom tcl-command-switches nil
  "*List of switches to supply to the `tcl-application' program."
  :group 'tcl
  :type '(list string))

(defcustom tcl-prompt-regexp "^\\(% \\|\\)"
  "*If not nil, a regexp that will match the prompt in the inferior process.
If nil, the prompt is the name of the application with \">\" appended.

  "XEmacs menu for Tcl mode.")

;; Emacs does menus via keymaps.  Do it in a function in case we
;; later decide to add it to inferior Tcl mode as well.
(defun tcl-add-emacs-menu (map)
  (define-key map [menu-bar] (make-sparse-keymap))
  ;; This fails in Emacs 19.22 and earlier.
  (require 'lmenu)
  (let ((menu (make-lucid-menu-keymap "Tcl" tcl-xemacs-menu)))
    (define-key map [menu-bar tcl] (cons "Tcl" menu))
    ;; The following is intended to compute the key sequence

      (forward-line)
      (if (> (point) start) (setq arg (1- arg))))))

;; We can now use begining-of-defun as long as we set up a
;; certain regexp.  In Emacs 18, we need our own function.
(fset 'tcl-beginning-of-defun
      (if tcl-using-emacs-19
	  'beginning-of-defun
	'tcl-internal-beginning-of-defun))

;; Ditto end-of-defun.
(fset 'tcl-end-of-defun
      (if (and tcl-using-emacs-19 (not tcl-using-xemacs-19))
	  'end-of-defun
	'tcl-internal-end-of-defun))

;; Internal mark-defun that is used for losing Emacsen.
(defun tcl-internal-mark-defun ()
  "Put mark at end of Tcl function, point at beginning."
  (interactive)

35712:350ba5553ea3

;; tcl.el --- Tcl code editing commands for Emacs

;; Copyright (C) 1994, 1998, 1999, 2000, 2001  Free Software Foundation, Inc.

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

;; 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



;;; Code:

(eval-when-compile
  (require 'outline)
  (require 'dabbrev)
  (require 'add-log))

;; I sure wish Emacs had a package that made it easy to extract this
;; sort of information.  Strange definition works with XEmacs 20.0.
(defconst tcl-using-emacs-19 (not (string-match "18\\." emacs-version))
  "Non-nil if using Emacs 19 or later.")

(defconst tcl-using-emacs-19-23
  (or (string-match "19\\.\\(2[3-9]\\|[3-9][0-9]\\)" emacs-version)
      (string-match "^[2-9][0-9]\\." emacs-version))
  "Non-nil if using Emacs 19-23 or later.")

(defconst tcl-using-xemacs-19 (string-match "XEmacs" emacs-version)
  "Non-nil if using XEmacs.")

;; When compiling under Emacs, load imenu during compilation.  If
;; you have 19.22 or earlier, comment this out, or get imenu.
(and (fboundp 'eval-when-compile)
     (eval-when-compile
       (if (and (not (string< emacs-version "19.23"))
		(not (string-match "XEmacs" emacs-version)))
	   (require 'imenu))
       ()))

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

;;
;; User variables.
;;

  :type '(choice (const backslash) (const quote) (const smart) (const nil)))

(defcustom tcl-help-directory-list nil
  "*List of topmost directories containing TclX help files."
  :group 'tcl
  :type '(repeat directory))

(defcustom tcl-use-smart-word-finder t
  "*If not nil, use smart way to find current word, for Tcl help feature."
  :group 'tcl
  :type 'boolean)

  :type 'string)

(defcustom tcl-command-switches nil
  "*List of switches to supply to the `tcl-application' program."
  :group 'tcl
  :type '(repeat string))

(defcustom tcl-prompt-regexp "^\\(% \\|\\)"
  "*If not nil, a regexp that will match the prompt in the inferior process.
If nil, the prompt is the name of the application with \">\" appended.

  "XEmacs menu for Tcl mode.")

;; Emacs does menus via keymaps.  Do it in a function in case we
;; later decide to add it to inferior Tcl mode as well.
(defun tcl-add-emacs-menu (map)
  (define-key map [menu-bar] (make-sparse-keymap "Tcl"))
  ;; This fails in Emacs 19.22 and earlier.
  (require 'lmenu)
  (let ((menu (make-lucid-menu-keymap "Tcl" tcl-xemacs-menu)))
    (define-key map [menu-bar tcl] (cons "Tcl" menu))
    ;; The following is intended to compute the key sequence

      (forward-line)
      (if (> (point) start) (setq arg (1- arg))))))

;; We can now use begining-of-defun as long as we set up a
;; certain regexp.  In Emacs 18, we need our own function.
(defalias 'tcl-beginning-of-defun
  (if tcl-using-emacs-19
      'beginning-of-defun
    'tcl-internal-beginning-of-defun))

;; Ditto end-of-defun.
(defalias 'tcl-end-of-defun
  (if (and tcl-using-emacs-19 (not tcl-using-xemacs-19))
      'end-of-defun
    'tcl-internal-end-of-defun))

;; Internal mark-defun that is used for losing Emacsen.
(defun tcl-internal-mark-defun ()
  "Put mark at end of Tcl function, point at beginning."
  (interactive)