Re: Do Again

Thread View: comp.lang.lisp.mcl

1 messages

[T] Back to Threads [V] Tree View [G] Group Articles

1 total messages Started by Bill St. Clair Tue, 26 Jan 1993 20:38

#673

Author: Bill St. Clair
Date: Tue, 26 Jan 1993 20:38

16 lines
968 bytes

At 18:25 1/25/93 -0600, lynch@ils.nwu.edu wrote:
>I'm interested in providing a "Do Again" menu-item which will re-issue the
>most recent menu command...
>
>Any suggestions how?

(defvar *last-selected-menu* nil)

(advise menu-item-action
        (setq *last-selected-menu* (car arglist))
        :when :after
        :name *last-selected-menu*)

(defun redo-last-menu-item-action ()
  (when *last-selected-menu*
    (menu-item-action *last-selected-menu*)))

Thread Navigation

This is a paginated view of messages in the thread with full content displayed inline.

Messages are displayed in chronological order, with the original post highlighted in green.

Use pagination controls to navigate through all messages in large threads.

Back to All Threads