/[emacs]/emacs/lisp/term/x-win.el
ViewVC logotype

Diff of /emacs/lisp/term/x-win.el

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

revision 1.160 by lektu, Tue Feb 4 13:28:06 2003 UTC revision 1.161 by jpw, Mon Mar 10 13:29:05 2003 UTC
# Line 1202  XConsortium: rgb.txt,v 10.41 94/02/20 18 Line 1202  XConsortium: rgb.txt,v 10.41 94/02/20 18
1202  ;;;; Keysyms  ;;;; Keysyms
1203    
1204  (defun vendor-specific-keysyms (vendor)  (defun vendor-specific-keysyms (vendor)
1205    "Return the appropriate value of system-key-alist for VENDOR.    "Return the appropriate value of `system-key-alist' for VENDOR.
1206  VENDOR is a string containing the name of the X Server's vendor,  VENDOR is a string containing the name of the X Server's vendor,
1207  as returned by (x-server-vendor)."  as returned by `x-server-vendor'."
1208    ;; Fixme: Drop Apollo now?    ;; Fixme: Drop Apollo now?
1209    (cond ((string-equal vendor "Apollo Computer Inc.")    (cond ((string-equal vendor "Apollo Computer Inc.")
1210           '((65280 . linedel)           '((65280 . linedel)
# Line 2098  as returned by (x-server-vendor)." Line 2098  as returned by (x-server-vendor)."
2098  (defvar x-last-selected-text-clipboard nil  (defvar x-last-selected-text-clipboard nil
2099    "The value of the CLIPBOARD X selection last time we selected or    "The value of the CLIPBOARD X selection last time we selected or
2100  pasted text.")  pasted text.")
2101  (defvar x-last-selected-text-primary   nil  (defvar x-last-selected-text-primary nil
2102    "The value of the PRIMARY X selection last time we selected or    "The value of the PRIMARY X selection last time we selected or
2103  pasted text.")  pasted text.")
2104  (defvar x-last-selected-text-cut       nil  (defvar x-last-selected-text-cut nil
2105    "The vaue of the X cut buffer last time we selected or    "The value of the X cut buffer last time we selected or pasted text.")
 pasted text.")  
2106    
2107  ;;; It is said that overlarge strings are slow to put into the cut buffer.  ;;; It is said that overlarge strings are slow to put into the cut buffer.
2108  ;;; Note this value is overridden below.  ;;; Note this value is overridden below.
# Line 2345  This is in addition to, but in preferenc Line 2344  This is in addition to, but in preferenc
2344        (setq x-selection-timeout (string-to-number res-selection-timeout))))        (setq x-selection-timeout (string-to-number res-selection-timeout))))
2345    
2346  (defun x-win-suspend-error ()  (defun x-win-suspend-error ()
2347    (error "Suspending an emacs running under X makes no sense"))    (error "Suspending an Emacs running under X makes no sense"))
2348  (add-hook 'suspend-hook 'x-win-suspend-error)  (add-hook 'suspend-hook 'x-win-suspend-error)
2349    
2350  ;;; Arrange for the kill and yank functions to set and check the clipboard.  ;;; Arrange for the kill and yank functions to set and check the clipboard.

Legend:
Removed from v.1.160  
changed lines
  Added in v.1.161

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