Mercurial > emacs
changeset 36390:495ba6e137c7
(outline-flag-region): Move macro in front of first
use to avoid a run-time error.
| author | Gerd Moellmann <gerd@gnu.org> |
|---|---|
| date | Mon, 26 Feb 2001 12:07:48 +0000 |
| parents | 6dadbe31111f |
| children | bf3abd3aed48 |
| files | lisp/allout.el |
| diffstat | 1 files changed, 17 insertions(+), 15 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/allout.el Mon Feb 26 11:24:02 2001 +0000 +++ b/lisp/allout.el Mon Feb 26 12:07:48 2001 +0000 @@ -1,11 +1,11 @@ ;;;_* allout.el --- Extensive outline mode for use alone and with other modes. -;; Copyright (C) 1992, 1993, 1994 Free Software Foundation, Inc. +;; Copyright (C) 1992, 1993, 1994, 2001 Free Software Foundation, Inc. ;; Author: Ken Manheimer <klm@python.org> ;; Maintainer: Ken Manheimer <klm@python.org> ;; Created: Dec 1991 - first release to usenet -;; Version: $Id: allout.el,v 4.35 2000/02/01 15:58:14 klm Exp klm $|| +;; Version: $Id: allout.el,v 1.26 2001/02/26 12:01:50 gerd Exp $|| ;; Keywords: outline mode wp languages ;; This file is part of GNU Emacs. @@ -507,7 +507,7 @@ ;;;_ : Version ;;;_ = outline-version (defvar outline-version - (let ((rcs-rev "$Revision: 4.35 $")) + (let ((rcs-rev "$Revision: 1.26 $")) (condition-case err (save-match-data (string-match "Revision: \\([0-9]+\\.[0-9]+\\)" rcs-rev) @@ -2405,6 +2405,20 @@ ;;;_ = outline-isearch-was-font-lock (defvar outline-isearch-was-font-lock (and (boundp 'font-lock-mode) font-lock-mode)) + +;;;_ > outline-flag-region (from to flag) +(defmacro outline-flag-region (from to flag) + "Hide or show lines from FROM to TO, via emacs selective-display FLAG char. +Ie, text following flag C-m \(carriage-return) is hidden until the +next C-j (newline) char. + +Returns the endpoint of the region." + `(let ((buffer-read-only nil) + (outline-override-protect t)) + (subst-char-in-region ,from ,to + (if (= ,flag ?\n) ?\r ?\n) + ,flag t))) + ;;;_ > outline-isearch-expose (mode) (defun outline-isearch-expose (mode) "Mode is either 'clear, 'start, 'continue, or 'final." @@ -3526,18 +3540,6 @@ ;;;_ #6 Exposure Control ;;;_ - Fundamental -;;;_ > outline-flag-region (from to flag) -(defmacro outline-flag-region (from to flag) - "Hide or show lines from FROM to TO, via emacs selective-display FLAG char. -Ie, text following flag C-m \(carriage-return) is hidden until the -next C-j (newline) char. - -Returns the endpoint of the region." - `(let ((buffer-read-only nil) - (outline-override-protect t)) - (subst-char-in-region ,from ,to - (if (= ,flag ?\n) ?\r ?\n) - ,flag t))) ;;;_ > outline-flag-current-subtree (flag) (defun outline-flag-current-subtree (flag) "Hide or show subtree of currently-visible topic.