Mercurial > emacs

changeset 71915:9315116570f0

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(allout-run-unit-tests-on-load): Rectified docstring grammar. (allout-beginning-of-current-line): Beware beginning of buffer. Also, a comment is simplified. (allout-hotspot-key-handler): Only set allout-post-goto-bullet when appropriate. (This fix enables use for other than bullet-hotspot operation.) (allout-hide-current-subtree): While escalating to sibling-close, make sure to situate on a topic.
author Nick Roberts <nickrob@snap.net.nz>
date Sat, 15 Jul 2006 04:26:39 +0000
parents db854eed2b9a
children a3d9a91b52a7
files lisp/allout.el
diffstat 1 files changed, 7 insertions(+), 9 deletions(-) [+]
line wrap: on
line diff
--- a/lisp/allout.el	Sat Jul 15 04:24:52 2006 +0000
+++ b/lisp/allout.el	Sat Jul 15 04:26:39 2006 +0000
@@ -580,8 +580,8 @@
 Generally, allout code developers are the only ones who'll want to set this.
 
 \(If set, this makes it an even better practice to exercise changes by
-doing byte-compilation with a repeat count, so the file is loaded at the
-of compilation.)
+doing byte-compilation with a repeat count, so the file is loaded after
+compilation.)
 
 See `allout-run-unit-tests' to see what's run."
   :type 'boolean
@@ -2022,13 +2022,11 @@
 (defun allout-beginning-of-current-line ()
   "Like beginning of line, but to visible text."
 
-  ;; XXX We would use `(move-beginning-of-line 1)', but it gets
-  ;; stuck on some hidden newlines, eg at column 80, as of GNU Emacs 22.0.50.
-  ;; Conversely, `beginning-of-line' can make no progress in other
-  ;; situations.  Both are necessary, in the order used below.
+  ;; This combination of move-beginning-of-line and beginning-of-line is
+  ;; deliberate, but the (beginning-of-line) may now be superfluous.
   (move-beginning-of-line 1)
   (beginning-of-line)
-  (while (or (not (bolp)) (allout-hidden-p))
+  (while (and (not (bobp)) (or (not (bolp)) (allout-hidden-p)))
     (beginning-of-line)
     (if (or (allout-hidden-p) (not (bolp)))
         (forward-char -1))))
@@ -2757,8 +2755,7 @@
               (lookup-key mapped-binding (read-key-sequence-vector nil t))))
 
       (if mapped-binding
-          (setq allout-post-goto-bullet on-bullet
-                this-command mapped-binding)))))
+          (setq this-command mapped-binding)))))
 
 ;;;_   > allout-find-file-hook ()
 (defun allout-find-file-hook ()
@@ -4087,6 +4084,7 @@
           ((allout-up-current-level 1 t) (allout-hide-current-subtree))
           (t (goto-char 0)
              (message sibs-msg)
+             (allout-goto-prefix)
              (allout-expose-topic '(0 :))
              (message (concat sibs-msg "  Done."))))
     (goto-char from)))