[Emacs-diffs] Changes to emacs/lisp/allout.el [lexbind]

[Miles Bader]

Index: emacs/lisp/allout.el
diff -c emacs/lisp/allout.el:1.32.2.1 emacs/lisp/allout.el:1.32.2.2
*** emacs/lisp/allout.el:1.32.2.1       Fri Apr  4 01:20:00 2003
--- emacs/lisp/allout.el        Tue Oct 14 19:50:47 2003
***************
*** 5,11 ****
  ;; Author: Ken Manheimer <address@hidden>
  ;; Maintainer: Ken Manheimer <address@hidden>
  ;; Created: Dec 1991 - first release to usenet
! ;; Version: $Id: allout.el,v 1.32.2.1 2003/04/04 06:20:00 miles Exp $||
  ;; Keywords: outlines mode wp languages
  
  ;; This file is part of GNU Emacs.
--- 5,11 ----
  ;; Author: Ken Manheimer <address@hidden>
  ;; Maintainer: Ken Manheimer <address@hidden>
  ;; Created: Dec 1991 - first release to usenet
! ;; Version: $Id: allout.el,v 1.32.2.2 2003/10/14 23:50:47 miles Exp $||
  ;; Keywords: outlines mode wp languages
  
  ;; This file is part of GNU Emacs.
***************
*** 82,88 ****
  variable `allout-layout' is non-nil, and whether or not the layout
  dictated by `allout-layout' should be imposed on mode activation.
  
! With value `t', auto-mode-activation and auto-layout are enabled.
  \(This also depends on `allout-find-file-hook' being installed in
  `find-file-hooks', which is also done by `allout-init'.)
  
--- 82,88 ----
  variable `allout-layout' is non-nil, and whether or not the layout
  dictated by `allout-layout' should be imposed on mode activation.
  
! With value t, auto-mode-activation and auto-layout are enabled.
  \(This also depends on `allout-find-file-hook' being installed in
  `find-file-hooks', which is also done by `allout-init'.)
  
***************
*** 92,98 ****
  With value `activate', only auto-mode-activation is enabled,
  auto-layout is not.
  
! With value `nil', neither auto-mode-activation nor auto-layout are
  enabled.
  
  See the docstring for `allout-init' for the proper interface to
--- 92,98 ----
  With value `activate', only auto-mode-activation is enabled,
  auto-layout is not.
  
! With value nil, neither auto-mode-activation nor auto-layout are
  enabled.
  
  See the docstring for `allout-init' for the proper interface to
***************
*** 226,239 ****
  
  String values are used as they stand.
  
! Value `t' means to first check for assoc value in `allout-mode-leaders'
  alist, then use comment-start string, if any, then use default \(`.').
  \(See note about use of comment-start strings, below.)
  
  Set to the symbol for either of `allout-mode-leaders' or
  `comment-start' to use only one of them, respectively.
  
! Value `nil' means to always use the default \(`.').
  
  comment-start strings that do not end in spaces are tripled, and an
  `_' underscore is tacked on the end, to distinguish them from regular
--- 226,239 ----
  
  String values are used as they stand.
  
! Value t means to first check for assoc value in `allout-mode-leaders'
  alist, then use comment-start string, if any, then use default \(`.').
  \(See note about use of comment-start strings, below.)
  
  Set to the symbol for either of `allout-mode-leaders' or
  `comment-start' to use only one of them, respectively.
  
! Value nil means to always use the default \(`.').
  
  comment-start strings that do not end in spaces are tripled, and an
  `_' underscore is tacked on the end, to distinguish them from regular
***************
*** 480,486 ****
  their topic header are reindented to correspond with depth shifts of
  the header.
  
! A value of `t' enables reindent in non-programming-code buffers, ie
  those that do not have the variable `comment-start' set.  A value of
  `force' enables reindent whether or not `comment-start' is set."
    :type '(choice (const nil) (const t) (const text) (const force))
--- 480,486 ----
  their topic header are reindented to correspond with depth shifts of
  the header.
  
! A value of t enables reindent in non-programming-code buffers, ie
  those that do not have the variable `comment-start' set.  A value of
  `force' enables reindent whether or not `comment-start' is set."
    :type '(choice (const nil) (const t) (const text) (const force))
***************
*** 508,514 ****
  ;;;_  : Version
  ;;;_   = allout-version
  (defvar allout-version
!   (let ((rcs-rev "$Revision: 1.32.2.1 $"))
      (condition-case err
        (save-match-data
          (string-match "Revision: \\([0-9]+\\.[0-9]+\\)" rcs-rev)
--- 508,514 ----
  ;;;_  : Version
  ;;;_   = allout-version
  (defvar allout-version
!   (let ((rcs-rev "$Revision: 1.32.2.2 $"))
      (condition-case err
        (save-match-data
          (string-match "Revision: \\([0-9]+\\.[0-9]+\\)" rcs-rev)
***************
*** 893,899 ****
  (make-variable-buffer-local 'allout-override-protect)
  ;;;_   > allout-unprotected (expr)
  (defmacro allout-unprotected (expr)
!   "Evaluate EXPRESSION with `allout-override-protect' let-bound `t'."
    `(let ((allout-override-protect t))
       ,expr))
  ;;;_   = allout-undo-aggregation
--- 893,899 ----
  (make-variable-buffer-local 'allout-override-protect)
  ;;;_   > allout-unprotected (expr)
  (defmacro allout-unprotected (expr)
!   "Evaluate EXPRESSION with `allout-override-protect' let-bound t."
    `(let ((allout-override-protect t))
       ,expr))
  ;;;_   = allout-undo-aggregation
***************
*** 4770,4773 ****
--- 4770,4774 ----
  ;;;allout-layout: (0 : -1 -1 0)
  ;;;End:
  
+ ;;; arch-tag: cf38fbc3-c044-450f-8bff-afed8ba5681c
  ;;; allout.el ends here