/[emacs]/emacs/lisp/emulation/pc-select.el
ViewVC logotype

Diff of /emacs/lisp/emulation/pc-select.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.23 by rms, Mon Mar 18 04:31:36 2002 UTC revision 1.23.2.1 by miles, Fri Apr 4 06:20:17 2003 UTC
# Line 185  restored to their original values when ` Line 185  restored to their original values when `
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
# Line 219  restored to their original values when ` Line 219  restored to their original values when `
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
# Line 773  restore the previous value of that key b Line 773  restore the previous value of that key b
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)))
# Line 803  variable MODE-VAR (instead of the value Line 803  variable MODE-VAR (instead of the value
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")))
# Line 919  but before calling `pc-selection-mode'): Line 919  but before calling `pc-selection-mode'):
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)
# Line 966  but before calling `pc-selection-mode'): Line 966  but before calling `pc-selection-mode'):
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

Legend:
Removed from v.1.23  
changed lines
  Added in v.1.23.2.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26