diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2000-07-06 13:24:28 +0000 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2000-07-06 13:24:28 +0000 |
| commit | 64035583b7cb8fbd8c33cd4cba5139b666be27a4 (patch) | |
| tree | 782578d489af1a2e6fe27a26af3f1a1d9566e8ca /lisp/newcomment.el | |
| parent | b1e001e2e57e2033c8bad0509c8b89d292400ea0 (diff) | |
| download | emacs-64035583b7cb8fbd8c33cd4cba5139b666be27a4.tar.gz | |
(uncomment-region): Be more careful when skipping
backwards over `=' not to bump into BOBP.
Diffstat (limited to 'lisp/newcomment.el')
| -rw-r--r-- | lisp/newcomment.el | 14 |
1 files changed, 9 insertions, 5 deletions
diff --git a/lisp/newcomment.el b/lisp/newcomment.el index a09f9b1fbc9..a71a640ce29 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.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 @@ comment markers." ;; 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 @@ unless optional argument SOFT is non-nil." ;;; 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. ;; |