From 19759845777093564e7da51ed9679caeefe15e4b Mon Sep 17 00:00:00 2001 From: Tom Tromey Date: Sun, 9 Jul 1995 18:52:16 +0000 Subject: [PATCH] (tcl-do-auto-fill): Set fill-prefix. --- lisp/progmodes/tcl.el | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/lisp/progmodes/tcl.el b/lisp/progmodes/tcl.el index c4c280cd678..4c854f58cb3 100644 --- a/lisp/progmodes/tcl.el +++ b/lisp/progmodes/tcl.el @@ -6,7 +6,7 @@ ;; Author: Tom Tromey ;; Chris Lindblad ;; 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 ") ;; @@ -1649,8 +1652,8 @@ of comment." (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 -- 2.39.2