diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2000-05-23 20:06:10 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2000-05-23 20:06:10 +0000 |
| commit | 2bd160e9926db86f68002b00d8e940e0866ba22e (patch) | |
| tree | cbf606fc473809b17c6192b216ccbfe4535fc6fa /lisp/newcomment.el | |
| parent | 1fab7b637f02d4cb7d5ca27adb8d11febd90af33 (diff) | |
| download | emacs-2bd160e9926db86f68002b00d8e940e0866ba22e.tar.gz | |
(comment-make-extra-lines): Don't use `assert'.
Diffstat (limited to 'lisp/newcomment.el')
| -rw-r--r-- | lisp/newcomment.el | 15 |
1 files changed, 12 insertions, 3 deletions
diff --git a/lisp/newcomment.el b/lisp/newcomment.el index f73b6961888..c13a5d89826 100644 --- a/lisp/newcomment.el +++ b/lisp/newcomment.el @@ -6,7 +6,7 @@ ;; Maintainer: Stefan Monnier <monnier@cs.yale.edu> ;; Keywords: comment uncomment ;; Version: $Name: $ -;; Revision: $Id: newcomment.el,v 1.12 2000/05/21 00:27:31 monnier Exp $ +;; Revision: $Id: newcomment.el,v 1.13 2000/05/22 04:23:37 monnier Exp $ ;; This file is part of GNU Emacs. @@ -36,6 +36,11 @@ ;; - comment-box in TeXinfo generate bogus comments @ccccc@ ;; - uncomment-region with a numeric argument can render multichar ;; comment markers invalid. +;; - comment-indent or comment-region when called inside a comment +;; will happily break the surrounding comment. +;; - comment-quote-nested will not (un)quote properly all nested comment +;; markers if there are more than just comment-start and comment-end. +;; For example, in Pascal where {...*) and (*...} are possible. ;;; Todo: @@ -621,12 +626,12 @@ This is used for `extra-line' style (or `box' style if BLOCK is specified)." (e (concat ccs "a=m" ce)) (c (if (string-match ".*\\S-\\S-" cs) (aref cs (1- (match-end 0))) ?=)) - (_ (assert (string-match "\\s-*a=m\\s-*" s))) + (_ (string-match "\\s-*a=m\\s-*" s)) (fill (make-string (+ width (- (match-end 0) (match-beginning 0) (length cs) 3)) c))) (setq cs (replace-match fill t t s)) - (assert (string-match "\\s-*a=m\\s-*" e)) + (string-match "\\s-*a=m\\s-*" e) (setq ce (replace-match fill t t e)))) (cons (concat cs "\n" (make-string min-indent ? ) ccs) (concat cce "\n" (make-string (+ min-indent eindent) ? ) ce)))) @@ -939,6 +944,10 @@ unless optional argument SOFT is non-nil." ;;; Change Log: ;; $Log: newcomment.el,v $ +;; Revision 1.13 2000/05/22 04:23:37 monnier +;; (comment-region-internal): Go back to BEG after quoting +;; the nested comment markers. +;; ;; Revision 1.12 2000/05/21 00:27:31 monnier ;; (comment-styles): New `box-multi'. ;; (comment-normalize-vars): Better default for comment-continue to |