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) |
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. |
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. |