Mercurial > emacs
changeset 39864:71f93e410115
(comment-region-internal): Don't rebind
invisibility_spec now that the C routines handle it correctly.
| author | Stefan Monnier <monnier@iro.umontreal.ca> |
|---|---|
| date | Fri, 12 Oct 2001 22:37:51 +0000 |
| parents | 345caf35c534 |
| children | 8bdfe67d9f16 |
| files | lisp/newcomment.el |
| diffstat | 1 files changed, 2 insertions(+), 9 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/newcomment.el Fri Oct 12 22:31:23 2001 +0000 +++ b/lisp/newcomment.el Fri Oct 12 22:37:51 2001 +0000 @@ -5,7 +5,7 @@ ;; Author: code extracted from Emacs-20's simple.el ;; Maintainer: Stefan Monnier <monnier@cs.yale.edu> ;; Keywords: comment uncomment -;; Revision: $Id: newcomment.el,v 1.35 2001/09/27 21:13:44 monnier Exp $ +;; Revision: $Id: newcomment.el,v 1.36 2001/10/11 01:44:48 monnier Exp $ ;; This file is part of GNU Emacs. @@ -765,14 +765,7 @@ (unless (or ce (eolp)) (insert "\n") (indent-according-to-mode)) (comment-with-narrowing beg end (let ((min-indent (point-max)) - (max-indent 0) - ;; We rebind the invisibility spec because move-to-column - ;; skips invisible text. Only reveal ellipses. - (buffer-invisibility-spec - (if (listp buffer-invisibility-spec) - (mapcar (lambda (x) (if (cdr-safe x) t x)) - buffer-invisibility-spec) - buffer-invisibility-spec))) + (max-indent 0)) (goto-char (point-min)) ;; Quote any nested comment marker (comment-quote-nested comment-start comment-end nil)