Mercurial > emacs
diff lisp/emulation/pc-select.el @ 49598:0d8b17d428b5
Trailing whitepace deleted.
author | Juanma Barranquero <lekktu@gmail.com> |
---|---|
date | Tue, 04 Feb 2003 13:24:35 +0000 |
parents | 2fab49a69d94 |
children | 695cf19ef79e d7ddb3e565de |
line wrap: on
line diff
--- a/lisp/emulation/pc-select.el Tue Feb 04 12:29:42 2003 +0000 +++ b/lisp/emulation/pc-select.el Tue Feb 04 13:24:35 2003 +0000 @@ -185,7 +185,7 @@ ([C-up] . backward-paragraph-nomark) ; KPrevPara cUp ([S-C-down] . forward-paragraph-mark) ([S-C-up] . backward-paragraph-mark)))) - + (setq pc-select-default-key-bindings lst))) (defvar pc-select-extra-key-bindings nil @@ -219,7 +219,7 @@ ([C-M-delete] . kill-sexp) ;; Next line proposed by Eli Barzilay ([C-escape] . electric-buffer-list)))) - + (setq pc-select-extra-key-bindings lst))) (defvar pc-select-meta-moves-sexps-key-bindings @@ -773,7 +773,7 @@ (defmacro pc-select-add-to-alist (alist var val) "Ensure that ALIST contains the cons cell (VAR . VAL). If a cons cell whose car is VAR is already on the ALIST, update the -cdr of that cell with VAL. Otherwise, make a new cons cell +cdr of that cell with VAL. Otherwise, make a new cons cell \(VAR . VAL), and prepend it onto ALIST." (let ((elt (make-symbol "elt"))) `(let ((,elt (assq ',var ,alist))) @@ -803,7 +803,7 @@ (,mode ,arg))) (defmacro pc-select-restore-var (var) - "Restore the previous value of the variable VAR. + "Restore the previous value of the variable VAR. Look up VAR's previous value in `pc-select-saved-settings-alist', and, if the value is found, set VAR to that value." (let ((elt (make-symbol "elt"))) @@ -919,7 +919,7 @@ ;; (setq-default normal-erase-is-backspace t) ;; However, the documentation for the variable says that ;; "setting it with setq has no effect", so I'm removing it. - + (pc-select-save-and-set-var highlight-nonselected-windows nil) (pc-select-save-and-set-var transient-mark-mode t) (pc-select-save-and-set-var mark-even-if-inactive t) @@ -966,7 +966,7 @@ pc-select-old-M-delete-binding)) (setq pc-select-key-bindings-alist nil pc-select-saved-settings-alist nil)))) - + ;;;###autoload (defcustom pc-selection-mode nil