diff options
| author | Stefan Monnier | 2001-10-12 22:37:51 +0000 |
|---|---|---|
| committer | Stefan Monnier | 2001-10-12 22:37:51 +0000 |
| commit | 9d5240d2581f557e15fa96684ef84fe84e368722 (patch) | |
| tree | 087b62c58a8f320b5ddbb0143dbc2a0a29eb4c5b | |
| parent | fe14a5445b6c39b40a06bb425958c97d4d7522df (diff) | |
| download | emacs-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.el | 11 |
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) |