Mercurial > emacs

changeset 48192:1acfacdf062a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(tcl-mode): Don't set paragraph-start, paragraph-separate, comment-column, and fill-paragraph-function. Simplify outline-regexp. (tcl-do-fill-paragraph): Remove.
author Stefan Monnier <monnier@iro.umontreal.ca>
date Thu, 07 Nov 2002 15:22:49 +0000
parents 2cda842f35f6
children 0afe1465ac57
files lisp/progmodes/tcl.el
diffstat 1 files changed, 3 insertions(+), 50 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/progmodes/tcl.el	Thu Nov 07 02:26:44 2002 +0000
+++ b/lisp/progmodes/tcl.el	Thu Nov 07 15:22:49 2002 +0000
@@ -6,7 +6,7 @@
 ;; Author: Tom Tromey <tromey@redhat.com>
 ;;    Chris Lindblad <cjl@lcs.mit.edu>
 ;; Keywords: languages tcl modes
-;; Version: $Revision: 1.68 $
+;; Version: $Revision: 1.69 $
 
 ;; This file is part of GNU Emacs.
 
@@ -550,13 +550,8 @@
 
 Commands:
 \\{tcl-mode-map}"
-  (set (make-local-variable 'paragraph-start) "$\\|")
-  (set (make-local-variable 'paragraph-separate) paragraph-start)
-
   (unless (and (boundp 'filladapt-mode) filladapt-mode)
-    (set (make-local-variable 'paragraph-ignore-fill-prefix) t)
-    (set (make-local-variable 'fill-paragraph-function)
-	 'tcl-do-fill-paragraph))
+    (set (make-local-variable 'paragraph-ignore-fill-prefix) t))
 
   (set (make-local-variable 'indent-line-function) 'tcl-indent-line)
   (set (make-local-variable 'comment-indent-function) 'tcl-comment-indent)
@@ -566,10 +561,9 @@
 
   (set (make-local-variable 'comment-start) "# ")
   (set (make-local-variable 'comment-start-skip) "#+ *")
-  (set (make-local-variable 'comment-column) 40) ;why?  -stef
   (set (make-local-variable 'comment-end) "")
 
-  (set (make-local-variable 'outline-regexp) "[^\n\^M]")
+  (set (make-local-variable 'outline-regexp) ".")
   (set (make-local-variable 'outline-level) 'tcl-outline-level)
 
   (set (make-local-variable 'font-lock-defaults)
@@ -1234,47 +1228,6 @@
     (beginning-of-defun)
     (car (tcl-hairy-scan-for-comment nil save nil))))
 
-(defun tcl-do-fill-paragraph (ignore)
-  "fill-paragraph function for Tcl mode.  Only fills in a comment."
-  (let (in-comment col where)
-    (save-excursion
-      (end-of-line)
-      (setq in-comment (tcl-in-comment))
-      (if in-comment
-	  (progn
-	    (setq where (1+ (point)))
-	    (setq col (1- (current-column))))))
-    (and in-comment
-	 (save-excursion
-	   (back-to-indentation)
-	   (= col (current-column)))
-	 ;; In a comment.  Set the fill prefix, and find the paragraph
-	 ;; boundaries by searching for lines that look like
-	 ;; comment-only lines.
-	 (let ((fill-prefix (buffer-substring (progn
-						(beginning-of-line)
-						(point))
-					      where))
-	       p-start p-end)
-	   ;; Search backwards.
-	   (save-excursion
-	     (while (and (looking-at "^[ \t]*#[ \t]*[^ \t\n]")
-			 (not (bobp)))
-	       (forward-line -1))
-	     (setq p-start (point)))
-
-	   ;; Search forwards.
-	   (save-excursion
-	     (while (looking-at "^[ \t]*#[ \t]*[^ \t\n]")
-	       (forward-line))
-	     (setq p-end (point)))
-
-	   ;; Narrow and do the fill.
-	   (save-restriction
-	     (narrow-to-region p-start p-end)
-	     (fill-paragraph ignore)))))
-  t)
-
 
 
 ;;