X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=menudiag.el;h=b758b45fcbca2462a40101b17d040ecf350981ef;hb=5aed272165474232c184fca0eea0615d0d24eb03;hp=8829ad5b7169e0112f3e89fe8eff4a297908085e;hpb=ccc2c3cf2a993db1166638b047bff13ee5100336;p=elisp%2Fegg.git

diff --git a/menudiag.el b/menudiag.el
index 8829ad5..b758b45 100644
--- a/menudiag.el
+++ b/menudiag.el
@@ -252,6 +252,35 @@
   (interactive)
   (menudiag-goto-item-internal (1- (length line))))
 
+;; Should retain compatibility.  Must.
+;;
+;;(defun menudiag-forward-item ()
+;;  (interactive)
+;;  (if (< pos-in-line (1- (length line)))
+;;      (menudiag-goto-item-internal (1+ pos-in-line))
+;;    (if (>= linepos (1- (length selection-list)))
+;;	(signal 'end-of-buffer "")
+;;      (menudiag-goto-line (1+ linepos))
+;;      (menudiag-beginning-of-line))))
+;;
+;;(defun menudiag-backward-item ()
+;;  (interactive)
+;;  (if (< 0 pos-in-line)
+;;      (menudiag-goto-item-internal (1- pos-in-line))
+;;    (if (< linepos 1)
+;;	(signal 'beginning-of-buffer "")
+;;      (menudiag-goto-line (1- linepos))
+;;      (menudiag-end-of-line))))
+;;
+;;(defun menudiag-goto-line (n)
+;;  (if (or (>= n (length selection-list)) (< n 0))
+;;      (ding)
+;;    (setq line (nth n selection-list)
+;;	  linepos n)
+;;    (delete-region (point-min) (point-max))
+;;    (insert (menudiag-make-menu-formatted-string line))))
+;;
+
 (defun menudiag-forward-item ()
   (interactive)
   (if (< pos-in-line (1- (length line)))