Re: One more time: binding overwrite-mode to Apple kbd

[Kevin Rodgers]

Slawomir Nowaczyk wrote:
> On Mon, 17 Jul 2006 15:56:32 +0200
> David Kastrup <dak@gnu.org> wrote:
>
> #> M-x picture-mode RET
>
> It there some reason why there is no picture-mode-toggle command?

Try this:

(defvar toggle-picture-mode nil
  "The previous major mode, before Picture mode.")

(defadvice picture-mode (before toggle-major-mode activate)
  "Set `toggle-picture-mode'."
  (set (make-local-variable 'toggle-picture-mode) major-mode)
  (put 'toggle-picture-mode 'permanent-local t))

(defun toggle-picture-mode ()
  "Select the previous major mode."
  (if toggle-picture-mode
      (progn
        (setq toggle-picture-mode nil)
        (funcall toggle-picture-mode))
    (error "No previous major mode")))

--
Kevin Rodgers
Sr. Software Engineer, IHS