[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.9 emacs/lisp/allout.el:1.32.2.10
*** emacs/lisp/allout.el:1.32.2.9       Tue Jul  6 09:23:23 2004
--- emacs/lisp/allout.el        Thu Nov  4 13:12:41 2004
***************
*** 68,74 ****
  (defgroup allout nil
    "Extensive outline mode for use alone and with other modes."
    :prefix "allout-"
!   :group 'editing)
  
  ;;;_ + Layout, Mode, and Topic Header Configuration
  
--- 68,75 ----
  (defgroup allout nil
    "Extensive outline mode for use alone and with other modes."
    :prefix "allout-"
!   :group 'editing
!   :version "21.4")
  
  ;;;_ + Layout, Mode, and Topic Header Configuration
  
***************
*** 954,973 ****
  \(require 'allout)
  \(allout-init t)"
  
!   (interactive)
!   (if (interactive-p)
!       (progn
!       (setq mode
!             (completing-read
!              (concat "Select outline auto setup mode "
!                      "(empty for report, ? for options) ")
!              '(("nil")("full")("activate")("deactivate")
!                ("ask") ("report") (""))
!              nil
!              t))
!       (if (string= mode "")
!           (setq mode 'report)
!         (setq mode (intern-soft mode)))))
    (let
        ;; convenience aliases, for consistent ref to respective vars:
        ((hook 'allout-find-file-hook)
--- 955,970 ----
  \(require 'allout)
  \(allout-init t)"
  
!   (interactive
!    (let ((m (completing-read
!            (concat "Select outline auto setup mode "
!                    "(empty for report, ? for options) ")
!            '(("nil")("full")("activate")("deactivate")
!              ("ask") ("report") (""))
!            nil
!            t)))
!      (if (string= m "") 'report
!        (intern-soft m))))
    (let
        ;; convenience aliases, for consistent ref to respective vars:
        ((hook 'allout-find-file-hook)
***************
*** 1902,1917 ****
          (if (= (allout-recent-depth) depth)
              (progn (goto-char allout-recent-prefix-beginning)
                     depth)
!           (goto-char last-good)
!           nil))
!     (if (interactive-p) (allout-end-of-prefix))))
  ;;;_   > allout-ascend ()
  (defun allout-ascend ()
    "Ascend one level, returning t if successful, nil if not."
!   (prog1
!       (if (allout-beginning-of-level)
!         (allout-previous-heading))
!     (if (interactive-p) (allout-end-of-prefix))))
  ;;;_   > allout-descend-to-depth (depth)
  (defun allout-descend-to-depth (depth)
    "Descend to depth DEPTH within current topic.
--- 1899,1910 ----
          (if (= (allout-recent-depth) depth)
              (progn (goto-char allout-recent-prefix-beginning)
                     depth)
!           (goto-char last-good)))))
  ;;;_   > allout-ascend ()
  (defun allout-ascend ()
    "Ascend one level, returning t if successful, nil if not."
!   (if (allout-beginning-of-level)
!       (allout-previous-heading)))
  ;;;_   > allout-descend-to-depth (depth)
  (defun allout-descend-to-depth (depth)
    "Descend to depth DEPTH within current topic.
***************
*** 1931,1943 ****
        nil))
    )
  ;;;_   > allout-up-current-level (arg &optional dont-complain)
! (defun allout-up-current-level (arg &optional dont-complain)
    "Move out ARG levels from current visible topic.
  
  Positions on heading line of containing topic.  Error if unable to
  ascend that far, or nil if unable to ascend but optional arg
  DONT-COMPLAIN is non-nil."
!   (interactive "p")
    (allout-back-to-current-heading)
    (let ((present-level (allout-recent-depth))
        (last-good (point))
--- 1924,1936 ----
        nil))
    )
  ;;;_   > allout-up-current-level (arg &optional dont-complain)
! (defun allout-up-current-level (arg &optional dont-complain interactive)
    "Move out ARG levels from current visible topic.
  
  Positions on heading line of containing topic.  Error if unable to
  ascend that far, or nil if unable to ascend but optional arg
  DONT-COMPLAIN is non-nil."
!   (interactive "p\np")
    (allout-back-to-current-heading)
    (let ((present-level (allout-recent-depth))
        (last-good (point))
***************
*** 1958,1969 ****
      (if (or failed
            (> arg 0))
        (progn (goto-char last-good)
!              (if (interactive-p) (allout-end-of-prefix))
               (if (not dont-complain)
                   (error "Can't ascend past outermost level")
!                (if (interactive-p) (allout-end-of-prefix))
                 nil))
!       (if (interactive-p) (allout-end-of-prefix))
        allout-recent-prefix-beginning)))
  
  ;;;_  - Linear
--- 1951,1962 ----
      (if (or failed
            (> arg 0))
        (progn (goto-char last-good)
!              (if interactive (allout-end-of-prefix))
               (if (not dont-complain)
                   (error "Can't ascend past outermost level")
!                (if interactive (allout-end-of-prefix))
                 nil))
!       (if interactive (allout-end-of-prefix))
        allout-recent-prefix-beginning)))
  
  ;;;_  - Linear
***************
*** 2029,2035 ****
    (let ((depth (allout-depth)))
      (while (allout-previous-sibling depth nil))
      (prog1 (allout-recent-depth)
!       (if (interactive-p) (allout-end-of-prefix)))))
  ;;;_   > allout-next-visible-heading (arg)
  (defun allout-next-visible-heading (arg)
    "Move to the next ARG'th visible heading line, backward if arg is negative.
--- 2022,2028 ----
    (let ((depth (allout-depth)))
      (while (allout-previous-sibling depth nil))
      (prog1 (allout-recent-depth)
!       (allout-end-of-prefix))))
  ;;;_   > allout-next-visible-heading (arg)
  (defun allout-next-visible-heading (arg)
    "Move to the next ARG'th visible heading line, backward if arg is negative.
***************
*** 2067,2079 ****
    (interactive "p")
    (allout-next-visible-heading (- arg)))
  ;;;_   > allout-forward-current-level (arg)
! (defun allout-forward-current-level (arg)
    "Position point at the next heading of the same level.
  
  Takes optional repeat-count, goes backward if count is negative.
  
  Returns resulting position, else nil if none found."
!   (interactive "p")
    (let ((start-depth (allout-current-depth))
        (start-point (point))
        (start-arg arg)
--- 2060,2072 ----
    (interactive "p")
    (allout-next-visible-heading (- arg)))
  ;;;_   > allout-forward-current-level (arg)
! (defun allout-forward-current-level (arg &optional interactive)
    "Position point at the next heading of the same level.
  
  Takes optional repeat-count, goes backward if count is negative.
  
  Returns resulting position, else nil if none found."
!   (interactive "p\np")
    (let ((start-depth (allout-current-depth))
        (start-point (point))
        (start-arg arg)
***************
*** 2101,2107 ****
                  (= (allout-recent-depth) start-depth)))
        allout-recent-prefix-beginning
        (goto-char last-good)
!       (if (not (interactive-p))
          nil
        (allout-end-of-prefix)
        (error "Hit %s level %d topic, traversed %d of %d requested"
--- 2094,2100 ----
                  (= (allout-recent-depth) start-depth)))
        allout-recent-prefix-beginning
        (goto-char last-good)
!       (if (not interactive)
          nil
        (allout-end-of-prefix)
        (error "Hit %s level %d topic, traversed %d of %d requested"
***************
*** 2110,2119 ****
               (- (abs start-arg) arg)
               (abs start-arg))))))
  ;;;_   > allout-backward-current-level (arg)
! (defun allout-backward-current-level (arg)
    "Inverse of `allout-forward-current-level'."
!   (interactive "p")
!   (if (interactive-p)
        (let ((current-prefix-arg (* -1 arg)))
        (call-interactively 'allout-forward-current-level))
      (allout-forward-current-level (* -1 arg))))
--- 2103,2112 ----
               (- (abs start-arg) arg)
               (abs start-arg))))))
  ;;;_   > allout-backward-current-level (arg)
! (defun allout-backward-current-level (arg &optional interactive)
    "Inverse of `allout-forward-current-level'."
!   (interactive "p\np")
!   (if interactive
        (let ((current-prefix-arg (* -1 arg)))
        (call-interactively 'allout-forward-current-level))
      (allout-forward-current-level (* -1 arg))))