Mercurial > emacs
changeset 50075:cfb7d0684cf8
(vendor-specific-keysyms, x-last-selected-text-primary): Doc fixes.
(x-win-suspend-error): Use proper noun in error message.
| author | John Paul Wallington <jpw@pobox.com> |
|---|---|
| date | Mon, 10 Mar 2003 13:29:05 +0000 |
| parents | dfd66f399ed5 |
| children | a3f6f7daf7e3 |
| files | lisp/term/x-win.el |
| diffstat | 1 files changed, 6 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/term/x-win.el Mon Mar 10 13:25:42 2003 +0000 +++ b/lisp/term/x-win.el Mon Mar 10 13:29:05 2003 +0000 @@ -1202,9 +1202,9 @@ ;;;; Keysyms (defun vendor-specific-keysyms (vendor) - "Return the appropriate value of system-key-alist for VENDOR. + "Return the appropriate value of `system-key-alist' for VENDOR. VENDOR is a string containing the name of the X Server's vendor, -as returned by (x-server-vendor)." +as returned by `x-server-vendor'." ;; Fixme: Drop Apollo now? (cond ((string-equal vendor "Apollo Computer Inc.") '((65280 . linedel) @@ -2098,12 +2098,11 @@ (defvar x-last-selected-text-clipboard nil "The value of the CLIPBOARD X selection last time we selected or pasted text.") -(defvar x-last-selected-text-primary nil +(defvar x-last-selected-text-primary nil "The value of the PRIMARY X selection last time we selected or pasted text.") -(defvar x-last-selected-text-cut nil - "The vaue of the X cut buffer last time we selected or -pasted text.") +(defvar x-last-selected-text-cut nil + "The value of the X cut buffer last time we selected or pasted text.") ;;; It is said that overlarge strings are slow to put into the cut buffer. ;;; Note this value is overridden below. @@ -2345,7 +2344,7 @@ (setq x-selection-timeout (string-to-number res-selection-timeout)))) (defun x-win-suspend-error () - (error "Suspending an emacs running under X makes no sense")) + (error "Suspending an Emacs running under X makes no sense")) (add-hook 'suspend-hook 'x-win-suspend-error) ;;; Arrange for the kill and yank functions to set and check the clipboard.