;;; x-win.el --- parse relevant switches and set up for X -*-coding: iso-2022-7bit;-*-
-;; Copyright (C) 1993, 1994, 2001, 2002, 2005 Free Software Foundation, Inc.
+;; Copyright (C) 1993, 1994, 2001, 2002, 2003, 2004,
+;; 2005, 2006 Free Software Foundation, Inc.
;; Author: FSF
;; Keywords: terminals, i18n
;; -font *font
;; -foreground *foreground
;; -geometry .geometry
-;; -i .iconType
-;; -itype .iconType
;; -iconic .iconic
;; -name .name
;; -reverse *reverseVideo
(require 'x-dnd)
(defvar x-invocation-args)
+(defvar x-keysym-table)
+(defvar x-selection-timeout)
+(defvar x-session-id)
+(defvar x-session-previous-id)
(defvar x-command-line-resources nil)
initial-frame-alist)))
(defvar x-display-name nil
- "The X display name specifying server and X frame.")
+ "The name of the X display on which Emacs was started.
+
+For the X display name of individual frames, see the `display'
+frame parameter.")
(defun x-handle-display (switch)
+ "Handle -display DISPLAY option."
(setq x-display-name (car x-invocation-args)
x-invocation-args (cdr x-invocation-args))
;; Make subshell programs see the same DISPLAY value Emacs really uses.
(#x5f1 . ?\e,Gq\e(B)
(#x5f2 . ?\e,Gr\e(B)
;; Cyrillic
+ (#x680 . ?\e$,1)R\e(B)
+ (#x681 . ?\e$,1)V\e(B)
+ (#x682 . ?\e$,1)Z\e(B)
+ (#x683 . ?\e$,1)\\e(B)
+ (#x684 . ?\e$,1)b\e(B)
+ (#x685 . ?\e$,1)n\e(B)
+ (#x686 . ?\e$,1)p\e(B)
+ (#x687 . ?\e$,1)r\e(B)
+ (#x688 . ?\e$,1)v\e(B)
+ (#x689 . ?\e$,1)x\e(B)
+ (#x68a . ?\e$,1)z\e(B)
+ (#x68c . ?\e$,1*8\e(B)
+ (#x68d . ?\e$,1*B\e(B)
+ (#x68e . ?\e$,1*H\e(B)
+ (#x68f . ?\e$,1*N\e(B)
+ (#x690 . ?\e$,1)S\e(B)
+ (#x691 . ?\e$,1)W\e(B)
+ (#x692 . ?\e$,1)[\e(B)
+ (#x693 . ?\e$,1)]\e(B)
+ (#x694 . ?\e$,1)c\e(B)
+ (#x695 . ?\e$,1)o\e(B)
+ (#x696 . ?\e$,1)q\e(B)
+ (#x697 . ?\e$,1)s\e(B)
+ (#x698 . ?\e$,1)w\e(B)
+ (#x699 . ?\e$,1)y\e(B)
+ (#x69a . ?\e$,1){\e(B)
+ (#x69c . ?\e$,1*9\e(B)
+ (#x69d . ?\e$,1*C\e(B)
+ (#x69e . ?\e$,1*I\e(B)
+ (#x69f . ?\e$,1*O\e(B)
(#x6a1 . ?\e,Lr\e(B)
(#x6a2 . ?\e,Ls\e(B)
(#x6a3 . ?\e,Lq\e(B)
\f
;;;; Selections and cut buffers
-;;; We keep track of the last text selected here, so we can check the
-;;; current selection against it, and avoid passing back our own text
-;;; from x-cut-buffer-or-selection-value. We track all three
-;;; seperately in case another X application only sets one of them
-;;; (say the cut buffer) we aren't fooled by the PRIMARY or
-;;; CLIPBOARD selection staying the same.
+;; We keep track of the last text selected here, so we can check the
+;; current selection against it, and avoid passing back our own text
+;; from x-cut-buffer-or-selection-value. We track all three
+;; seperately in case another X application only sets one of them
+;; (say the cut buffer) we aren't fooled by the PRIMARY or
+;; CLIPBOARD selection staying the same.
(defvar x-last-selected-text-clipboard nil
"The value of the CLIPBOARD X selection last time we selected or
pasted text.")
"The value of the X cut buffer last time we selected or pasted text.
This is the actual text stored in the X cut buffer.")
-;;; It is said that overlarge strings are slow to put into the cut buffer.
-;;; Note this value is overridden below.
-(defvar x-cut-buffer-max 20000
- "Max number of characters to put in the cut buffer.")
+(defvar x-cut-buffer-max 20000 ; Note this value is overridden below.
+ "Max number of characters to put in the cut buffer.
+It is said that overlarge strings are slow to put into the cut buffer.")
(defcustom x-select-enable-clipboard nil
"Non-nil means cutting and pasting uses the clipboard.
:type 'boolean
:group 'killing)
-;;; Make TEXT, a string, the primary X selection.
-;;; Also, set the value of X cut buffer 0, for backward compatibility
-;;; with older X applications.
-;;; gildea@stop.mail-abuse.org says it's not desirable to put kills
-;;; in the clipboard.
(defun x-select-text (text &optional push)
+ "Make TEXT, a string, the primary X selection.
+Also, set the value of X cut buffer 0, for backward compatibility
+with older X applications.
+gildea@stop.mail-abuse.org says it's not desirable to put kills
+in the clipboard."
;; Don't send the cut buffer too much text.
;; It becomes slow, and if really big it causes errors.
(cond ((>= (length text) x-cut-buffer-max)
(t
(setq x-last-selected-text-cut text
x-last-selected-text-cut-encoded
- (encode-coding-string text (or locale-coding-system
- 'iso-latin-1)))
+ ;; ICCCM says cut buffer always contain ISO-Latin-1
+ (encode-coding-string text 'iso-latin-1))
(x-set-cut-buffer x-last-selected-text-cut-encoded push)))
(x-set-selection 'PRIMARY text)
(setq x-last-selected-text-primary text)
(if text
(remove-text-properties 0 (length text) '(foreign-selection nil) text))
text))
-
-;;; Return the value of the current X selection.
-;;; Consult the selection, and the cut buffer. Treat empty strings
-;;; as if they were unset.
-;;; If this function is called twice and finds the same text,
-;;; it returns nil the second time. This is so that a single
-;;; selection won't be added to the kill ring over and over.
+
+;; Return the value of the current X selection.
+;; Consult the selection, and the cut buffer. Treat empty strings
+;; as if they were unset.
+;; If this function is called twice and finds the same text,
+;; it returns nil the second time. This is so that a single
+;; selection won't be added to the kill ring over and over.
(defun x-cut-buffer-or-selection-value ()
(let (clip-text primary-text cut-text)
(when x-select-enable-clipboard
(t
(setq x-last-selected-text-cut-encoded cut-text
x-last-selected-text-cut
- (decode-coding-string cut-text (or locale-coding-system
- 'iso-latin-1))))))
+ ;; ICCCM says cut buffer always contain ISO-Latin-1
+ (decode-coding-string cut-text 'iso-latin-1)))))
;; As we have done one selection, clear this now.
(setq next-selection-coding-system nil)
))
\f
-;;; Do the actual X Windows setup here; the above code just defines
-;;; functions and variables that we use now.
+;; Do the actual X Windows setup here; the above code just defines
+;; functions and variables that we use now.
(setq command-line-args (x-handle-args command-line-args))
-;;; Make sure we have a valid resource name.
+;; Make sure we have a valid resource name.
(or (stringp x-resource-name)
(let (i)
(setq x-resource-name (invocation-name))
(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.
- (if (assq 'height parsed)
+ ;; 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)))
(setq default-frame-alist
(cons (cons 'height (cdr (assq 'height parsed)))
default-frame-alist)))
- (if (assq 'width parsed)
+ (if (and (assq 'width parsed)
+ (not (assq 'width default-frame-alist)))
(setq default-frame-alist
(cons (cons 'width (cdr (assq 'width parsed)))
default-frame-alist))))))
(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.
+;; Arrange for the kill and yank functions to set and check the clipboard.
(setq interprogram-cut-function 'x-select-text)
(setq interprogram-paste-function 'x-cut-buffer-or-selection-value)
-;;; Turn off window-splitting optimization; X is usually fast enough
-;;; that this is only annoying.
+;; Turn off window-splitting optimization; X is usually fast enough
+;; that this is only annoying.
(setq split-window-keep-point t)
;; Don't show the frame name; that's redundant with X.
;; Override Paste so it looks at CLIPBOARD first.
(defun x-clipboard-yank ()
"Insert the clipboard contents, or the last stretch of killed text."
- (interactive)
+ (interactive "*")
(let ((clipboard-text (x-selection-value 'CLIPBOARD))
(x-select-enable-clipboard t))
(if (and clipboard-text (> (length clipboard-text) 0))
(yank)))
(define-key menu-bar-edit-menu [paste]
- (cons "Paste" (cons "Paste text from clipboard or kill ring"
- 'x-clipboard-yank)))
+ '(menu-item "Paste" x-clipboard-yank
+ :enable (not buffer-read-only)
+ :help "Paste (yank) text most recently cut/copied"))
;; Initiate drag and drop
(add-hook 'after-make-frame-functions 'x-dnd-init-frame)
-(global-set-key [drag-n-drop] 'x-dnd-handle-drag-n-drop-event)
-
-;;; arch-tag: f1501302-db8b-4d95-88e3-116697d89f78
+(define-key special-event-map [drag-n-drop] 'x-dnd-handle-drag-n-drop-event)
+
+;; Let F10 do menu bar navigation.
+(defun x-menu-bar-open (&optional frame)
+ "Open the menu bar if `menu-bar-mode' is on. otherwise call `tmm-menubar'."
+ (interactive "i")
+ (if menu-bar-mode (menu-bar-open frame)
+ (tmm-menubar)))
+
+(and (fboundp 'menu-bar-open)
+ (global-set-key [f10] 'x-menu-bar-open))
+
+;; arch-tag: f1501302-db8b-4d95-88e3-116697d89f78
;;; x-win.el ends here