diff options
Diffstat (limited to 'editors/tamago/files/patch-menudiag.el')
| -rw-r--r-- | editors/tamago/files/patch-menudiag.el | 13 |
1 files changed, 11 insertions, 2 deletions
diff --git a/editors/tamago/files/patch-menudiag.el b/editors/tamago/files/patch-menudiag.el index c3fc73b8bf93..9986163652b1 100644 --- a/editors/tamago/files/patch-menudiag.el +++ b/editors/tamago/files/patch-menudiag.el @@ -1,5 +1,5 @@ --- menudiag.el.orig 2015-01-31 19:23:34.000000000 +0900 -+++ menudiag.el 2015-01-31 19:25:52.000000000 +0900 ++++ menudiag.el 2015-02-02 00:30:59.000000000 +0900 @@ -226,6 +226,9 @@ (remove-hook 'minibuffer-setup-hook 'menudiag-minibuffer-hook) (setq menudiag-minibuffer-list (cons (current-buffer) @@ -42,7 +42,7 @@ (pop-to-buffer org-buf) (while (and item-list (>= n (length (car item-list)))) (setq l (1+ l) -@@ -619,7 +623,7 @@ +@@ -619,15 +623,14 @@ (unless (eq last-command 'menudiag-selection-goto) (setq menudiag-goto-number-list nil menudiag-original-point (point))) @@ -51,3 +51,12 @@ menudiag-goto-number-list)) (menudiag-selection-goto-internal)) + (defun menudiag-selection-goto-internal () + (let* ((list menudiag-goto-number-list) + (n (menudiag-selection-item-number list)) +- (len (save-excursion +- (set-buffer menudiag-selection-main-buffer) ++ (len (with-current-buffer menudiag-selection-main-buffer + (length menudiag-current-items)))) + (setq this-command 'menudiag-selection-goto) + (if (>= n len) |