Lines Matching +defs:as +defs:alist
15 ;; it under the terms of the GNU General Public License as published by
32 ;; programs (which is the same as the MAC gui and (sorry for that) MS-Windows).
41 ;; done here too (as suggested by RMS).
72 ;; o You have the copy, cut and paste functions (as in many other programs)
117 (defvar pc-select-saved-settings-alist nil
120 for its own purposes. This alist holds the original values of the
125 "The keymap used as the global map when PC Selection mode is on." )
130 (defvar pc-select-key-bindings-alist nil
131 "This alist holds all the key bindings PC Selection mode sets.")
141 ;; copy-region-as-kill this is confusing.
143 '(("\M-w" . copy-region-as-kill-nomark)
196 ;; as they are used with IBM compatible PCs, IBM RS/6000,
201 ([C-insert] . copy-region-as-kill)
208 ([f16] . copy-region-as-kill)
218 ;; as suggested by RMS.
241 ;; but bind keys as pc-selection-mode did before
263 (defun copy-region-as-kill-nomark (beg end)
264 "Save the region as if killed; but don't kill it; deactivate mark.
271 (copy-region-as-kill beg end)
380 When calling from a program, supply a number as argument or nil."
513 When calling from a program, supply a number as argument or nil."
628 When calling from a program, supply a number as argument or nil."
725 When calling from a program, supply a number as argument or nil."
756 (defun pc-select-define-keys (alist keymap)
758 (let ((lst alist))
763 (defun pc-select-restore-keys (alist keymap saved-map)
768 (let ((lst alist))
774 (defmacro pc-select-add-to-alist (alist var val)
780 `(let ((,elt (assq ',var ,alist)))
783 (setq ,alist (cons (cons ',var ,val) ,alist))))))
787 The old value is saved on the `pc-select-saved-settings-alist'."
789 (pc-select-add-to-alist pc-select-saved-settings-alist ,var ,var)
795 save the value of the variable MODE on `pc-select-saved-settings-alist'.
797 nil as an argument. If MODE-VAR is specified, save the value of the
799 `pc-select-saved-settings-alist'."
802 (pc-select-add-to-alist pc-select-saved-settings-alist
808 Look up VAR's previous value in `pc-select-saved-settings-alist', and,
811 `(let ((,elt (assq ',var pc-select-saved-settings-alist)))
817 Look up the value of the variable MODE on `pc-select-saved-settings-alist'.
822 (let ((,elt (assq ',mode pc-select-saved-settings-alist)))
864 C-INSERT copies the region into the kill ring (`copy-region-as-kill').
884 (if (null pc-select-key-bindings-alist)
887 (setq pc-select-key-bindings-alist
901 (pc-select-define-keys pc-select-key-bindings-alist
933 (pc-select-define-keys pc-select-key-bindings-alist
951 (when pc-select-key-bindings-alist
958 pc-select-key-bindings-alist (current-global-map)
968 (setq pc-select-key-bindings-alist nil
969 pc-select-saved-settings-alist nil))))