Mercurial > emacs
changeset 29408:da3eec3be04b
(tcl-indent-for-comment): Ignore comment-indent-hook.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Sun, 04 Jun 2000 22:01:03 +0000 |
| parents | 4b6a4b83cce0 |
| children | be22934d32af |
| files | lisp/progmodes/tcl.el |
| diffstat | 1 files changed, 4 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- 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))))