Function: pc-select-restore-keys

pc-select-restore-keys is a byte-compiled function defined in pc-select.el.gz.

Signature

(pc-select-restore-keys ALIST KEYMAP SAVED-MAP)

Documentation

Use ALIST to restore key bindings from SAVED-MAP into KEYMAP.

Go through all the key bindings in ALIST, and, for each key binding, if KEYMAP and ALIST still agree on the key binding, restore the previous value of that key binding from SAVED-MAP.

Source Code

;; Defined in /usr/src/emacs/lisp/obsolete/pc-select.el.gz
(defun pc-select-restore-keys (alist keymap saved-map)
  "Use ALIST to restore key bindings from SAVED-MAP into KEYMAP.
Go through all the key bindings in ALIST, and, for each key
binding, if KEYMAP and ALIST still agree on the key binding,
restore the previous value of that key binding from SAVED-MAP."
  (let ((lst alist))
    (while lst
      (when (equal (lookup-key keymap (caar lst)) (cdar lst))
	(define-key keymap (caar lst) (lookup-key saved-map (caar lst))))
      (setq lst (cdr lst)))))