comparison lisp/progmodes/tcl.el @ 51056:5dbeffb17d8e

(tcl-indent-exp): Remove dead code. (tcl-tab-always-indent): Default to tab-always-indent.

51055:b3d9bd5b31b8

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

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

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

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

  "Major mode for editing Tcl source in Emacs"
  :group 'languages)

(defcustom tcl-indent-level 4
  "*Indentation of Tcl statements with respect to containing block."
  :group 'tcl
  :type 'integer)

(defcustom tcl-continued-indent-level 4
  "*Indentation of continuation line relative to first line of command."
  :group 'tcl
  :type 'integer)

(defcustom tcl-auto-newline nil
  "*Non-nil means automatically newline before and after braces you insert."
  :group 'tcl
  :type 'boolean)

(defcustom tcl-tab-always-indent t
  "*Control effect of TAB key.
If t (the default), always indent current line.
If nil and point is not in the indentation area at the beginning of
the line, a TAB is inserted.
Other values cause the first possible action from the following list

  2. Delete an empty comment.
  3. Move forward to start of comment, indenting if necessary.
  4. Move forward to end of line, indenting if necessary.
  5. Create an empty comment.
  6. Move backward to start of comment, indenting if necessary."
  :group 'tcl
  :type '(choice (const :tag "Always" t)
		 (const :tag "Beginning only" nil)
		 (const :tag "Maybe move or make or delete comment" 'tcl)))

done; `quote', meaning that `\"' quoting should be done; `smart',
meaning that the choice between `backslash' and `quote' should be
made depending on the number of hashes inserted; or nil, meaning that
no quoting should be done.  Any other value for this variable is
taken to mean `smart'.  The default is nil."
  :group 'tcl
  :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)

(defcustom tcl-application "wish"
  "*Name of Tcl program to run in inferior Tcl mode."
  :group 'tcl
  :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.

The default is \"^\\(% \\|\\)\", which will match the default primary
and secondary prompts for tclsh and wish."
  :group 'tcl
  :type 'regexp)

(defcustom inferior-tcl-source-command "source %s\n"
  "*Format-string for building a Tcl command to load a file.
This format string should use `%s' to substitute a file name
and should result in a Tcl expression that will command the
inferior Tcl to load that file.  The filename will be appropriately
quoted for Tcl."
  :group 'tcl
  :type 'string)

;;
;; Keymaps, abbrevs, syntax tables.
;;

  (interactive)
  (let ((indent-stack (list nil))
	(contain-stack (list (point)))
	(case-fold-search nil)
	outer-loop-done inner-loop-done state ostate
	this-indent last-sexp continued-line
	(next-depth 0)
	last-depth)
    (save-excursion
      (forward-sexp 1))
    (save-excursion

		    (not (and (eobp) (setq outer-loop-done t))))
	  (setq ostate state)
	  (setq state (parse-partial-sexp (point) (progn (end-of-line) (point))
					  nil nil state))
	  (setq next-depth (car state))
	  (if (and (car (cdr (cdr state)))
		   (>= (car (cdr (cdr state))) 0))
	      (setq last-sexp (car (cdr (cdr state)))))
	  (if (or (nth 4 ostate))
	      (tcl-indent-line))
	  (if (or (nth 3 state))
	      (forward-line 1)
	    (setq inner-loop-done t)))

	  ;; doesn't indicate that they ended.
	  (while (> last-depth (nth 6 state))
	    (setq indent-stack (cdr indent-stack)
		  contain-stack (cdr contain-stack)
		  last-depth (1- last-depth)))
	  (if (/= last-depth next-depth)
	      (setq last-sexp nil))
	  ;; Add levels for any parens that were started in this line.
	  (while (< last-depth next-depth)
	    (setq indent-stack (cons nil indent-stack)
		  contain-stack (cons nil contain-stack)
		  last-depth (1+ last-depth)))

51056:5dbeffb17d8e

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

;; Copyright (C) 1994,98,1999,2000,01,02,2003  Free Software Foundation, Inc.

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

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

  "Major mode for editing Tcl source in Emacs"
  :group 'languages)

(defcustom tcl-indent-level 4
  "*Indentation of Tcl statements with respect to containing block."
  :type 'integer)

(defcustom tcl-continued-indent-level 4
  "*Indentation of continuation line relative to first line of command."
  :type 'integer)

(defcustom tcl-auto-newline nil
  "*Non-nil means automatically newline before and after braces you insert."
  :type 'boolean)

(defcustom tcl-tab-always-indent tab-always-indent
  "*Control effect of TAB key.
If t (the default), always indent current line.
If nil and point is not in the indentation area at the beginning of
the line, a TAB is inserted.
Other values cause the first possible action from the following list

  2. Delete an empty comment.
  3. Move forward to start of comment, indenting if necessary.
  4. Move forward to end of line, indenting if necessary.
  5. Create an empty comment.
  6. Move backward to start of comment, indenting if necessary."
  :type '(choice (const :tag "Always" t)
		 (const :tag "Beginning only" nil)
		 (const :tag "Maybe move or make or delete comment" 'tcl)))

done; `quote', meaning that `\"' quoting should be done; `smart',
meaning that the choice between `backslash' and `quote' should be
made depending on the number of hashes inserted; or nil, meaning that
no quoting should be done.  Any other value for this variable is
taken to mean `smart'.  The default is nil."
  :type '(choice (const backslash) (const quote) (const smart) (const nil)))

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

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

(defcustom tcl-application "wish"
  "*Name of Tcl program to run in inferior Tcl mode."
  :type 'string)

(defcustom tcl-command-switches nil
  "*List of switches to supply to the `tcl-application' program."
  :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.

The default is \"^\\(% \\|\\)\", which will match the default primary
and secondary prompts for tclsh and wish."
  :type 'regexp)

(defcustom inferior-tcl-source-command "source %s\n"
  "*Format-string for building a Tcl command to load a file.
This format string should use `%s' to substitute a file name
and should result in a Tcl expression that will command the
inferior Tcl to load that file.  The filename will be appropriately
quoted for Tcl."
  :type 'string)

;;
;; Keymaps, abbrevs, syntax tables.
;;

  (interactive)
  (let ((indent-stack (list nil))
	(contain-stack (list (point)))
	(case-fold-search nil)
	outer-loop-done inner-loop-done state ostate
	this-indent continued-line
	(next-depth 0)
	last-depth)
    (save-excursion
      (forward-sexp 1))
    (save-excursion

		    (not (and (eobp) (setq outer-loop-done t))))
	  (setq ostate state)
	  (setq state (parse-partial-sexp (point) (progn (end-of-line) (point))
					  nil nil state))
	  (setq next-depth (car state))
	  (if (or (nth 4 ostate))
	      (tcl-indent-line))
	  (if (or (nth 3 state))
	      (forward-line 1)
	    (setq inner-loop-done t)))

	  ;; doesn't indicate that they ended.
	  (while (> last-depth (nth 6 state))
	    (setq indent-stack (cdr indent-stack)
		  contain-stack (cdr contain-stack)
		  last-depth (1- last-depth)))
	  ;; Add levels for any parens that were started in this line.
	  (while (< last-depth next-depth)
	    (setq indent-stack (cons nil indent-stack)
		  contain-stack (cons nil contain-stack)
		  last-depth (1+ last-depth)))