diff options
| author | Paul Eggert <eggert@cs.ucla.edu> | 2014-12-29 12:45:25 -0800 |
|---|---|---|
| committer | Paul Eggert <eggert@cs.ucla.edu> | 2014-12-29 12:45:47 -0800 |
| commit | a5e5d7773b39cd39924404d40093ba44fc0de7f8 (patch) | |
| tree | af7e3efea849f8307caf70a9b61c6f96d0b6ba8e /lisp/obsolete/pc-select.el | |
| parent | 973110680c094b7a3bbcebbfbafb9abfc7adc8fd (diff) | |
| download | emacs-a5e5d7773b39cd39924404d40093ba44fc0de7f8.tar.gz emacs-a5e5d7773b39cd39924404d40093ba44fc0de7f8.tar.bz2 emacs-a5e5d7773b39cd39924404d40093ba44fc0de7f8.zip | |
* obsolete/pc-select.el (pc-selection-mode): Use system-type.
This is instead of system-name, which is both wrong here and obsolete.
Diffstat (limited to 'lisp/obsolete/pc-select.el')
| -rw-r--r-- | lisp/obsolete/pc-select.el | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/lisp/obsolete/pc-select.el b/lisp/obsolete/pc-select.el index 5ee0818a1e5..5404f490b88 100644 --- a/lisp/obsolete/pc-select.el +++ b/lisp/obsolete/pc-select.el @@ -337,7 +337,7 @@ but before calling PC Selection mode): (cadr pc-select-meta-moves-sexps-key-bindings)) (if (or pc-select-selection-keys-only (eq window-system 'x) - (memq system-name '(ms-dos windows-nt))) + (memq system-type '(ms-dos windows-nt))) nil pc-select-tty-key-bindings))) @@ -346,7 +346,7 @@ but before calling PC Selection mode): (unless (or pc-select-selection-keys-only (eq window-system 'x) - (memq system-name '(ms-dos windows-nt))) + (memq system-type '(ms-dos windows-nt))) ;; it is not clear that we need the following line ;; I hope it doesn't do too much harm to leave it in, though... (setq pc-select-old-M-delete-binding @@ -355,7 +355,7 @@ but before calling PC Selection mode): (when (and (not pc-select-selection-keys-only) (or (eq window-system 'x) - (memq system-name '(ms-dos windows-nt))) + (memq system-type '(ms-dos windows-nt))) (fboundp 'normal-erase-is-backspace-mode)) (pc-select-save-and-set-mode normal-erase-is-backspace-mode 1 normal-erase-is-backspace)) @@ -378,13 +378,13 @@ but before calling PC Selection mode): (current-global-map)) (unless (or pc-select-selection-keys-only (eq window-system 'x) - (memq system-name '(ms-dos windows-nt))) + (memq system-type '(ms-dos windows-nt))) ;; it is not clear that we need the following line ;; I hope it doesn't do too much harm to leave it in, though... (define-key function-key-map [M-delete] [?\M-d])) (when (and (not pc-select-selection-keys-only) (or (eq window-system 'x) - (memq system-name '(ms-dos windows-nt))) + (memq system-type '(ms-dos windows-nt))) (fboundp 'normal-erase-is-backspace-mode)) (normal-erase-is-backspace-mode 1)) (setq highlight-nonselected-windows nil) @@ -395,7 +395,7 @@ but before calling PC Selection mode): (when pc-select-key-bindings-alist (when (and (not pc-select-selection-keys-only) (or (eq window-system 'x) - (memq system-name '(ms-dos windows-nt)))) + (memq system-type '(ms-dos windows-nt)))) (pc-select-restore-mode normal-erase-is-backspace-mode)) (pc-select-restore-keys |