(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)))