-2006-09-16 Jason Rumney <jasonr@gnu.org>
-
- * dnd.el (dnd-open-remote-file-function): Use dnd-open-local-file
- on ms-windows.
- (dnd-open-unc-file): Remove.
- (dnd-open-local-file): Mention in doc string that it also handles
- remote files if the system natively supports unc file-names.
-
-2006-09-15 Kim F. Storm <storm@cua.dk>
-
- * help.el (describe-key): Handle C-h k in *Help* buffer; collect
- all necessary information about the event before erasing *Help*.
-
- * simple.el (line-move-partial): Use window-line-visiblity to
- quickly check whether last line is partially visible, and only do
- the hard (and slow) part in that case.
-
-2006-09-15 Jay Belanger <belanger@truman.edu>
-
- * COPYING: Replace "Library Public License" by "Lesser Public
- License" throughout.
-
-2006-09-15 Jan Dj\e,Ad\e(Brv <jan.h.d@swipnet.se>
-
- * term/x-win.el (x-menu-bar-open): New function for F10.
-
-2006-09-15 Chong Yidong <cyd@stupidchicken.com>
-
- * progmodes/compile.el (compilation-error-regexp-alist-alist):
- Disallow filenames containing " -" to avoid confusion with libtool
- compilation messages. Suggested by Stefan Monnier.
-
-2006-09-15 David Kastrup <dak@gnu.org>
-
- * mouse-sel.el (mouse-sel-follow-link-p): Use event position
- instead of buffer position for `mouse-on-link-p'.
-
- * mouse.el (mouse-posn-property): New function looking up the
- properties at a click position in overlays and text properties in
- either buffer or strings.
- (mouse-on-link-p): Use `mouse-posn-property' to streamline lookup
- of both `follow-link' as well as `mouse-face' properties.
- (mouse-drag-track): Check `mouse-on-link-p' on event position, not
- buffer position.
-
- * help.el (describe-key-briefly): When reading a down-event on
- mode lines or scroll bar, swallow the following up event, too.
- Use the new mouse sensitity of `key-binding' for lookup.
- (describe-key): The same here.
-
-2006-09-15 Juanma Barranquero <lekktu@gmail.com>
-
- * play/life.el (life-patterns): Add a few more interesting patterns.
- (life-setup): Force `show-trailing-whitespace' to nil.
-
-2006-09-14 Richard Stallman <rms@gnu.org>
-
- * startup.el (fancy-splash-text): Change text to improve alignment.
- (fancy-splash-screens): Don't set non-standard tab width.
- Bind cursor-type temporarily, and make it easy to patch to
- preserve the splash buffer.
- (normal-splash-screen, fancy-splash-tail): Spell out "Meta-x".
- (fancy-splash-screens): Display echo-area message explicitly.
- Don't set fancy-splash-help-echo.
-
- * simple.el (line-number-mode): Group mode-line instead of
- editing-basics.
- (column-number-mode, size-indication-mode): Likewise.
-
- * faces.el (mode-line-faces): Group mode-line instead of modeline.
-
- * time.el (display-time): Group mode-line instead of modeline.
-
- * cus-edit.el (mode-line): Renamed from modeline. All uses changed.
-
-2006-09-14 Ken Manheimer <ken.manheimer@gmail.com>
+2006-09-16 Ken Manheimer <ken.manheimer@gmail.com>
* allout.el (allout-regexp, allout-line-boundary-regexp)
(allout-bob-regexp): Correct grouping and boundaries to fix
(allout-hotspot-key-handler): Correctly handle multiple-key
strokes. Remove some unused variables.
(allout-mode-leaders): Clarify that mode-specific comment-start
- will be used
+ will be used.
(set-allout-regexp): Correctly regexp-quote allout regexps to
properly accept alternative header-leads and primary bullets with
regexp-specific characters (eg, C "/*", mathematica "(*").
Include new regular expressions among those configured.
(allout-infer-header-lead-and-primary-bullet): Rename
allout-infer-header-lead.
- (allout-recent-depth): Manifest as a variable as well as a function.
+ (allout-recent-depth): Manifest as a variable as well as a
+ function.
(allout-prefix-data): Simplify into an inline instead of a macro,
- assuming current match data rather than being explicitly passed it.
- Establish allout-recent-depth value as well as
+ assuming current match data rather than being explicitly passed
+ it. Establish allout-recent-depth value as well as
allout-recent-prefix-beginning and allout-recent-prefix-end.
(allout-aberrant-container-p): True when an item's immediate
offspring discontinuously contained. Useful for disqualifying
unintended topic prefixes, likely at low depths.
(allout-goto-prefix-doublechecked): Elaborated version of
allout-goto-prefix which disqualifies aberrant pseudo-items.
- (allout-end-of-prefix, allout-pre-next-prefix)
- (allout-end-of-subtree): Disqualify aberrant containers.
+ (allout-pre-next-prefix): Layer on top of lower-level routines, to
+ get disqualification of aberrant containers.
+ (allout-end-of-prefix, allout-end-of-subtree): Disqualify aberrant
+ containers.
(allout-beginning-of-current-entry): Position at start of buffer
when in container (depth 0) entry.
(nullify-allout-prefix-data): Invalidate allout-recent-* prefix data.
(allout-get-prefix-bullet): Use right match groups.
(allout-beginning-of-line, allout-next-heading): Disqualify
aberrant containers.
- (allout-previous-heading): Disqualify aberrant containers.
+ (allout-previous-heading): Disqualify aberrant containers, and
+ change to regular (rather than inline) function, to allow
+ self-recursion.
(allout-get-invisibility-overlay): Increment so progress is made
when the first overlay is not the sought one.
(allout-end-of-prefix): Disqualify aberrant containers.
(allout-chart-siblings): Disqualify aberrant topics.
(allout-beginning-of-current-entry): Position correctly.
(allout-ascend): Use new allout-depth-specific-regexp and
- allout-depth-one-regexp for linear instead of O(N^2) or worse behavior.
- (allout-ascend-to-depth, allout-up-current-level): Depend on
- allout-ascend, rather than reimplementing an algorithm.
- (allout-descend-to-depth): Use allout-recent-depth var instead of fun.
+ allout-depth-one-regexp for linear instead of O(N^2) or worse
+ behavior.
+ (allout-ascend-to-depth): Depend on allout-ascend, rather than
+ reimplementing an algorithm.
+ (allout-up-current-level): Depend on allout-ascend, rather than
+ reimplementing an algorithm. Return to start-point if we fail.
+ (allout-descend-to-depth): Use allout-recent-depth variable
+ instead of function.
(allout-next-sibling): On traversal of numerous intervening
topics, resort to economical allout-next-sibling-leap.
(allout-next-sibling-leap): Specialized version of
(allout-previous-visible-heading): Position consistently when
interactive.
(allout-forward-current-level): Base on allout-previous-sibling
- rather than reimplmenting the algorithm. Remove unused vars.
+ rather than (differently) reimplmenting the algorithm. Remove some
+ unused variables.
(allout-solicit-alternate-bullet): Present default choice stripped
of text properties.
(allout-rebullet-heading): Use bullet stripped of text properties.
without tail-recursion) list-flattener, needed by allout-shift-out
when confronted with discontinuous children.
+2006-09-16 Jason Rumney <jasonr@gnu.org>
+
+ * dnd.el (dnd-open-remote-file-function): Use dnd-open-local-file
+ on ms-windows.
+ (dnd-open-unc-file): Remove.
+ (dnd-open-local-file): Mention in doc string that it also handles
+ remote files if the system natively supports unc file-names.
+
+2006-09-15 Kim F. Storm <storm@cua.dk>
+
+ * help.el (describe-key): Handle C-h k in *Help* buffer; collect
+ all necessary information about the event before erasing *Help*.
+
+ * simple.el (line-move-partial): Use window-line-visiblity to
+ quickly check whether last line is partially visible, and only do
+ the hard (and slow) part in that case.
+
+2006-09-15 Jay Belanger <belanger@truman.edu>
+
+ * COPYING: Replace "Library Public License" by "Lesser Public
+ License" throughout.
+
+2006-09-15 Jan Dj\e,Ad\e(Brv <jan.h.d@swipnet.se>
+
+ * term/x-win.el (x-menu-bar-open): New function for F10.
+
+2006-09-15 Chong Yidong <cyd@stupidchicken.com>
+
+ * progmodes/compile.el (compilation-error-regexp-alist-alist):
+ Disallow filenames containing " -" to avoid confusion with libtool
+ compilation messages. Suggested by Stefan Monnier.
+
+2006-09-15 David Kastrup <dak@gnu.org>
+
+ * mouse-sel.el (mouse-sel-follow-link-p): Use event position
+ instead of buffer position for `mouse-on-link-p'.
+
+ * mouse.el (mouse-posn-property): New function looking up the
+ properties at a click position in overlays and text properties in
+ either buffer or strings.
+ (mouse-on-link-p): Use `mouse-posn-property' to streamline lookup
+ of both `follow-link' as well as `mouse-face' properties.
+ (mouse-drag-track): Check `mouse-on-link-p' on event position, not
+ buffer position.
+
+ * help.el (describe-key-briefly): When reading a down-event on
+ mode lines or scroll bar, swallow the following up event, too.
+ Use the new mouse sensitity of `key-binding' for lookup.
+ (describe-key): The same here.
+
+2006-09-15 Juanma Barranquero <lekktu@gmail.com>
+
+ * play/life.el (life-patterns): Add a few more interesting patterns.
+ (life-setup): Force `show-trailing-whitespace' to nil.
+
+2006-09-14 Richard Stallman <rms@gnu.org>
+
+ * startup.el (fancy-splash-text): Change text to improve alignment.
+ (fancy-splash-screens): Don't set non-standard tab width.
+ Bind cursor-type temporarily, and make it easy to patch to
+ preserve the splash buffer.
+ (normal-splash-screen, fancy-splash-tail): Spell out "Meta-x".
+ (fancy-splash-screens): Display echo-area message explicitly.
+ Don't set fancy-splash-help-echo.
+
+ * simple.el (line-number-mode): Group mode-line instead of
+ editing-basics.
+ (column-number-mode, size-indication-mode): Likewise.
+
+ * faces.el (mode-line-faces): Group mode-line instead of modeline.
+
+ * time.el (display-time): Group mode-line instead of modeline.
+
+ * cus-edit.el (mode-line): Renamed from modeline. All uses changed.
+
2006-09-14 Chong Yidong <cyd@stupidchicken.com>
* startup.el (fancy-splash-text): Move editing instructions to
(when (re-search-forward allout-line-boundary-regexp nil 0)
(allout-prefix-data)
(and (<= allout-recent-depth allout-doublecheck-at-and-shallower)
- ;; register non-aberrant or disqualifying offspring as allout-recent-*
+ ;; this will set allout-recent-* on the first non-aberrant topic,
+ ;; whether it's the current one or one that disqualifies it:
(allout-aberrant-container-p))
(goto-char allout-recent-prefix-beginning)))
;;;_ > allout-this-or-next-heading
;; and usable by allout-mode.
(if (not (allout-goto-prefix-doublechecked)) (allout-next-heading)))
;;;_ > allout-previous-heading ()
-(defsubst allout-previous-heading ()
+(defun allout-previous-heading ()
"Move to the prior \(possibly invisible) heading line.
Return the location of the beginning of the heading, or nil if not found.
(if (and (<= allout-recent-depth allout-doublecheck-at-and-shallower)
(allout-aberrant-container-p))
(or (allout-previous-heading)
- (goto-char start-point)
- ;; recalibrate allout-recent-*:
- (allout-depth)))
- (point)))))
+ (and (goto-char start-point)
+ ;; recalibrate allout-recent-*:
+ (allout-depth)
+ nil))
+ (point))))))
;;;_ > allout-get-invisibility-overlay ()
(defun allout-get-invisibility-overlay ()
"Return the overlay at point that dictates allout invisibility."
(defun allout-current-bullet-pos ()
"Return position of current \(visible) topic's bullet."
- (if (not (allout-current-depth))
+ (if (not (allout-current-depth))
nil
- (1- allout-recent-prefix-end)))
+ (1- allout-recent-prefix-end)))
;;;_ > allout-back-to-current-heading ()
(defun allout-back-to-current-heading ()
"Move to heading line of current topic, or beginning if already on the line.
Returns that character position."
- (if (re-search-forward allout-line-boundary-regexp nil 'move)
- (goto-char (1- (allout-prefix-data)))))
+ (if (allout-next-heading)
+ (goto-char (1- allout-recent-prefix-beginning))))
;;;_ > allout-end-of-subtree (&optional current include-trailing-blank)
(defun allout-end-of-subtree (&optional current include-trailing-blank)
"Put point at the end of the last leaf in the containing topic.
"Ascend one level, returning t if successful, nil if not."
(prog1
(if (allout-beginning-of-level)
- (allout-previous-heading))
+ (allout-previous-heading))
(if (interactive-p) (allout-end-of-prefix))))
;;;_ > allout-descend-to-depth (depth)
(defun allout-descend-to-depth (depth)
(defun allout-up-current-level (arg)
"Move out ARG levels from current visible topic."
(interactive "p")
- (allout-back-to-current-heading)
- (if (not (allout-ascend))
- (error "Can't ascend past outermost level")
- (if (interactive-p) (allout-end-of-prefix))
- allout-recent-prefix-beginning))
+ (let ((start-point (point)))
+ (allout-back-to-current-heading)
+ (if (not (allout-ascend))
+ (progn (goto-char start-point)
+ (error "Can't ascend past outermost level"))
+ (if (interactive-p) (allout-end-of-prefix))
+ allout-recent-prefix-beginning)))
;;;_ - Linear
;;;_ > allout-next-sibling (&optional depth backward)
"Return a list of all atoms in list."
;; classic.
(cond ((null list) nil)
- ((atom (car list)) (cons (car list) (flatten (cdr list))))
- (t (append (flatten (car list)) (flatten (cdr list))))))
+ ((atom (car list)) (cons (car list) (allout-flatten (cdr list))))
+ (t (append (allout-flatten (car list)) (allout-flatten (cdr list))))))
;;;_ : Compatability:
;;;_ > allout-mark-marker to accommodate divergent emacsen:
(defun allout-mark-marker (&optional force buffer)
projects / emacs.git / commitdiff