# HG changeset patch
# User Stefan Monnier <monnier@iro.umontreal.ca>
# Date 962889868 0
# Node ID 6ea3040d5833fa99708ab3d67741120fedb13791
# Parent  f7f64f1ccc38b8571849c1d703f2559452c663bc
(uncomment-region): Be more careful when skipping
backwards over `=' not to bump into BOBP.

diff -r f7f64f1ccc38 -r 6ea3040d5833 lisp/newcomment.el
--- a/lisp/newcomment.el	Thu Jul 06 05:36:21 2000 +0000
+++ b/lisp/newcomment.el	Thu Jul 06 13:24:28 2000 +0000
@@ -6,7 +6,7 @@
 ;; Maintainer: Stefan Monnier <monnier@cs.yale.edu>
 ;; Keywords: comment uncomment
 ;; Version: $Name:  $
-;; Revision: $Id: newcomment.el,v 1.16 2000/06/04 22:02:11 monnier Exp $
+;; Revision: $Id: newcomment.el,v 1.17 2000/06/20 09:40:36 fx Exp $
 
 ;; This file is part of GNU Emacs.
 
@@ -589,10 +589,10 @@
 	    ;; Remove the end-comment (and leading padding and such).
 	    (goto-char (point-max)) (comment-enter-backward)
 	    ;; Check for special `=' used sometimes in comment-box.
-	    (when (and (= (- (point-max) (point)) 1) (> (point) 7)
-		       (save-excursion (backward-char 7)
-				       (looking-at "=\\{7\\}")))
-	      (skip-chars-backward "="))
+	    (when (= (- (point-max) (point)) 1)
+	      (let ((pos (point)))
+		;; skip `=' but only if there are at least 7.
+		(when (> (skip-chars-backward "=") -7) (goto-char pos))))
 	    (unless (looking-at "\\(\n\\|\\s-\\)*\\'")
 	      (when (and (bolp) (not (bobp))) (backward-char))
 	      (if (null arg) (delete-region (point) (point-max))
@@ -961,6 +961,10 @@
 
 ;;; Change Log:
 ;; $Log: newcomment.el,v $
+;; Revision 1.17  2000/06/20 09:40:36  fx
+;; (comment) <defgroup>: Add :version.
+;; (comment-multi-line): Doc fix.
+;;
 ;; Revision 1.16  2000/06/04 22:02:11  monnier
 ;; (comment-indent): Ignore comment-indent-hook.
 ;;