aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorStefan Monnier2001-10-12 22:37:51 +0000
committerStefan Monnier2001-10-12 22:37:51 +0000
commit9d5240d2581f557e15fa96684ef84fe84e368722 (patch)
tree087b62c58a8f320b5ddbb0143dbc2a0a29eb4c5b
parentfe14a5445b6c39b40a06bb425958c97d4d7522df (diff)
downloademacs-9d5240d2581f557e15fa96684ef84fe84e368722.tar.gz
emacs-9d5240d2581f557e15fa96684ef84fe84e368722.zip
(comment-region-internal): Don't rebind
invisibility_spec now that the C routines handle it correctly.
-rw-r--r--lisp/newcomment.el11
1 files changed, 2 insertions, 9 deletions
diff --git a/lisp/newcomment.el b/lisp/newcomment.el
index 3a30285c904..ecef1c7b182 100644
--- a/lisp/newcomment.el
+++ b/lisp/newcomment.el
@@ -5,7 +5,7 @@
5;; Author: code extracted from Emacs-20's simple.el 5;; Author: code extracted from Emacs-20's simple.el
6;; Maintainer: Stefan Monnier <monnier@cs.yale.edu> 6;; Maintainer: Stefan Monnier <monnier@cs.yale.edu>
7;; Keywords: comment uncomment 7;; Keywords: comment uncomment
8;; Revision: $Id: newcomment.el,v 1.35 2001/09/27 21:13:44 monnier Exp $ 8;; Revision: $Id: newcomment.el,v 1.36 2001/10/11 01:44:48 monnier Exp $
9 9
10;; This file is part of GNU Emacs. 10;; This file is part of GNU Emacs.
11 11
@@ -765,14 +765,7 @@ rather than at left margin."
765 (unless (or ce (eolp)) (insert "\n") (indent-according-to-mode)) 765 (unless (or ce (eolp)) (insert "\n") (indent-according-to-mode))
766 (comment-with-narrowing beg end 766 (comment-with-narrowing beg end
767 (let ((min-indent (point-max)) 767 (let ((min-indent (point-max))
768 (max-indent 0) 768 (max-indent 0))
769 ;; We rebind the invisibility spec because move-to-column
770 ;; skips invisible text. Only reveal ellipses.
771 (buffer-invisibility-spec
772 (if (listp buffer-invisibility-spec)
773 (mapcar (lambda (x) (if (cdr-safe x) t x))
774 buffer-invisibility-spec)
775 buffer-invisibility-spec)))
776 (goto-char (point-min)) 769 (goto-char (point-min))
777 ;; Quote any nested comment marker 770 ;; Quote any nested comment marker
778 (comment-quote-nested comment-start comment-end nil) 771 (comment-quote-nested comment-start comment-end nil)