procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

* allout.el (allout-prefixed-keybindings): Bind (prefixed) '#' to

Browse source 
allout-number-siblings, in keeping with what obtained due to (now-defunct)
allout-keybindings-list.  Ditch repeat binding to (prefixed) ?i.
(allout-before-change-handler): Better expose spots affected by undo.
This commit is contained in:
Ken Manheimer 2011-01-21 23:41:57 -05:00
parent 925d54ac55
commit 4936e3ba93
2 changed files with 12 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

9
lisp/ChangeLog
View file

@ -1,3 +1,12 @@
2011-01-22 Ken Manheimer <ken.manheimer@gmail.com>
* allout.el (allout-prefixed-keybindings): Bind (prefixed) '#' to
allout-number-siblings, in keeping with what obtained due to
(now-defunct) allout-keybindings-list. Ditch repeat binding to
(prefixed) ?i.
(allout-before-change-handler): Better expose spots affected by
undo.
2011-01-22 Chong Yidong <cyd@stupidchicken.com>
* man.el (Man-highlight-references0): Use make-button (Bug#7881).

10
lisp/allout.el
View file

@ -204,7 +204,6 @@ willing to let allout use a bunch of \C-c keybindings."
("[(control ?a)]" allout-beginning-of-current-entry)
("[(control ?e)]" allout-end-of-entry)
("[(control ?i)]" allout-show-children)
("[(control ?i)]" allout-show-children)
("[(control ?s)]" allout-show-current-subtree)
("[(control ?t)]" allout-toggle-current-subtree-exposure)
;; Let user customize if they want to preempt describe-prefix-bindings ^h use.
@ -221,7 +220,7 @@ willing to let allout use a bunch of \C-c keybindings."
("[?<]" allout-shift-out)
("[(control ?m)]" allout-rebullet-topic)
("[?*]" allout-rebullet-current-heading)
("[?']" allout-number-siblings)
("[?#]" allout-number-siblings)
("[(control ?k)]" allout-kill-topic)
("[(meta ?k)]" allout-copy-topic-as-kill)
("[?@]" allout-resolve-xref)
@ -1412,9 +1411,6 @@ Functions on the hook should take two arguments:
- NEW-START -- integer indicating position of start of the first new item.
- NEW-END -- integer indicating position of end of the last new item.
Some edits that introduce new items may missed by this hook:
specifically edits that native allout routines do not control.
This hook might be invoked multiple times by a single command.")
;;;_ = allout-structure-deleted-hook
(defvar allout-structure-deleted-hook nil
@ -2192,8 +2188,8 @@ internal functions use this feature cohesively bunch changes."
See `allout-overlay-interior-modification-handler' for details."
(if (and (allout-mode-p) undo-in-progress (allout-hidden-p))
(allout-show-to-offshoot))
(when (and (allout-mode-p) undo-in-progress (allout-hidden-p))
(allout-show-children))
;; allout-overlay-interior-modification-handler on an overlay handles
;; this in other emacs, via `allout-exposure-category's 'modification-hooks.