Mercurial > emacs
comparison lisp/progmodes/tcl.el @ 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 | 51eb4568f70b |
children | 350ba5553ea3 |
comparison
equal
deleted
inserted
replaced
29407:4b6a4b83cce0 | 29408:da3eec3be04b |
---|---|
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 |
13 ;; GNU Emacs is free software; you can redistribute it and/or modify | 13 ;; GNU Emacs is free software; you can redistribute it and/or modify |
14 ;; it under the terms of the GNU General Public License as published by | 14 ;; it under the terms of the GNU General Public License as published by |
125 (if (and (string-match "19\\." emacs-version) | 125 (if (and (string-match "19\\." emacs-version) |
126 (not (string-match "XEmacs" emacs-version))) | 126 (not (string-match "XEmacs" emacs-version))) |
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 ;; |
134 ;; User variables. | 134 ;; User variables. |
135 ;; | 135 ;; |
1870 (if (tcl-real-command-p) "" ";") | 1870 (if (tcl-real-command-p) "" ";") |
1871 "# ") | 1871 "# ") |
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)))) |
1881 (if (/= begpos indent) | 1879 (if (/= begpos indent) |
1882 (progn | 1880 (progn |