diff options
| author | Juanma Barranquero <lekktu@gmail.com> | 2007-10-09 08:09:15 +0000 |
|---|---|---|
| committer | Juanma Barranquero <lekktu@gmail.com> | 2007-10-09 08:09:15 +0000 |
| commit | f6959eb4654ed6b1f1cc2b4a120bc88df8c81426 (patch) | |
| tree | 8927894382dd2b7f4cfce4a95ffbdcc863f66e64 /lisp/term | |
| parent | f49f5ca9c4f1b41652b7fe5c5ff8f178b4a984a0 (diff) | |
| download | emacs-f6959eb4654ed6b1f1cc2b4a120bc88df8c81426.tar.gz | |
(x-alternatives-map): Remove spurious parenthesis.
Diffstat (limited to 'lisp/term')
| -rw-r--r-- | lisp/term/x-win.el | 20 |
1 files changed, 10 insertions, 10 deletions
diff --git a/lisp/term/x-win.el b/lisp/term/x-win.el index 7186e46c31a..3310bc5507e 100644 --- a/lisp/term/x-win.el +++ b/lisp/term/x-win.el @@ -1195,7 +1195,7 @@ XConsortium: rgb.txt,v 10.41 94/02/20 18:39:36 rws Exp") (define-key map [M-return] [?\M-\C-m]) (define-key map [M-escape] [?\M-\e]) (define-key map [iso-lefttab] [backtab]) - (define-key map [S-iso-lefttab] [backtab])) + (define-key map [S-iso-lefttab] [backtab]) map) "Keymap of possible alternative meanings for some keys.") @@ -2367,15 +2367,15 @@ order until succeed.") (cond;; check cut buffer ((or (not cut-text) (string= cut-text "")) (setq x-last-selected-text-cut nil)) - ;; This short cut doesn't work because x-get-cut-buffer - ;; always returns a newly created string. - ;; ((eq cut-text x-last-selected-text-cut) nil) + ;; This short cut doesn't work because x-get-cut-buffer + ;; always returns a newly created string. + ;; ((eq cut-text x-last-selected-text-cut) nil) ((and (string= cut-text x-last-selected-text-cut-encoded) (eq x-last-cut-buffer-coding next-coding)) - ;; See the comment above. No need of this recording. - ;; Record the newer string, - ;; so subsequent calls can use the `eq' test. - ;; (setq x-last-selected-text-cut cut-text) + ;; See the comment above. No need of this recording. + ;; Record the newer string, + ;; so subsequent calls can use the `eq' test. + ;; (setq x-last-selected-text-cut cut-text) nil) (t (setq x-last-selected-text-cut-encoded cut-text @@ -2383,7 +2383,7 @@ order until succeed.") x-last-selected-text-cut ;; ICCCM says cut buffer always contain ISO-Latin-1, but ;; use next-selection-coding-system if not nil. - (decode-coding-string + (decode-coding-string cut-text next-coding)))))) ;; As we have done one selection, clear this now. @@ -2509,7 +2509,7 @@ order until succeed.") (cons '(user-size . t) parsed)))) ;; All geometry parms apply to the initial frame. (setq initial-frame-alist (append initial-frame-alist parsed)) - ;; The size parms apply to all frames. Don't set it if there are + ;; The size parms apply to all frames. Don't set it if there are ;; sizes there already (from command line). (if (and (assq 'height parsed) (not (assq 'height default-frame-alist))) |