Mercurial > emacs
changeset 12513:7dd018689647
(tcl-do-auto-fill): Set fill-prefix.
| author | Tom Tromey <tromey@redhat.com> |
|---|---|
| date | Sun, 09 Jul 1995 18:52:16 +0000 |
| parents | 997e250dfe12 |
| children | 83c518dd26c7 |
| files | lisp/progmodes/tcl.el |
| diffstat | 1 files changed, 8 insertions(+), 5 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/progmodes/tcl.el Sun Jul 09 13:26:41 1995 +0000 +++ b/lisp/progmodes/tcl.el Sun Jul 09 18:52:16 1995 +0000 @@ -6,7 +6,7 @@ ;; Author: Tom Tromey <tromey@busco.lanl.gov> ;; Chris Lindblad <cjl@lcs.mit.edu> ;; Keywords: languages tcl modes -;; Version: $Revision: 1.35 $ +;; Version: $Revision: 1.36 $ ;; This file is part of GNU Emacs. @@ -51,7 +51,7 @@ ;; LCD Archive Entry: ;; tcl|Tom Tromey|tromey@busco.lanl.gov| ;; Major mode for editing Tcl| -;; $Date: 1995/06/27 20:12:00 $|$Revision: 1.35 $|~/modes/tcl.el.Z| +;; $Date: 1995/07/09 01:07:57 $|$Revision: 1.36 $|~/modes/tcl.el.Z| ;; CUSTOMIZATION NOTES: ;; * tcl-proc-list can be used to customize a list of things that @@ -65,6 +65,9 @@ ;; Change log: ;; $Log: tcl.el,v $ +;; Revision 1.36 1995/07/09 01:07:57 tromey +;; (tcl-imenu-create-index-function): Work with imenu from Emacs 19.29 +;; ;; Revision 1.35 1995/06/27 20:12:00 tromey ;; (tcl-type-alist): More itcl changes. ;; @@ -316,7 +319,7 @@ (require 'imenu)) ())) -(defconst tcl-version "$Revision: 1.35 $") +(defconst tcl-version "$Revision: 1.36 $") (defconst tcl-maintainer "Tom Tromey <tromey@drip.colorado.edu>") ;; @@ -1649,8 +1652,8 @@ (defun tcl-do-auto-fill () "Auto-fill function for Tcl mode. Only auto-fills in a comment." - (let (in-comment - col) + (let ((fill-prefix "# ") + in-comment col) (save-excursion (setq in-comment (tcl-in-comment)) (if in-comment