185 |
([C-up] . backward-paragraph-nomark) ; KPrevPara cUp |
([C-up] . backward-paragraph-nomark) ; KPrevPara cUp |
186 |
([S-C-down] . forward-paragraph-mark) |
([S-C-down] . forward-paragraph-mark) |
187 |
([S-C-up] . backward-paragraph-mark)))) |
([S-C-up] . backward-paragraph-mark)))) |
188 |
|
|
189 |
(setq pc-select-default-key-bindings lst))) |
(setq pc-select-default-key-bindings lst))) |
190 |
|
|
191 |
(defvar pc-select-extra-key-bindings nil |
(defvar pc-select-extra-key-bindings nil |
219 |
([C-M-delete] . kill-sexp) |
([C-M-delete] . kill-sexp) |
220 |
;; Next line proposed by Eli Barzilay |
;; Next line proposed by Eli Barzilay |
221 |
([C-escape] . electric-buffer-list)))) |
([C-escape] . electric-buffer-list)))) |
222 |
|
|
223 |
(setq pc-select-extra-key-bindings lst))) |
(setq pc-select-extra-key-bindings lst))) |
224 |
|
|
225 |
(defvar pc-select-meta-moves-sexps-key-bindings |
(defvar pc-select-meta-moves-sexps-key-bindings |
773 |
(defmacro pc-select-add-to-alist (alist var val) |
(defmacro pc-select-add-to-alist (alist var val) |
774 |
"Ensure that ALIST contains the cons cell (VAR . VAL). |
"Ensure that ALIST contains the cons cell (VAR . VAL). |
775 |
If a cons cell whose car is VAR is already on the ALIST, update the |
If a cons cell whose car is VAR is already on the ALIST, update the |
776 |
cdr of that cell with VAL. Otherwise, make a new cons cell |
cdr of that cell with VAL. Otherwise, make a new cons cell |
777 |
\(VAR . VAL), and prepend it onto ALIST." |
\(VAR . VAL), and prepend it onto ALIST." |
778 |
(let ((elt (make-symbol "elt"))) |
(let ((elt (make-symbol "elt"))) |
779 |
`(let ((,elt (assq ',var ,alist))) |
`(let ((,elt (assq ',var ,alist))) |
803 |
(,mode ,arg))) |
(,mode ,arg))) |
804 |
|
|
805 |
(defmacro pc-select-restore-var (var) |
(defmacro pc-select-restore-var (var) |
806 |
"Restore the previous value of the variable VAR. |
"Restore the previous value of the variable VAR. |
807 |
Look up VAR's previous value in `pc-select-saved-settings-alist', and, |
Look up VAR's previous value in `pc-select-saved-settings-alist', and, |
808 |
if the value is found, set VAR to that value." |
if the value is found, set VAR to that value." |
809 |
(let ((elt (make-symbol "elt"))) |
(let ((elt (make-symbol "elt"))) |
919 |
;; (setq-default normal-erase-is-backspace t) |
;; (setq-default normal-erase-is-backspace t) |
920 |
;; However, the documentation for the variable says that |
;; However, the documentation for the variable says that |
921 |
;; "setting it with setq has no effect", so I'm removing it. |
;; "setting it with setq has no effect", so I'm removing it. |
922 |
|
|
923 |
(pc-select-save-and-set-var highlight-nonselected-windows nil) |
(pc-select-save-and-set-var highlight-nonselected-windows nil) |
924 |
(pc-select-save-and-set-var transient-mark-mode t) |
(pc-select-save-and-set-var transient-mark-mode t) |
925 |
(pc-select-save-and-set-var mark-even-if-inactive t) |
(pc-select-save-and-set-var mark-even-if-inactive t) |
966 |
pc-select-old-M-delete-binding)) |
pc-select-old-M-delete-binding)) |
967 |
(setq pc-select-key-bindings-alist nil |
(setq pc-select-key-bindings-alist nil |
968 |
pc-select-saved-settings-alist nil)))) |
pc-select-saved-settings-alist nil)))) |
969 |
|
|
970 |
|
|
971 |
;;;###autoload |
;;;###autoload |
972 |
(defcustom pc-selection-mode nil |
(defcustom pc-selection-mode nil |