aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2000-06-04 22:01:03 +0000
committerStefan Monnier2000-06-04 22:01:03 +0000
commit6a4384e6bc07c9531cbb5730c6f977d75aa6c11e (patch)
treeef05fc954eaa1a251ceea714eaf0ad49e7762bf5
parentb5bbbb761254076f89f7ba9dec151b288358e2ac (diff)
downloademacs-6a4384e6bc07c9531cbb5730c6f977d75aa6c11e.tar.gz
emacs-6a4384e6bc07c9531cbb5730c6f977d75aa6c11e.zip
(tcl-indent-for-comment): Ignore comment-indent-hook.
-rw-r--r--lisp/progmodes/tcl.el10
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))))