diff options
| author | Stefan Monnier | 2000-06-04 22:01:03 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2000-06-04 22:01:03 +0000 |
| commit | 6a4384e6bc07c9531cbb5730c6f977d75aa6c11e (patch) | |
| tree | ef05fc954eaa1a251ceea714eaf0ad49e7762bf5 | |
| parent | b5bbbb761254076f89f7ba9dec151b288358e2ac (diff) | |
| download | emacs-6a4384e6bc07c9531cbb5730c6f977d75aa6c11e.tar.gz emacs-6a4384e6bc07c9531cbb5730c6f977d75aa6c11e.zip | |
(tcl-indent-for-comment): Ignore comment-indent-hook.
| -rw-r--r-- | lisp/progmodes/tcl.el | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/lisp/progmodes/tcl.el b/lisp/progmodes/tcl.el index f0654f68721..835c08ab63e 100644 --- a/lisp/progmodes/tcl.el +++ b/lisp/progmodes/tcl.el | |||
| @@ -1,12 +1,12 @@ | |||
| 1 | ;; tcl.el --- Tcl code editing commands for Emacs | 1 | ;; tcl.el --- Tcl code editing commands for Emacs |
| 2 | 2 | ||
| 3 | ;; Copyright (C) 1994, 1998, 1999 Free Software Foundation, Inc. | 3 | ;; Copyright (C) 1994, 1998, 1999, 2000 Free Software Foundation, Inc. |
| 4 | 4 | ||
| 5 | ;; Maintainer: Tom Tromey <tromey@busco.lanl.gov> | 5 | ;; Maintainer: Tom Tromey <tromey@busco.lanl.gov> |
| 6 | ;; Author: Tom Tromey <tromey@busco.lanl.gov> | 6 | ;; Author: Tom Tromey <tromey@busco.lanl.gov> |
| 7 | ;; Chris Lindblad <cjl@lcs.mit.edu> | 7 | ;; Chris Lindblad <cjl@lcs.mit.edu> |
| 8 | ;; Keywords: languages tcl modes | 8 | ;; Keywords: languages tcl modes |
| 9 | ;; Version: $Revision: 1.59 $ | 9 | ;; Version: $Revision: 1.60 $ |
| 10 | 10 | ||
| 11 | ;; This file is part of GNU Emacs. | 11 | ;; This file is part of GNU Emacs. |
| 12 | 12 | ||
| @@ -127,7 +127,7 @@ | |||
| 127 | (require 'imenu)) | 127 | (require 'imenu)) |
| 128 | ())) | 128 | ())) |
| 129 | 129 | ||
| 130 | (defconst tcl-version "$Revision: 1.59 $") | 130 | (defconst tcl-version "$Revision: 1.60 $") |
| 131 | (defconst tcl-maintainer "Tom Tromey <tromey@drip.colorado.edu>") | 131 | (defconst tcl-maintainer "Tom Tromey <tromey@drip.colorado.edu>") |
| 132 | 132 | ||
| 133 | ;; | 133 | ;; |
| @@ -1872,9 +1872,7 @@ Parts of this were taken from `indent-for-comment'." | |||
| 1872 | (backward-char)))))) | 1872 | (backward-char)))))) |
| 1873 | ;; Point is just after the "#" starting a comment. Move it as | 1873 | ;; Point is just after the "#" starting a comment. Move it as |
| 1874 | ;; appropriate. | 1874 | ;; appropriate. |
| 1875 | (let* ((indent (if comment-indent-hook | 1875 | (let* ((indent (funcall comment-indent-function)) |
| 1876 | (funcall comment-indent-hook) | ||
| 1877 | (funcall comment-indent-function))) | ||
| 1878 | (begpos (progn | 1876 | (begpos (progn |
| 1879 | (backward-char) | 1877 | (backward-char) |
| 1880 | (point)))) | 1878 | (point)))) |