# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 960156063 0
# Node ID da3eec3be04b2c3d0112886b321421dc9a941614
# Parent  4b6a4b83cce0f26cf81eac159fa213d79985b38f
(tcl-indent-for-comment): Ignore comment-indent-hook.

diff -r 4b6a4b83cce0 -r da3eec3be04b lisp/progmodes/tcl.el
--- a/lisp/progmodes/tcl.el	Sun Jun 04 20:59:47 2000 +0000
+++ b/lisp/progmodes/tcl.el	Sun Jun 04 22:01:03 2000 +0000
@@ -1,12 +1,12 @@
 ;; tcl.el --- Tcl code editing commands for Emacs
 
-;; Copyright (C) 1994, 1998, 1999 Free Software Foundation, Inc.
+;; Copyright (C) 1994, 1998, 1999, 2000  Free Software Foundation, Inc.
 
 ;; Maintainer: Tom Tromey <tromey@busco.lanl.gov>
 ;; Author: Tom Tromey <tromey@busco.lanl.gov>
 ;;    Chris Lindblad <cjl@lcs.mit.edu>
 ;; Keywords: languages tcl modes
-;; Version: $Revision: 1.59 $
+;; Version: $Revision: 1.60 $
 
 ;; This file is part of GNU Emacs.
 
@@ -127,7 +127,7 @@
 	   (require 'imenu))
        ()))
 
-(defconst tcl-version "$Revision: 1.59 $")
+(defconst tcl-version "$Revision: 1.60 $")
 (defconst tcl-maintainer "Tom Tromey <tromey@drip.colorado.edu>")
 
 ;;
@@ -1872,9 +1872,7 @@
 		(backward-char))))))
   ;; Point is just after the "#" starting a comment.  Move it as
   ;; appropriate.
-  (let* ((indent (if comment-indent-hook
-		     (funcall comment-indent-hook)
-		   (funcall comment-indent-function)))
+  (let* ((indent (funcall comment-indent-function))
 	 (begpos (progn
 		   (backward-char)
 		   (point))))