2015-09-28 22:39:14 +00:00
|
|
|
|
;;; x-win.el --- parse relevant switches and set up for X -*- lexical-binding:t -*-
|
1996-01-14 09:58:28 +00:00
|
|
|
|
|
2017-01-01 03:14:01 +00:00
|
|
|
|
;; Copyright (C) 1993-1994, 2001-2017 Free Software Foundation, Inc.
|
1993-03-12 19:53:22 +00:00
|
|
|
|
|
|
|
|
|
|
;; Author: FSF
|
2002-10-30 19:26:23 +00:00
|
|
|
|
;; Keywords: terminals, i18n
|
1993-03-12 19:53:22 +00:00
|
|
|
|
|
1996-01-14 09:58:28 +00:00
|
|
|
|
;; This file is part of GNU Emacs.
|
|
|
|
|
|
|
2008-05-06 04:34:22 +00:00
|
|
|
|
;; GNU Emacs is free software: you can redistribute it and/or modify
|
1996-01-14 09:58:28 +00:00
|
|
|
|
;; it under the terms of the GNU General Public License as published by
|
2008-05-06 04:34:22 +00:00
|
|
|
|
;; the Free Software Foundation, either version 3 of the License, or
|
|
|
|
|
|
;; (at your option) any later version.
|
1996-01-14 09:58:28 +00:00
|
|
|
|
|
|
|
|
|
|
;; GNU Emacs is distributed in the hope that it will be useful,
|
|
|
|
|
|
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
|
|
|
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
|
|
|
;; GNU General Public License for more details.
|
|
|
|
|
|
|
|
|
|
|
|
;; You should have received a copy of the GNU General Public License
|
2008-05-06 04:34:22 +00:00
|
|
|
|
;; along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>.
|
1990-03-22 20:46:04 +00:00
|
|
|
|
|
1993-03-12 19:53:22 +00:00
|
|
|
|
;;; Commentary:
|
1990-03-22 20:46:04 +00:00
|
|
|
|
|
2004-01-22 02:36:55 +00:00
|
|
|
|
;; X-win.el: this file defines functions to initialize the X window
|
|
|
|
|
|
;; system and process X-specific command line parameters before
|
|
|
|
|
|
;; creating the first X frame.
|
|
|
|
|
|
|
2008-12-20 21:15:47 +00:00
|
|
|
|
;; Beginning in Emacs 23, the act of loading this file should not have
|
|
|
|
|
|
;; the side effect of initializing the window system or processing
|
|
|
|
|
|
;; command line arguments (this file is now loaded in loadup.el). See
|
Replace gui-method macros with cl-generic with &context
* lisp/frame.el (gui-method--name, gui-method, gui-method-define)
(gui-method-declare, gui-call): Remove.
(frame-creation-function): Use cl-defgeneric.
(make-frame): Adjust callers.
* lisp/menu-bar.el (menu-bar-edit-menu):
Use gui-backend-selection-exists-p.
* lisp/select.el (x-get-clipboard): Use gui-backend-get-selection.
(gui-backend-get-selection): New cl-generic to replace
gui-get-selection method.
(gui-backend-set-selection): New cl-generic to replace
gui-set-selection method.
(gui-selection-owner-p): New cl-generic to replace
gui-selection-owner-p method.
(gui-backend-selection-exists-p): New cl-generic to replace
gui-selection-exists-p method. Adjust all callers.
* lisp/server.el (server-create-window-system-frame): Don't ignore
window-system spec even when unsupported.
* lisp/simple.el (deactivate-mark): Use new gui-backend-* functions.
* lisp/startup.el (handle-args-function, window-system-initialization):
Use cl-defgeneric.
(command-line): Adjust calls accordingly.
* lisp/term/ns-win.el (ns-window-system-initialization): Turn into
a window-system-initialization method.
(handle-args-function, frame-creation-function): Use cl-defmethod.
(gui-set-selection, gui-selection-owner-p, gui-selection-exists-p)
(gui-get-selection): Use cl-defmethod on the new functions instead.
* lisp/term/pc-win.el (w16-get-selection-value): Turn into
a gui-backend-get-selection method.
(gui-selection-exists-p, gui-selection-owner-p, gui-set-selection):
Use cl-defmethod on the new functions instead.
(msdos-window-system-initialization): Turn into
a window-system-initialization method.
(frame-creation-function, handle-args-function): Use cl-defmethod.
* lisp/term/w32-win.el (w32-window-system-initialization): Turn into
a window-system-initialization method.
(handle-args-function, frame-creation-function): Use cl-defmethod.
(gui-set-selection, gui-selection-owner-p, gui-selection-exists-p)
(gui-get-selection): Use cl-defmethod on the new functions instead.
* lisp/term/x-win.el (x-window-system-initialization): Turn into
a window-system-initialization method.
(handle-args-function, frame-creation-function): Use cl-defmethod.
(gui-set-selection, gui-selection-owner-p, gui-selection-exists-p)
(gui-get-selection): Use cl-defmethod on the new functions instead.
* lisp/term/xterm.el (xterm--set-selection): Turn into
a gui-backend-set-selection method.
* src/nsselect.m (Fns_selection_exists_p): Remove unused arg `terminal'.
(Fns_selection_owner_p): Remove unused arg `terminal'.
(Fns_get_selection): Remove unused args `time_stamp' and `terminal'.
2015-05-23 15:32:29 +00:00
|
|
|
|
;; `handle-args-function' and `window-system-initialization' for more details.
|
1990-03-22 20:46:04 +00:00
|
|
|
|
|
|
|
|
|
|
;; startup.el will then examine startup files, and eventually call the hooks
|
2002-10-30 19:26:23 +00:00
|
|
|
|
;; which create the first window(s).
|
1993-03-12 19:53:22 +00:00
|
|
|
|
|
|
|
|
|
|
;;; Code:
|
1990-03-22 20:46:04 +00:00
|
|
|
|
|
|
|
|
|
|
;; These are the standard X switches from the Xt Initialize.c file of
|
|
|
|
|
|
;; Release 4.
|
|
|
|
|
|
|
|
|
|
|
|
;; Command line Resource Manager string
|
|
|
|
|
|
|
|
|
|
|
|
;; +rv *reverseVideo
|
|
|
|
|
|
;; +synchronous *synchronous
|
|
|
|
|
|
;; -background *background
|
|
|
|
|
|
;; -bd *borderColor
|
|
|
|
|
|
;; -bg *background
|
|
|
|
|
|
;; -bordercolor *borderColor
|
|
|
|
|
|
;; -borderwidth .borderWidth
|
|
|
|
|
|
;; -bw .borderWidth
|
|
|
|
|
|
;; -display .display
|
|
|
|
|
|
;; -fg *foreground
|
|
|
|
|
|
;; -fn *font
|
|
|
|
|
|
;; -font *font
|
|
|
|
|
|
;; -foreground *foreground
|
|
|
|
|
|
;; -geometry .geometry
|
|
|
|
|
|
;; -iconic .iconic
|
|
|
|
|
|
;; -name .name
|
|
|
|
|
|
;; -reverse *reverseVideo
|
|
|
|
|
|
;; -rv *reverseVideo
|
|
|
|
|
|
;; -selectionTimeout .selectionTimeout
|
|
|
|
|
|
;; -synchronous *synchronous
|
|
|
|
|
|
;; -xrm
|
|
|
|
|
|
|
|
|
|
|
|
;; An alist of X options and the function which handles them. See
|
|
|
|
|
|
;; ../startup.el.
|
|
|
|
|
|
|
2012-09-17 11:55:05 +00:00
|
|
|
|
(eval-when-compile (require 'cl-lib))
|
|
|
|
|
|
|
2004-01-11 21:59:40 +00:00
|
|
|
|
(if (not (fboundp 'x-create-frame))
|
1993-07-18 06:21:42 +00:00
|
|
|
|
(error "%s: Loading x-win.el but not compiled for X" (invocation-name)))
|
2003-02-04 13:30:45 +00:00
|
|
|
|
|
2015-05-09 00:24:37 +00:00
|
|
|
|
(require 'term/common-win)
|
1992-07-15 03:24:58 +00:00
|
|
|
|
(require 'frame)
|
1991-12-20 08:26:25 +00:00
|
|
|
|
(require 'mouse)
|
1993-03-02 02:03:41 +00:00
|
|
|
|
(require 'scroll-bar)
|
1993-05-09 23:54:12 +00:00
|
|
|
|
(require 'faces)
|
|
|
|
|
|
(require 'select)
|
1993-05-15 21:19:18 +00:00
|
|
|
|
(require 'menu-bar)
|
2003-01-17 08:14:14 +00:00
|
|
|
|
(require 'fontset)
|
2004-04-16 12:51:06 +00:00
|
|
|
|
(require 'x-dnd)
|
1991-05-17 00:15:22 +00:00
|
|
|
|
|
1993-06-01 00:29:11 +00:00
|
|
|
|
(defvar x-invocation-args)
|
2005-08-31 09:54:53 +00:00
|
|
|
|
(defvar x-keysym-table)
|
|
|
|
|
|
(defvar x-selection-timeout)
|
|
|
|
|
|
(defvar x-session-id)
|
|
|
|
|
|
(defvar x-session-previous-id)
|
1993-06-01 00:29:11 +00:00
|
|
|
|
|
2013-08-08 23:59:14 +00:00
|
|
|
|
(defun x-handle-no-bitmap-icon (_switch)
|
2007-07-22 12:13:34 +00:00
|
|
|
|
(setq default-frame-alist (cons '(icon-type) default-frame-alist)))
|
|
|
|
|
|
|
2008-02-07 14:07:00 +00:00
|
|
|
|
;; Handle the --parent-id option.
|
|
|
|
|
|
(defun x-handle-parent-id (switch)
|
|
|
|
|
|
(or (consp x-invocation-args)
|
Go back to grave quoting in source-code docstrings etc.
This reverts almost all my recent changes to use curved quotes
in docstrings and/or strings used for error diagnostics.
There are a few exceptions, e.g., Bahá’í proper names.
* admin/unidata/unidata-gen.el (unidata-gen-table):
* lisp/abbrev.el (expand-region-abbrevs):
* lisp/align.el (align-region):
* lisp/allout.el (allout-mode, allout-solicit-alternate-bullet)
(outlineify-sticky):
* lisp/apropos.el (apropos-library):
* lisp/bookmark.el (bookmark-default-annotation-text):
* lisp/button.el (button-category-symbol, button-put)
(make-text-button):
* lisp/calc/calc-aent.el (math-read-if, math-read-factor):
* lisp/calc/calc-embed.el (calc-do-embedded):
* lisp/calc/calc-ext.el (calc-user-function-list):
* lisp/calc/calc-graph.el (calc-graph-show-dumb):
* lisp/calc/calc-help.el (calc-describe-key)
(calc-describe-thing, calc-full-help):
* lisp/calc/calc-lang.el (calc-c-language)
(math-parse-fortran-vector-end, math-parse-tex-sum)
(math-parse-eqn-matrix, math-parse-eqn-prime)
(calc-yacas-language, calc-maxima-language, calc-giac-language)
(math-read-giac-subscr, math-read-math-subscr)
(math-read-big-rec, math-read-big-balance):
* lisp/calc/calc-misc.el (calc-help, report-calc-bug):
* lisp/calc/calc-mode.el (calc-auto-why, calc-save-modes)
(calc-auto-recompute):
* lisp/calc/calc-prog.el (calc-fix-token-name)
(calc-read-parse-table-part, calc-user-define-invocation)
(math-do-arg-check):
* lisp/calc/calc-store.el (calc-edit-variable):
* lisp/calc/calc-units.el (math-build-units-table-buffer):
* lisp/calc/calc-vec.el (math-read-brackets):
* lisp/calc/calc-yank.el (calc-edit-mode):
* lisp/calc/calc.el (calc, calc-do, calc-user-invocation):
* lisp/calendar/appt.el (appt-display-message):
* lisp/calendar/diary-lib.el (diary-check-diary-file)
(diary-mail-entries, diary-from-outlook):
* lisp/calendar/icalendar.el (icalendar-export-region)
(icalendar--convert-float-to-ical)
(icalendar--convert-date-to-ical)
(icalendar--convert-ical-to-diary)
(icalendar--convert-recurring-to-diary)
(icalendar--add-diary-entry):
* lisp/calendar/time-date.el (format-seconds):
* lisp/calendar/timeclock.el (timeclock-mode-line-display)
(timeclock-make-hours-explicit, timeclock-log-data):
* lisp/calendar/todo-mode.el (todo-prefix, todo-delete-category)
(todo-item-mark, todo-check-format)
(todo-insert-item--next-param, todo-edit-item--next-key)
(todo-mode):
* lisp/cedet/ede/pmake.el (ede-proj-makefile-insert-dist-rules):
* lisp/cedet/mode-local.el (describe-mode-local-overload)
(mode-local-print-binding, mode-local-describe-bindings-2):
* lisp/cedet/semantic/complete.el (semantic-displayor-show-request):
* lisp/cedet/srecode/srt-mode.el (srecode-macro-help):
* lisp/cus-start.el (standard):
* lisp/cus-theme.el (describe-theme-1):
* lisp/custom.el (custom-add-dependencies, custom-check-theme)
(custom--sort-vars-1, load-theme):
* lisp/descr-text.el (describe-text-properties-1, describe-char):
* lisp/dired-x.el (dired-do-run-mail):
* lisp/dired.el (dired-log):
* lisp/emacs-lisp/advice.el (ad-read-advised-function)
(ad-read-advice-class, ad-read-advice-name, ad-enable-advice)
(ad-disable-advice, ad-remove-advice, ad-set-argument)
(ad-set-arguments, ad--defalias-fset, ad-activate)
(ad-deactivate):
* lisp/emacs-lisp/byte-opt.el (byte-compile-inline-expand)
(byte-compile-unfold-lambda, byte-optimize-form-code-walker)
(byte-optimize-while, byte-optimize-apply):
* lisp/emacs-lisp/byte-run.el (defun, defsubst):
* lisp/emacs-lisp/bytecomp.el (byte-compile-lapcode)
(byte-compile-log-file, byte-compile-format-warn)
(byte-compile-nogroup-warn, byte-compile-arglist-warn)
(byte-compile-cl-warn)
(byte-compile-warn-about-unresolved-functions)
(byte-compile-file, byte-compile--declare-var)
(byte-compile-file-form-defmumble, byte-compile-form)
(byte-compile-normal-call, byte-compile-check-variable)
(byte-compile-variable-ref, byte-compile-variable-set)
(byte-compile-subr-wrong-args, byte-compile-setq-default)
(byte-compile-negation-optimizer)
(byte-compile-condition-case--old)
(byte-compile-condition-case--new, byte-compile-save-excursion)
(byte-compile-defvar, byte-compile-autoload)
(byte-compile-lambda-form)
(byte-compile-make-variable-buffer-local, display-call-tree)
(batch-byte-compile):
* lisp/emacs-lisp/cconv.el (cconv-convert, cconv--analyze-use):
* lisp/emacs-lisp/chart.el (chart-space-usage):
* lisp/emacs-lisp/check-declare.el (check-declare-scan)
(check-declare-warn, check-declare-file)
(check-declare-directory):
* lisp/emacs-lisp/checkdoc.el (checkdoc-this-string-valid-engine)
(checkdoc-message-text-engine):
* lisp/emacs-lisp/cl-extra.el (cl-parse-integer)
(cl--describe-class):
* lisp/emacs-lisp/cl-generic.el (cl-defgeneric)
(cl--generic-describe, cl-generic-generalizers):
* lisp/emacs-lisp/cl-macs.el (cl--parse-loop-clause, cl-tagbody)
(cl-symbol-macrolet):
* lisp/emacs-lisp/cl.el (cl-unload-function, flet):
* lisp/emacs-lisp/copyright.el (copyright)
(copyright-update-directory):
* lisp/emacs-lisp/edebug.el (edebug-read-list):
* lisp/emacs-lisp/eieio-base.el (eieio-persistent-read):
* lisp/emacs-lisp/eieio-core.el (eieio--slot-override)
(eieio-oref):
* lisp/emacs-lisp/eieio-opt.el (eieio-help-constructor):
* lisp/emacs-lisp/eieio-speedbar.el:
(eieio-speedbar-child-make-tag-lines)
(eieio-speedbar-child-description):
* lisp/emacs-lisp/eieio.el (defclass, change-class):
* lisp/emacs-lisp/elint.el (elint-file, elint-get-top-forms)
(elint-init-form, elint-check-defalias-form)
(elint-check-let-form):
* lisp/emacs-lisp/ert.el (ert-get-test, ert-results-mode-menu)
(ert-results-pop-to-backtrace-for-test-at-point)
(ert-results-pop-to-messages-for-test-at-point)
(ert-results-pop-to-should-forms-for-test-at-point)
(ert-describe-test):
* lisp/emacs-lisp/find-func.el (find-function-search-for-symbol)
(find-function-library):
* lisp/emacs-lisp/generator.el (iter-yield):
* lisp/emacs-lisp/gv.el (gv-define-simple-setter):
* lisp/emacs-lisp/lisp-mnt.el (lm-verify):
* lisp/emacs-lisp/macroexp.el (macroexp--obsolete-warning):
* lisp/emacs-lisp/map-ynp.el (map-y-or-n-p):
* lisp/emacs-lisp/nadvice.el (advice--make-docstring)
(advice--make, define-advice):
* lisp/emacs-lisp/package-x.el (package-upload-file):
* lisp/emacs-lisp/package.el (package-version-join)
(package-disabled-p, package-activate-1, package-activate)
(package--download-one-archive)
(package--download-and-read-archives)
(package-compute-transaction, package-install-from-archive)
(package-install, package-install-selected-packages)
(package-delete, package-autoremove, describe-package-1)
(package-install-button-action, package-delete-button-action)
(package-menu-hide-package, package-menu--list-to-prompt)
(package-menu--perform-transaction)
(package-menu--find-and-notify-upgrades):
* lisp/emacs-lisp/pcase.el (pcase-exhaustive, pcase--u1):
* lisp/emacs-lisp/re-builder.el (reb-enter-subexp-mode):
* lisp/emacs-lisp/ring.el (ring-previous, ring-next):
* lisp/emacs-lisp/rx.el (rx-check, rx-anything)
(rx-check-any-string, rx-check-any, rx-check-not, rx-=)
(rx-repeat, rx-check-backref, rx-syntax, rx-check-category)
(rx-form):
* lisp/emacs-lisp/smie.el (smie-config-save):
* lisp/emacs-lisp/subr-x.el (internal--check-binding):
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-put-tag):
* lisp/emacs-lisp/testcover.el (testcover-1value):
* lisp/emacs-lisp/timer.el (timer-event-handler):
* lisp/emulation/viper-cmd.el (viper-toggle-parse-sexp-ignore-comments)
(viper-toggle-search-style, viper-kill-buffer)
(viper-brac-function):
* lisp/emulation/viper-macs.el (viper-record-kbd-macro):
* lisp/env.el (setenv):
* lisp/erc/erc-button.el (erc-nick-popup):
* lisp/erc/erc.el (erc-cmd-LOAD, erc-handle-login, english):
* lisp/eshell/em-dirs.el (eshell/cd):
* lisp/eshell/em-glob.el (eshell-glob-regexp)
(eshell-glob-entries):
* lisp/eshell/em-pred.el (eshell-parse-modifiers):
* lisp/eshell/esh-opt.el (eshell-show-usage):
* lisp/facemenu.el (facemenu-add-new-face)
(facemenu-add-new-color):
* lisp/faces.el (read-face-name, read-face-font, describe-face)
(x-resolve-font-name):
* lisp/files-x.el (modify-file-local-variable):
* lisp/files.el (locate-user-emacs-file, find-alternate-file)
(set-auto-mode, hack-one-local-variable--obsolete)
(dir-locals-set-directory-class, write-file, basic-save-buffer)
(delete-directory, copy-directory, recover-session)
(recover-session-finish, insert-directory)
(file-modes-char-to-who, file-modes-symbolic-to-number)
(move-file-to-trash):
* lisp/filesets.el (filesets-add-buffer, filesets-remove-buffer):
* lisp/find-cmd.el (find-generic, find-to-string):
* lisp/finder.el (finder-commentary):
* lisp/font-lock.el (font-lock-fontify-buffer):
* lisp/format.el (format-write-file, format-find-file)
(format-insert-file):
* lisp/frame.el (get-device-terminal, select-frame-by-name):
* lisp/fringe.el (fringe--check-style):
* lisp/gnus/nnmairix.el (nnmairix-widget-create-query):
* lisp/help-fns.el (help-fns--key-bindings)
(help-fns--compiler-macro, help-fns--parent-mode)
(help-fns--obsolete, help-fns--interactive-only)
(describe-function-1, describe-variable):
* lisp/help.el (describe-mode)
(describe-minor-mode-from-indicator):
* lisp/image.el (image-type):
* lisp/international/ccl.el (ccl-dump):
* lisp/international/fontset.el (x-must-resolve-font-name):
* lisp/international/mule-cmds.el (prefer-coding-system)
(select-safe-coding-system-interactively)
(select-safe-coding-system, activate-input-method)
(toggle-input-method, describe-current-input-method)
(describe-language-environment):
* lisp/international/mule-conf.el (code-offset):
* lisp/international/mule-diag.el (describe-character-set)
(list-input-methods-1):
* lisp/mail/feedmail.el (feedmail-run-the-queue):
* lisp/mouse.el (minor-mode-menu-from-indicator):
* lisp/mpc.el (mpc-playlist-rename):
* lisp/msb.el (msb--choose-menu):
* lisp/net/ange-ftp.el (ange-ftp-shell-command):
* lisp/net/imap.el (imap-interactive-login):
* lisp/net/mairix.el (mairix-widget-create-query):
* lisp/net/newst-backend.el (newsticker--sentinel-work):
* lisp/net/newst-treeview.el (newsticker--treeview-load):
* lisp/net/rlogin.el (rlogin):
* lisp/obsolete/iswitchb.el (iswitchb-possible-new-buffer):
* lisp/obsolete/otodo-mode.el (todo-more-important-p):
* lisp/obsolete/pgg-gpg.el (pgg-gpg-process-region):
* lisp/obsolete/pgg-pgp.el (pgg-pgp-process-region):
* lisp/obsolete/pgg-pgp5.el (pgg-pgp5-process-region):
* lisp/org/ob-core.el (org-babel-goto-named-src-block)
(org-babel-goto-named-result):
* lisp/org/ob-fortran.el (org-babel-fortran-ensure-main-wrap):
* lisp/org/ob-ref.el (org-babel-ref-resolve):
* lisp/org/org-agenda.el (org-agenda-prepare):
* lisp/org/org-clock.el (org-clock-notify-once-if-expired)
(org-clock-resolve):
* lisp/org/org-ctags.el (org-ctags-ask-rebuild-tags-file-then-find-tag):
* lisp/org/org-feed.el (org-feed-parse-atom-entry):
* lisp/org/org-habit.el (org-habit-parse-todo):
* lisp/org/org-mouse.el (org-mouse-popup-global-menu)
(org-mouse-context-menu):
* lisp/org/org-table.el (org-table-edit-formulas):
* lisp/org/ox.el (org-export-async-start):
* lisp/proced.el (proced-log):
* lisp/progmodes/ada-mode.el (ada-get-indent-case)
(ada-check-matching-start, ada-goto-matching-start):
* lisp/progmodes/ada-prj.el (ada-prj-display-page):
* lisp/progmodes/ada-xref.el (ada-find-executable):
* lisp/progmodes/ebrowse.el (ebrowse-tags-apropos):
* lisp/progmodes/etags.el (etags-tags-apropos-additional):
* lisp/progmodes/flymake.el (flymake-parse-err-lines)
(flymake-start-syntax-check-process):
* lisp/progmodes/python.el (python-shell-get-process-or-error)
(python-define-auxiliary-skeleton):
* lisp/progmodes/sql.el (sql-comint):
* lisp/progmodes/verilog-mode.el (verilog-load-file-at-point):
* lisp/progmodes/vhdl-mode.el (vhdl-widget-directory-validate):
* lisp/recentf.el (recentf-open-files):
* lisp/replace.el (query-replace-read-from)
(occur-after-change-function, occur-1):
* lisp/scroll-bar.el (scroll-bar-columns):
* lisp/server.el (server-get-auth-key):
* lisp/simple.el (execute-extended-command)
(undo-outer-limit-truncate, list-processes--refresh)
(compose-mail, set-variable, choose-completion-string)
(define-alternatives):
* lisp/startup.el (site-run-file, tty-handle-args, command-line)
(command-line-1):
* lisp/subr.el (noreturn, define-error, add-to-list)
(read-char-choice, version-to-list):
* lisp/term/common-win.el (x-handle-xrm-switch)
(x-handle-name-switch, x-handle-args):
* lisp/term/x-win.el (x-handle-parent-id, x-handle-smid):
* lisp/textmodes/reftex-ref.el (reftex-label):
* lisp/textmodes/reftex-toc.el (reftex-toc-rename-label):
* lisp/textmodes/two-column.el (2C-split):
* lisp/tutorial.el (tutorial--describe-nonstandard-key)
(tutorial--find-changed-keys):
* lisp/type-break.el (type-break-noninteractive-query):
* lisp/wdired.el (wdired-do-renames, wdired-do-symlink-changes)
(wdired-do-perm-changes):
* lisp/whitespace.el (whitespace-report-region):
Prefer grave quoting in source-code strings used to generate help
and diagnostics.
* lisp/faces.el (face-documentation):
No need to convert quotes, since the result is a docstring.
* lisp/info.el (Info-virtual-index-find-node)
(Info-virtual-index, info-apropos):
Simplify by generating only curved quotes, since info files are
typically that ways nowadays anyway.
* lisp/international/mule-diag.el (list-input-methods):
Don’t assume text quoting style is curved.
* lisp/org/org-bibtex.el (org-bibtex-fields):
Revert my recent changes, going back to the old quoting style.
2015-09-07 15:41:44 +00:00
|
|
|
|
(error "%s: missing argument to `%s' option" (invocation-name) switch))
|
2008-02-08 08:33:42 +00:00
|
|
|
|
(setq initial-frame-alist (cons
|
|
|
|
|
|
(cons 'parent-id
|
|
|
|
|
|
(string-to-number (car x-invocation-args)))
|
|
|
|
|
|
initial-frame-alist)
|
|
|
|
|
|
x-invocation-args (cdr x-invocation-args)))
|
2008-02-07 14:07:00 +00:00
|
|
|
|
|
2002-03-10 16:27:26 +00:00
|
|
|
|
;; Handle the --smid switch. This is used by the session manager
|
|
|
|
|
|
;; to give us back our session id we had on the previous run.
|
|
|
|
|
|
(defun x-handle-smid (switch)
|
|
|
|
|
|
(or (consp x-invocation-args)
|
Go back to grave quoting in source-code docstrings etc.
This reverts almost all my recent changes to use curved quotes
in docstrings and/or strings used for error diagnostics.
There are a few exceptions, e.g., Bahá’í proper names.
* admin/unidata/unidata-gen.el (unidata-gen-table):
* lisp/abbrev.el (expand-region-abbrevs):
* lisp/align.el (align-region):
* lisp/allout.el (allout-mode, allout-solicit-alternate-bullet)
(outlineify-sticky):
* lisp/apropos.el (apropos-library):
* lisp/bookmark.el (bookmark-default-annotation-text):
* lisp/button.el (button-category-symbol, button-put)
(make-text-button):
* lisp/calc/calc-aent.el (math-read-if, math-read-factor):
* lisp/calc/calc-embed.el (calc-do-embedded):
* lisp/calc/calc-ext.el (calc-user-function-list):
* lisp/calc/calc-graph.el (calc-graph-show-dumb):
* lisp/calc/calc-help.el (calc-describe-key)
(calc-describe-thing, calc-full-help):
* lisp/calc/calc-lang.el (calc-c-language)
(math-parse-fortran-vector-end, math-parse-tex-sum)
(math-parse-eqn-matrix, math-parse-eqn-prime)
(calc-yacas-language, calc-maxima-language, calc-giac-language)
(math-read-giac-subscr, math-read-math-subscr)
(math-read-big-rec, math-read-big-balance):
* lisp/calc/calc-misc.el (calc-help, report-calc-bug):
* lisp/calc/calc-mode.el (calc-auto-why, calc-save-modes)
(calc-auto-recompute):
* lisp/calc/calc-prog.el (calc-fix-token-name)
(calc-read-parse-table-part, calc-user-define-invocation)
(math-do-arg-check):
* lisp/calc/calc-store.el (calc-edit-variable):
* lisp/calc/calc-units.el (math-build-units-table-buffer):
* lisp/calc/calc-vec.el (math-read-brackets):
* lisp/calc/calc-yank.el (calc-edit-mode):
* lisp/calc/calc.el (calc, calc-do, calc-user-invocation):
* lisp/calendar/appt.el (appt-display-message):
* lisp/calendar/diary-lib.el (diary-check-diary-file)
(diary-mail-entries, diary-from-outlook):
* lisp/calendar/icalendar.el (icalendar-export-region)
(icalendar--convert-float-to-ical)
(icalendar--convert-date-to-ical)
(icalendar--convert-ical-to-diary)
(icalendar--convert-recurring-to-diary)
(icalendar--add-diary-entry):
* lisp/calendar/time-date.el (format-seconds):
* lisp/calendar/timeclock.el (timeclock-mode-line-display)
(timeclock-make-hours-explicit, timeclock-log-data):
* lisp/calendar/todo-mode.el (todo-prefix, todo-delete-category)
(todo-item-mark, todo-check-format)
(todo-insert-item--next-param, todo-edit-item--next-key)
(todo-mode):
* lisp/cedet/ede/pmake.el (ede-proj-makefile-insert-dist-rules):
* lisp/cedet/mode-local.el (describe-mode-local-overload)
(mode-local-print-binding, mode-local-describe-bindings-2):
* lisp/cedet/semantic/complete.el (semantic-displayor-show-request):
* lisp/cedet/srecode/srt-mode.el (srecode-macro-help):
* lisp/cus-start.el (standard):
* lisp/cus-theme.el (describe-theme-1):
* lisp/custom.el (custom-add-dependencies, custom-check-theme)
(custom--sort-vars-1, load-theme):
* lisp/descr-text.el (describe-text-properties-1, describe-char):
* lisp/dired-x.el (dired-do-run-mail):
* lisp/dired.el (dired-log):
* lisp/emacs-lisp/advice.el (ad-read-advised-function)
(ad-read-advice-class, ad-read-advice-name, ad-enable-advice)
(ad-disable-advice, ad-remove-advice, ad-set-argument)
(ad-set-arguments, ad--defalias-fset, ad-activate)
(ad-deactivate):
* lisp/emacs-lisp/byte-opt.el (byte-compile-inline-expand)
(byte-compile-unfold-lambda, byte-optimize-form-code-walker)
(byte-optimize-while, byte-optimize-apply):
* lisp/emacs-lisp/byte-run.el (defun, defsubst):
* lisp/emacs-lisp/bytecomp.el (byte-compile-lapcode)
(byte-compile-log-file, byte-compile-format-warn)
(byte-compile-nogroup-warn, byte-compile-arglist-warn)
(byte-compile-cl-warn)
(byte-compile-warn-about-unresolved-functions)
(byte-compile-file, byte-compile--declare-var)
(byte-compile-file-form-defmumble, byte-compile-form)
(byte-compile-normal-call, byte-compile-check-variable)
(byte-compile-variable-ref, byte-compile-variable-set)
(byte-compile-subr-wrong-args, byte-compile-setq-default)
(byte-compile-negation-optimizer)
(byte-compile-condition-case--old)
(byte-compile-condition-case--new, byte-compile-save-excursion)
(byte-compile-defvar, byte-compile-autoload)
(byte-compile-lambda-form)
(byte-compile-make-variable-buffer-local, display-call-tree)
(batch-byte-compile):
* lisp/emacs-lisp/cconv.el (cconv-convert, cconv--analyze-use):
* lisp/emacs-lisp/chart.el (chart-space-usage):
* lisp/emacs-lisp/check-declare.el (check-declare-scan)
(check-declare-warn, check-declare-file)
(check-declare-directory):
* lisp/emacs-lisp/checkdoc.el (checkdoc-this-string-valid-engine)
(checkdoc-message-text-engine):
* lisp/emacs-lisp/cl-extra.el (cl-parse-integer)
(cl--describe-class):
* lisp/emacs-lisp/cl-generic.el (cl-defgeneric)
(cl--generic-describe, cl-generic-generalizers):
* lisp/emacs-lisp/cl-macs.el (cl--parse-loop-clause, cl-tagbody)
(cl-symbol-macrolet):
* lisp/emacs-lisp/cl.el (cl-unload-function, flet):
* lisp/emacs-lisp/copyright.el (copyright)
(copyright-update-directory):
* lisp/emacs-lisp/edebug.el (edebug-read-list):
* lisp/emacs-lisp/eieio-base.el (eieio-persistent-read):
* lisp/emacs-lisp/eieio-core.el (eieio--slot-override)
(eieio-oref):
* lisp/emacs-lisp/eieio-opt.el (eieio-help-constructor):
* lisp/emacs-lisp/eieio-speedbar.el:
(eieio-speedbar-child-make-tag-lines)
(eieio-speedbar-child-description):
* lisp/emacs-lisp/eieio.el (defclass, change-class):
* lisp/emacs-lisp/elint.el (elint-file, elint-get-top-forms)
(elint-init-form, elint-check-defalias-form)
(elint-check-let-form):
* lisp/emacs-lisp/ert.el (ert-get-test, ert-results-mode-menu)
(ert-results-pop-to-backtrace-for-test-at-point)
(ert-results-pop-to-messages-for-test-at-point)
(ert-results-pop-to-should-forms-for-test-at-point)
(ert-describe-test):
* lisp/emacs-lisp/find-func.el (find-function-search-for-symbol)
(find-function-library):
* lisp/emacs-lisp/generator.el (iter-yield):
* lisp/emacs-lisp/gv.el (gv-define-simple-setter):
* lisp/emacs-lisp/lisp-mnt.el (lm-verify):
* lisp/emacs-lisp/macroexp.el (macroexp--obsolete-warning):
* lisp/emacs-lisp/map-ynp.el (map-y-or-n-p):
* lisp/emacs-lisp/nadvice.el (advice--make-docstring)
(advice--make, define-advice):
* lisp/emacs-lisp/package-x.el (package-upload-file):
* lisp/emacs-lisp/package.el (package-version-join)
(package-disabled-p, package-activate-1, package-activate)
(package--download-one-archive)
(package--download-and-read-archives)
(package-compute-transaction, package-install-from-archive)
(package-install, package-install-selected-packages)
(package-delete, package-autoremove, describe-package-1)
(package-install-button-action, package-delete-button-action)
(package-menu-hide-package, package-menu--list-to-prompt)
(package-menu--perform-transaction)
(package-menu--find-and-notify-upgrades):
* lisp/emacs-lisp/pcase.el (pcase-exhaustive, pcase--u1):
* lisp/emacs-lisp/re-builder.el (reb-enter-subexp-mode):
* lisp/emacs-lisp/ring.el (ring-previous, ring-next):
* lisp/emacs-lisp/rx.el (rx-check, rx-anything)
(rx-check-any-string, rx-check-any, rx-check-not, rx-=)
(rx-repeat, rx-check-backref, rx-syntax, rx-check-category)
(rx-form):
* lisp/emacs-lisp/smie.el (smie-config-save):
* lisp/emacs-lisp/subr-x.el (internal--check-binding):
* lisp/emacs-lisp/tabulated-list.el (tabulated-list-put-tag):
* lisp/emacs-lisp/testcover.el (testcover-1value):
* lisp/emacs-lisp/timer.el (timer-event-handler):
* lisp/emulation/viper-cmd.el (viper-toggle-parse-sexp-ignore-comments)
(viper-toggle-search-style, viper-kill-buffer)
(viper-brac-function):
* lisp/emulation/viper-macs.el (viper-record-kbd-macro):
* lisp/env.el (setenv):
* lisp/erc/erc-button.el (erc-nick-popup):
* lisp/erc/erc.el (erc-cmd-LOAD, erc-handle-login, english):
* lisp/eshell/em-dirs.el (eshell/cd):
* lisp/eshell/em-glob.el (eshell-glob-regexp)
(eshell-glob-entries):
* lisp/eshell/em-pred.el (eshell-parse-modifiers):
* lisp/eshell/esh-opt.el (eshell-show-usage):
* lisp/facemenu.el (facemenu-add-new-face)
(facemenu-add-new-color):
* lisp/faces.el (read-face-name, read-face-font, describe-face)
(x-resolve-font-name):
* lisp/files-x.el (modify-file-local-variable):
* lisp/files.el (locate-user-emacs-file, find-alternate-file)
(set-auto-mode, hack-one-local-variable--obsolete)
(dir-locals-set-directory-class, write-file, basic-save-buffer)
(delete-directory, copy-directory, recover-session)
(recover-session-finish, insert-directory)
(file-modes-char-to-who, file-modes-symbolic-to-number)
(move-file-to-trash):
* lisp/filesets.el (filesets-add-buffer, filesets-remove-buffer):
* lisp/find-cmd.el (find-generic, find-to-string):
* lisp/finder.el (finder-commentary):
* lisp/font-lock.el (font-lock-fontify-buffer):
* lisp/format.el (format-write-file, format-find-file)
(format-insert-file):
* lisp/frame.el (get-device-terminal, select-frame-by-name):
* lisp/fringe.el (fringe--check-style):
* lisp/gnus/nnmairix.el (nnmairix-widget-create-query):
* lisp/help-fns.el (help-fns--key-bindings)
(help-fns--compiler-macro, help-fns--parent-mode)
(help-fns--obsolete, help-fns--interactive-only)
(describe-function-1, describe-variable):
* lisp/help.el (describe-mode)
(describe-minor-mode-from-indicator):
* lisp/image.el (image-type):
* lisp/international/ccl.el (ccl-dump):
* lisp/international/fontset.el (x-must-resolve-font-name):
* lisp/international/mule-cmds.el (prefer-coding-system)
(select-safe-coding-system-interactively)
(select-safe-coding-system, activate-input-method)
(toggle-input-method, describe-current-input-method)
(describe-language-environment):
* lisp/international/mule-conf.el (code-offset):
* lisp/international/mule-diag.el (describe-character-set)
(list-input-methods-1):
* lisp/mail/feedmail.el (feedmail-run-the-queue):
* lisp/mouse.el (minor-mode-menu-from-indicator):
* lisp/mpc.el (mpc-playlist-rename):
* lisp/msb.el (msb--choose-menu):
* lisp/net/ange-ftp.el (ange-ftp-shell-command):
* lisp/net/imap.el (imap-interactive-login):
* lisp/net/mairix.el (mairix-widget-create-query):
* lisp/net/newst-backend.el (newsticker--sentinel-work):
* lisp/net/newst-treeview.el (newsticker--treeview-load):
* lisp/net/rlogin.el (rlogin):
* lisp/obsolete/iswitchb.el (iswitchb-possible-new-buffer):
* lisp/obsolete/otodo-mode.el (todo-more-important-p):
* lisp/obsolete/pgg-gpg.el (pgg-gpg-process-region):
* lisp/obsolete/pgg-pgp.el (pgg-pgp-process-region):
* lisp/obsolete/pgg-pgp5.el (pgg-pgp5-process-region):
* lisp/org/ob-core.el (org-babel-goto-named-src-block)
(org-babel-goto-named-result):
* lisp/org/ob-fortran.el (org-babel-fortran-ensure-main-wrap):
* lisp/org/ob-ref.el (org-babel-ref-resolve):
* lisp/org/org-agenda.el (org-agenda-prepare):
* lisp/org/org-clock.el (org-clock-notify-once-if-expired)
(org-clock-resolve):
* lisp/org/org-ctags.el (org-ctags-ask-rebuild-tags-file-then-find-tag):
* lisp/org/org-feed.el (org-feed-parse-atom-entry):
* lisp/org/org-habit.el (org-habit-parse-todo):
* lisp/org/org-mouse.el (org-mouse-popup-global-menu)
(org-mouse-context-menu):
* lisp/org/org-table.el (org-table-edit-formulas):
* lisp/org/ox.el (org-export-async-start):
* lisp/proced.el (proced-log):
* lisp/progmodes/ada-mode.el (ada-get-indent-case)
(ada-check-matching-start, ada-goto-matching-start):
* lisp/progmodes/ada-prj.el (ada-prj-display-page):
* lisp/progmodes/ada-xref.el (ada-find-executable):
* lisp/progmodes/ebrowse.el (ebrowse-tags-apropos):
* lisp/progmodes/etags.el (etags-tags-apropos-additional):
* lisp/progmodes/flymake.el (flymake-parse-err-lines)
(flymake-start-syntax-check-process):
* lisp/progmodes/python.el (python-shell-get-process-or-error)
(python-define-auxiliary-skeleton):
* lisp/progmodes/sql.el (sql-comint):
* lisp/progmodes/verilog-mode.el (verilog-load-file-at-point):
* lisp/progmodes/vhdl-mode.el (vhdl-widget-directory-validate):
* lisp/recentf.el (recentf-open-files):
* lisp/replace.el (query-replace-read-from)
(occur-after-change-function, occur-1):
* lisp/scroll-bar.el (scroll-bar-columns):
* lisp/server.el (server-get-auth-key):
* lisp/simple.el (execute-extended-command)
(undo-outer-limit-truncate, list-processes--refresh)
(compose-mail, set-variable, choose-completion-string)
(define-alternatives):
* lisp/startup.el (site-run-file, tty-handle-args, command-line)
(command-line-1):
* lisp/subr.el (noreturn, define-error, add-to-list)
(read-char-choice, version-to-list):
* lisp/term/common-win.el (x-handle-xrm-switch)
(x-handle-name-switch, x-handle-args):
* lisp/term/x-win.el (x-handle-parent-id, x-handle-smid):
* lisp/textmodes/reftex-ref.el (reftex-label):
* lisp/textmodes/reftex-toc.el (reftex-toc-rename-label):
* lisp/textmodes/two-column.el (2C-split):
* lisp/tutorial.el (tutorial--describe-nonstandard-key)
(tutorial--find-changed-keys):
* lisp/type-break.el (type-break-noninteractive-query):
* lisp/wdired.el (wdired-do-renames, wdired-do-symlink-changes)
(wdired-do-perm-changes):
* lisp/whitespace.el (whitespace-report-region):
Prefer grave quoting in source-code strings used to generate help
and diagnostics.
* lisp/faces.el (face-documentation):
No need to convert quotes, since the result is a docstring.
* lisp/info.el (Info-virtual-index-find-node)
(Info-virtual-index, info-apropos):
Simplify by generating only curved quotes, since info files are
typically that ways nowadays anyway.
* lisp/international/mule-diag.el (list-input-methods):
Don’t assume text quoting style is curved.
* lisp/org/org-bibtex.el (org-bibtex-fields):
Revert my recent changes, going back to the old quoting style.
2015-09-07 15:41:44 +00:00
|
|
|
|
(error "%s: missing argument to `%s' option" (invocation-name) switch))
|
2002-03-10 16:27:26 +00:00
|
|
|
|
(setq x-session-previous-id (car x-invocation-args)
|
|
|
|
|
|
x-invocation-args (cdr x-invocation-args)))
|
|
|
|
|
|
|
|
|
|
|
|
(defvar emacs-save-session-functions nil
|
2003-05-24 16:13:06 +00:00
|
|
|
|
"Special hook run when a save-session event occurs.
|
|
|
|
|
|
The functions do not get any argument.
|
2002-03-10 16:27:26 +00:00
|
|
|
|
Functions can return non-nil to inform the session manager that the
|
|
|
|
|
|
window system shutdown should be aborted.
|
|
|
|
|
|
|
|
|
|
|
|
See also `emacs-session-save'.")
|
|
|
|
|
|
|
|
|
|
|
|
(defun emacs-session-filename (session-id)
|
|
|
|
|
|
"Construct a filename to save the session in based on SESSION-ID.
|
2013-06-20 21:58:29 +00:00
|
|
|
|
Return a filename in `user-emacs-directory', unless the session file
|
|
|
|
|
|
already exists in the home directory."
|
|
|
|
|
|
(let ((basename (concat "session." session-id)))
|
|
|
|
|
|
(locate-user-emacs-file basename
|
|
|
|
|
|
(concat ".emacs-" basename))))
|
2003-02-04 13:30:45 +00:00
|
|
|
|
|
2002-03-10 16:27:26 +00:00
|
|
|
|
(defun emacs-session-save ()
|
|
|
|
|
|
"This function is called when the window system is shutting down.
|
2011-12-04 08:02:42 +00:00
|
|
|
|
If this function returns non-nil, the window system shutdown is canceled.
|
2002-03-10 16:27:26 +00:00
|
|
|
|
|
|
|
|
|
|
When a session manager tells Emacs that the window system is shutting
|
|
|
|
|
|
down, this function is called. It calls the functions in the hook
|
|
|
|
|
|
`emacs-save-session-functions'. Functions are called with the current
|
|
|
|
|
|
buffer set to a temporary buffer. Functions should use `insert' to insert
|
2010-01-18 04:39:40 +00:00
|
|
|
|
lisp code to save the session state. The buffer is saved in a file in the
|
|
|
|
|
|
home directory of the user running Emacs. The file is evaluated when
|
|
|
|
|
|
Emacs is restarted by the session manager.
|
2002-03-10 16:27:26 +00:00
|
|
|
|
|
|
|
|
|
|
If any of the functions returns non-nil, no more functions are called
|
|
|
|
|
|
and this function returns non-nil. This will inform the session manager
|
|
|
|
|
|
that it should abort the window system shutdown."
|
|
|
|
|
|
(let ((filename (emacs-session-filename x-session-id))
|
|
|
|
|
|
(buf (get-buffer-create (concat " *SES " x-session-id))))
|
|
|
|
|
|
(when (file-exists-p filename)
|
|
|
|
|
|
(delete-file filename))
|
|
|
|
|
|
(with-current-buffer buf
|
|
|
|
|
|
(let ((cancel-shutdown (condition-case nil
|
2002-03-12 21:15:07 +00:00
|
|
|
|
;; A return of t means cancel the shutdown.
|
2003-02-04 13:30:45 +00:00
|
|
|
|
(run-hook-with-args-until-success
|
2002-03-10 16:27:26 +00:00
|
|
|
|
'emacs-save-session-functions)
|
|
|
|
|
|
(error t))))
|
|
|
|
|
|
(unless cancel-shutdown
|
|
|
|
|
|
(write-file filename))
|
|
|
|
|
|
(kill-buffer buf)
|
|
|
|
|
|
cancel-shutdown))))
|
|
|
|
|
|
|
2002-03-12 19:15:06 +00:00
|
|
|
|
(defun emacs-session-restore (previous-session-id)
|
2002-03-10 16:27:26 +00:00
|
|
|
|
"Restore the Emacs session if started by a session manager.
|
|
|
|
|
|
The file saved by `emacs-session-save' is evaluated and deleted if it
|
|
|
|
|
|
exists."
|
2002-03-12 19:15:06 +00:00
|
|
|
|
(let ((filename (emacs-session-filename previous-session-id)))
|
2002-03-10 16:27:26 +00:00
|
|
|
|
(when (file-exists-p filename)
|
|
|
|
|
|
(load-file filename)
|
|
|
|
|
|
(delete-file filename)
|
|
|
|
|
|
(message "Restored session data"))))
|
|
|
|
|
|
|
2003-02-04 13:30:45 +00:00
|
|
|
|
|
|
|
|
|
|
|
1990-03-22 20:46:04 +00:00
|
|
|
|
|
|
|
|
|
|
;;
|
|
|
|
|
|
;; Standard X cursor shapes, courtesy of Mr. Fox, who wanted ALL of them.
|
|
|
|
|
|
;;
|
|
|
|
|
|
|
|
|
|
|
|
(defconst x-pointer-X-cursor 0)
|
|
|
|
|
|
(defconst x-pointer-arrow 2)
|
|
|
|
|
|
(defconst x-pointer-based-arrow-down 4)
|
|
|
|
|
|
(defconst x-pointer-based-arrow-up 6)
|
|
|
|
|
|
(defconst x-pointer-boat 8)
|
|
|
|
|
|
(defconst x-pointer-bogosity 10)
|
|
|
|
|
|
(defconst x-pointer-bottom-left-corner 12)
|
|
|
|
|
|
(defconst x-pointer-bottom-right-corner 14)
|
|
|
|
|
|
(defconst x-pointer-bottom-side 16)
|
|
|
|
|
|
(defconst x-pointer-bottom-tee 18)
|
|
|
|
|
|
(defconst x-pointer-box-spiral 20)
|
|
|
|
|
|
(defconst x-pointer-center-ptr 22)
|
|
|
|
|
|
(defconst x-pointer-circle 24)
|
|
|
|
|
|
(defconst x-pointer-clock 26)
|
|
|
|
|
|
(defconst x-pointer-coffee-mug 28)
|
|
|
|
|
|
(defconst x-pointer-cross 30)
|
|
|
|
|
|
(defconst x-pointer-cross-reverse 32)
|
|
|
|
|
|
(defconst x-pointer-crosshair 34)
|
|
|
|
|
|
(defconst x-pointer-diamond-cross 36)
|
|
|
|
|
|
(defconst x-pointer-dot 38)
|
|
|
|
|
|
(defconst x-pointer-dotbox 40)
|
|
|
|
|
|
(defconst x-pointer-double-arrow 42)
|
|
|
|
|
|
(defconst x-pointer-draft-large 44)
|
|
|
|
|
|
(defconst x-pointer-draft-small 46)
|
|
|
|
|
|
(defconst x-pointer-draped-box 48)
|
|
|
|
|
|
(defconst x-pointer-exchange 50)
|
|
|
|
|
|
(defconst x-pointer-fleur 52)
|
|
|
|
|
|
(defconst x-pointer-gobbler 54)
|
|
|
|
|
|
(defconst x-pointer-gumby 56)
|
|
|
|
|
|
(defconst x-pointer-hand1 58)
|
|
|
|
|
|
(defconst x-pointer-hand2 60)
|
|
|
|
|
|
(defconst x-pointer-heart 62)
|
|
|
|
|
|
(defconst x-pointer-icon 64)
|
|
|
|
|
|
(defconst x-pointer-iron-cross 66)
|
|
|
|
|
|
(defconst x-pointer-left-ptr 68)
|
|
|
|
|
|
(defconst x-pointer-left-side 70)
|
|
|
|
|
|
(defconst x-pointer-left-tee 72)
|
|
|
|
|
|
(defconst x-pointer-leftbutton 74)
|
|
|
|
|
|
(defconst x-pointer-ll-angle 76)
|
|
|
|
|
|
(defconst x-pointer-lr-angle 78)
|
|
|
|
|
|
(defconst x-pointer-man 80)
|
|
|
|
|
|
(defconst x-pointer-middlebutton 82)
|
|
|
|
|
|
(defconst x-pointer-mouse 84)
|
|
|
|
|
|
(defconst x-pointer-pencil 86)
|
|
|
|
|
|
(defconst x-pointer-pirate 88)
|
|
|
|
|
|
(defconst x-pointer-plus 90)
|
|
|
|
|
|
(defconst x-pointer-question-arrow 92)
|
|
|
|
|
|
(defconst x-pointer-right-ptr 94)
|
|
|
|
|
|
(defconst x-pointer-right-side 96)
|
|
|
|
|
|
(defconst x-pointer-right-tee 98)
|
|
|
|
|
|
(defconst x-pointer-rightbutton 100)
|
|
|
|
|
|
(defconst x-pointer-rtl-logo 102)
|
|
|
|
|
|
(defconst x-pointer-sailboat 104)
|
|
|
|
|
|
(defconst x-pointer-sb-down-arrow 106)
|
|
|
|
|
|
(defconst x-pointer-sb-h-double-arrow 108)
|
|
|
|
|
|
(defconst x-pointer-sb-left-arrow 110)
|
|
|
|
|
|
(defconst x-pointer-sb-right-arrow 112)
|
|
|
|
|
|
(defconst x-pointer-sb-up-arrow 114)
|
|
|
|
|
|
(defconst x-pointer-sb-v-double-arrow 116)
|
|
|
|
|
|
(defconst x-pointer-shuttle 118)
|
|
|
|
|
|
(defconst x-pointer-sizing 120)
|
|
|
|
|
|
(defconst x-pointer-spider 122)
|
|
|
|
|
|
(defconst x-pointer-spraycan 124)
|
|
|
|
|
|
(defconst x-pointer-star 126)
|
|
|
|
|
|
(defconst x-pointer-target 128)
|
|
|
|
|
|
(defconst x-pointer-tcross 130)
|
|
|
|
|
|
(defconst x-pointer-top-left-arrow 132)
|
|
|
|
|
|
(defconst x-pointer-top-left-corner 134)
|
|
|
|
|
|
(defconst x-pointer-top-right-corner 136)
|
|
|
|
|
|
(defconst x-pointer-top-side 138)
|
|
|
|
|
|
(defconst x-pointer-top-tee 140)
|
|
|
|
|
|
(defconst x-pointer-trek 142)
|
|
|
|
|
|
(defconst x-pointer-ul-angle 144)
|
|
|
|
|
|
(defconst x-pointer-umbrella 146)
|
|
|
|
|
|
(defconst x-pointer-ur-angle 148)
|
|
|
|
|
|
(defconst x-pointer-watch 150)
|
|
|
|
|
|
(defconst x-pointer-xterm 152)
|
2007-08-31 10:13:35 +00:00
|
|
|
|
(defconst x-pointer-invisible 255)
|
1990-03-22 20:46:04 +00:00
|
|
|
|
|
2002-10-30 19:26:23 +00:00
|
|
|
|
|
|
|
|
|
|
;;;; Keysyms
|
|
|
|
|
|
|
1995-05-15 23:19:13 +00:00
|
|
|
|
(defun vendor-specific-keysyms (vendor)
|
2003-03-10 13:30:22 +00:00
|
|
|
|
"Return the appropriate value of `system-key-alist' for VENDOR.
|
1995-05-15 23:19:13 +00:00
|
|
|
|
VENDOR is a string containing the name of the X Server's vendor,
|
2003-03-10 13:30:22 +00:00
|
|
|
|
as returned by `x-server-vendor'."
|
2008-01-06 00:56:56 +00:00
|
|
|
|
(cond ((or (string-equal vendor "Hewlett-Packard Incorporated")
|
1995-05-24 04:59:27 +00:00
|
|
|
|
(string-equal vendor "Hewlett-Packard Company"))
|
1995-05-15 23:19:13 +00:00
|
|
|
|
'(( 168 . mute-acute)
|
|
|
|
|
|
( 169 . mute-grave)
|
|
|
|
|
|
( 170 . mute-asciicircum)
|
|
|
|
|
|
( 171 . mute-diaeresis)
|
|
|
|
|
|
( 172 . mute-asciitilde)
|
|
|
|
|
|
( 175 . lira)
|
|
|
|
|
|
( 190 . guilder)
|
|
|
|
|
|
( 252 . block)
|
|
|
|
|
|
( 256 . longminus)
|
|
|
|
|
|
(65388 . reset)
|
|
|
|
|
|
(65389 . system)
|
|
|
|
|
|
(65390 . user)
|
|
|
|
|
|
(65391 . clearline)
|
|
|
|
|
|
(65392 . insertline)
|
|
|
|
|
|
(65393 . deleteline)
|
|
|
|
|
|
(65394 . insertchar)
|
|
|
|
|
|
(65395 . deletechar)
|
|
|
|
|
|
(65396 . backtab)
|
|
|
|
|
|
(65397 . kp-backtab)))
|
2002-10-30 19:26:23 +00:00
|
|
|
|
;; Fixme: What about non-X11/NeWS sun server?
|
1995-06-02 01:03:43 +00:00
|
|
|
|
((or (string-equal vendor "X11/NeWS - Sun Microsystems Inc.")
|
|
|
|
|
|
(string-equal vendor "X Consortium"))
|
1995-07-17 22:49:37 +00:00
|
|
|
|
'((392976 . f36)
|
|
|
|
|
|
(392977 . f37)
|
1995-05-15 23:19:13 +00:00
|
|
|
|
(393056 . req)
|
|
|
|
|
|
;; These are for Sun under X11R6
|
|
|
|
|
|
(393072 . props)
|
|
|
|
|
|
(393073 . front)
|
|
|
|
|
|
(393074 . copy)
|
|
|
|
|
|
(393075 . open)
|
|
|
|
|
|
(393076 . paste)
|
|
|
|
|
|
(393077 . cut)))
|
|
|
|
|
|
(t
|
|
|
|
|
|
;; This is used by DEC's X server.
|
|
|
|
|
|
'((65280 . remove)))))
|
|
|
|
|
|
|
2002-10-28 14:46:01 +00:00
|
|
|
|
;; Latin-1
|
2002-10-30 19:26:23 +00:00
|
|
|
|
(let ((i 160))
|
|
|
|
|
|
(while (< i 256)
|
2002-10-27 21:10:00 +00:00
|
|
|
|
(puthash i i x-keysym-table)
|
2002-10-30 19:26:23 +00:00
|
|
|
|
(setq i (1+ i))))
|
|
|
|
|
|
|
|
|
|
|
|
;; Table from Kuhn's proposed additions to the `KEYSYM Encoding'
|
|
|
|
|
|
;; appendix to the X protocol definition.
|
|
|
|
|
|
(dolist
|
|
|
|
|
|
(pair
|
|
|
|
|
|
'(
|
|
|
|
|
|
;; Latin-2
|
2015-08-16 15:34:44 +00:00
|
|
|
|
(#x1a1 . ?Ą)
|
|
|
|
|
|
(#x1a2 . ?˘)
|
|
|
|
|
|
(#x1a3 . ?Ł)
|
|
|
|
|
|
(#x1a5 . ?Ľ)
|
|
|
|
|
|
(#x1a6 . ?Ś)
|
|
|
|
|
|
(#x1a9 . ?Š)
|
|
|
|
|
|
(#x1aa . ?Ş)
|
|
|
|
|
|
(#x1ab . ?Ť)
|
|
|
|
|
|
(#x1ac . ?Ź)
|
|
|
|
|
|
(#x1ae . ?Ž)
|
|
|
|
|
|
(#x1af . ?Ż)
|
|
|
|
|
|
(#x1b1 . ?ą)
|
|
|
|
|
|
(#x1b2 . ?˛)
|
|
|
|
|
|
(#x1b3 . ?ł)
|
|
|
|
|
|
(#x1b5 . ?ľ)
|
|
|
|
|
|
(#x1b6 . ?ś)
|
|
|
|
|
|
(#x1b7 . ?ˇ)
|
|
|
|
|
|
(#x1b9 . ?š)
|
|
|
|
|
|
(#x1ba . ?ş)
|
|
|
|
|
|
(#x1bb . ?ť)
|
|
|
|
|
|
(#x1bc . ?ź)
|
|
|
|
|
|
(#x1bd . ?˝)
|
|
|
|
|
|
(#x1be . ?ž)
|
|
|
|
|
|
(#x1bf . ?ż)
|
|
|
|
|
|
(#x1c0 . ?Ŕ)
|
|
|
|
|
|
(#x1c3 . ?Ă)
|
|
|
|
|
|
(#x1c5 . ?Ĺ)
|
|
|
|
|
|
(#x1c6 . ?Ć)
|
|
|
|
|
|
(#x1c8 . ?Č)
|
|
|
|
|
|
(#x1ca . ?Ę)
|
|
|
|
|
|
(#x1cc . ?Ě)
|
|
|
|
|
|
(#x1cf . ?Ď)
|
|
|
|
|
|
(#x1d0 . ?Đ)
|
|
|
|
|
|
(#x1d1 . ?Ń)
|
|
|
|
|
|
(#x1d2 . ?Ň)
|
|
|
|
|
|
(#x1d5 . ?Ő)
|
|
|
|
|
|
(#x1d8 . ?Ř)
|
|
|
|
|
|
(#x1d9 . ?Ů)
|
|
|
|
|
|
(#x1db . ?Ű)
|
|
|
|
|
|
(#x1de . ?Ţ)
|
|
|
|
|
|
(#x1e0 . ?ŕ)
|
|
|
|
|
|
(#x1e3 . ?ă)
|
|
|
|
|
|
(#x1e5 . ?ĺ)
|
|
|
|
|
|
(#x1e6 . ?ć)
|
|
|
|
|
|
(#x1e8 . ?č)
|
|
|
|
|
|
(#x1ea . ?ę)
|
|
|
|
|
|
(#x1ec . ?ě)
|
|
|
|
|
|
(#x1ef . ?ď)
|
|
|
|
|
|
(#x1f0 . ?đ)
|
|
|
|
|
|
(#x1f1 . ?ń)
|
|
|
|
|
|
(#x1f2 . ?ň)
|
|
|
|
|
|
(#x1f5 . ?ő)
|
|
|
|
|
|
(#x1f8 . ?ř)
|
|
|
|
|
|
(#x1f9 . ?ů)
|
|
|
|
|
|
(#x1fb . ?ű)
|
|
|
|
|
|
(#x1fe . ?ţ)
|
|
|
|
|
|
(#x1ff . ?˙)
|
2002-10-30 19:26:23 +00:00
|
|
|
|
;; Latin-3
|
2015-08-16 15:34:44 +00:00
|
|
|
|
(#x2a1 . ?Ħ)
|
|
|
|
|
|
(#x2a6 . ?Ĥ)
|
|
|
|
|
|
(#x2a9 . ?İ)
|
|
|
|
|
|
(#x2ab . ?Ğ)
|
|
|
|
|
|
(#x2ac . ?Ĵ)
|
|
|
|
|
|
(#x2b1 . ?ħ)
|
|
|
|
|
|
(#x2b6 . ?ĥ)
|
|
|
|
|
|
(#x2b9 . ?ı)
|
|
|
|
|
|
(#x2bb . ?ğ)
|
|
|
|
|
|
(#x2bc . ?ĵ)
|
|
|
|
|
|
(#x2c5 . ?Ċ)
|
|
|
|
|
|
(#x2c6 . ?Ĉ)
|
|
|
|
|
|
(#x2d5 . ?Ġ)
|
|
|
|
|
|
(#x2d8 . ?Ĝ)
|
|
|
|
|
|
(#x2dd . ?Ŭ)
|
|
|
|
|
|
(#x2de . ?Ŝ)
|
|
|
|
|
|
(#x2e5 . ?ċ)
|
|
|
|
|
|
(#x2e6 . ?ĉ)
|
|
|
|
|
|
(#x2f5 . ?ġ)
|
|
|
|
|
|
(#x2f8 . ?ĝ)
|
|
|
|
|
|
(#x2fd . ?ŭ)
|
|
|
|
|
|
(#x2fe . ?ŝ)
|
2002-10-30 19:26:23 +00:00
|
|
|
|
;; Latin-4
|
2015-08-16 15:34:44 +00:00
|
|
|
|
(#x3a2 . ?ĸ)
|
|
|
|
|
|
(#x3a3 . ?Ŗ)
|
|
|
|
|
|
(#x3a5 . ?Ĩ)
|
|
|
|
|
|
(#x3a6 . ?Ļ)
|
|
|
|
|
|
(#x3aa . ?Ē)
|
|
|
|
|
|
(#x3ab . ?Ģ)
|
|
|
|
|
|
(#x3ac . ?Ŧ)
|
|
|
|
|
|
(#x3b3 . ?ŗ)
|
|
|
|
|
|
(#x3b5 . ?ĩ)
|
|
|
|
|
|
(#x3b6 . ?ļ)
|
|
|
|
|
|
(#x3ba . ?ē)
|
|
|
|
|
|
(#x3bb . ?ģ)
|
|
|
|
|
|
(#x3bc . ?ŧ)
|
|
|
|
|
|
(#x3bd . ?Ŋ)
|
|
|
|
|
|
(#x3bf . ?ŋ)
|
|
|
|
|
|
(#x3c0 . ?Ā)
|
|
|
|
|
|
(#x3c7 . ?Į)
|
|
|
|
|
|
(#x3cc . ?Ė)
|
|
|
|
|
|
(#x3cf . ?Ī)
|
|
|
|
|
|
(#x3d1 . ?Ņ)
|
|
|
|
|
|
(#x3d2 . ?Ō)
|
|
|
|
|
|
(#x3d3 . ?Ķ)
|
|
|
|
|
|
(#x3d9 . ?Ų)
|
|
|
|
|
|
(#x3dd . ?Ũ)
|
|
|
|
|
|
(#x3de . ?Ū)
|
|
|
|
|
|
(#x3e0 . ?ā)
|
|
|
|
|
|
(#x3e7 . ?į)
|
|
|
|
|
|
(#x3ec . ?ė)
|
|
|
|
|
|
(#x3ef . ?ī)
|
|
|
|
|
|
(#x3f1 . ?ņ)
|
|
|
|
|
|
(#x3f2 . ?ō)
|
|
|
|
|
|
(#x3f3 . ?ķ)
|
|
|
|
|
|
(#x3f9 . ?ų)
|
|
|
|
|
|
(#x3fd . ?ũ)
|
|
|
|
|
|
(#x3fe . ?ū)
|
|
|
|
|
|
(#x47e . ?‾)
|
|
|
|
|
|
(#x4a1 . ?。)
|
|
|
|
|
|
(#x4a2 . ?\「)
|
|
|
|
|
|
(#x4a3 . ?\」)
|
|
|
|
|
|
(#x4a4 . ?、)
|
|
|
|
|
|
(#x4a5 . ?・)
|
|
|
|
|
|
(#x4a6 . ?ヲ)
|
|
|
|
|
|
(#x4a7 . ?ァ)
|
|
|
|
|
|
(#x4a8 . ?ィ)
|
|
|
|
|
|
(#x4a9 . ?ゥ)
|
|
|
|
|
|
(#x4aa . ?ェ)
|
|
|
|
|
|
(#x4ab . ?ォ)
|
|
|
|
|
|
(#x4ac . ?ャ)
|
|
|
|
|
|
(#x4ad . ?ュ)
|
|
|
|
|
|
(#x4ae . ?ョ)
|
|
|
|
|
|
(#x4af . ?ッ)
|
|
|
|
|
|
(#x4b0 . ?ー)
|
|
|
|
|
|
(#x4b1 . ?ア)
|
|
|
|
|
|
(#x4b2 . ?イ)
|
|
|
|
|
|
(#x4b3 . ?ウ)
|
|
|
|
|
|
(#x4b4 . ?エ)
|
|
|
|
|
|
(#x4b5 . ?オ)
|
|
|
|
|
|
(#x4b6 . ?カ)
|
|
|
|
|
|
(#x4b7 . ?キ)
|
|
|
|
|
|
(#x4b8 . ?ク)
|
|
|
|
|
|
(#x4b9 . ?ケ)
|
|
|
|
|
|
(#x4ba . ?コ)
|
|
|
|
|
|
(#x4bb . ?サ)
|
|
|
|
|
|
(#x4bc . ?シ)
|
|
|
|
|
|
(#x4bd . ?ス)
|
|
|
|
|
|
(#x4be . ?セ)
|
|
|
|
|
|
(#x4bf . ?ソ)
|
|
|
|
|
|
(#x4c0 . ?タ)
|
|
|
|
|
|
(#x4c1 . ?チ)
|
|
|
|
|
|
(#x4c2 . ?ツ)
|
|
|
|
|
|
(#x4c3 . ?テ)
|
|
|
|
|
|
(#x4c4 . ?ト)
|
|
|
|
|
|
(#x4c5 . ?ナ)
|
|
|
|
|
|
(#x4c6 . ?ニ)
|
|
|
|
|
|
(#x4c7 . ?ヌ)
|
|
|
|
|
|
(#x4c8 . ?ネ)
|
|
|
|
|
|
(#x4c9 . ?ノ)
|
|
|
|
|
|
(#x4ca . ?ハ)
|
|
|
|
|
|
(#x4cb . ?ヒ)
|
|
|
|
|
|
(#x4cc . ?フ)
|
|
|
|
|
|
(#x4cd . ?ヘ)
|
|
|
|
|
|
(#x4ce . ?ホ)
|
|
|
|
|
|
(#x4cf . ?マ)
|
|
|
|
|
|
(#x4d0 . ?ミ)
|
|
|
|
|
|
(#x4d1 . ?ム)
|
|
|
|
|
|
(#x4d2 . ?メ)
|
|
|
|
|
|
(#x4d3 . ?モ)
|
|
|
|
|
|
(#x4d4 . ?ヤ)
|
|
|
|
|
|
(#x4d5 . ?ユ)
|
|
|
|
|
|
(#x4d6 . ?ヨ)
|
|
|
|
|
|
(#x4d7 . ?ラ)
|
|
|
|
|
|
(#x4d8 . ?リ)
|
|
|
|
|
|
(#x4d9 . ?ル)
|
|
|
|
|
|
(#x4da . ?レ)
|
|
|
|
|
|
(#x4db . ?ロ)
|
|
|
|
|
|
(#x4dc . ?ワ)
|
|
|
|
|
|
(#x4dd . ?ン)
|
|
|
|
|
|
(#x4de . ?゛)
|
|
|
|
|
|
(#x4df . ?゜)
|
2002-10-30 19:26:23 +00:00
|
|
|
|
;; Arabic
|
2015-08-16 15:34:44 +00:00
|
|
|
|
(#x5ac . ?،)
|
|
|
|
|
|
(#x5bb . ?؛)
|
|
|
|
|
|
(#x5bf . ?؟)
|
|
|
|
|
|
(#x5c1 . ?ء)
|
|
|
|
|
|
(#x5c2 . ?آ)
|
|
|
|
|
|
(#x5c3 . ?أ)
|
|
|
|
|
|
(#x5c4 . ?ؤ)
|
|
|
|
|
|
(#x5c5 . ?إ)
|
|
|
|
|
|
(#x5c6 . ?ئ)
|
|
|
|
|
|
(#x5c7 . ?ا)
|
|
|
|
|
|
(#x5c8 . ?ب)
|
|
|
|
|
|
(#x5c9 . ?ة)
|
|
|
|
|
|
(#x5ca . ?ت)
|
|
|
|
|
|
(#x5cb . ?ث)
|
|
|
|
|
|
(#x5cc . ?ج)
|
|
|
|
|
|
(#x5cd . ?ح)
|
|
|
|
|
|
(#x5ce . ?خ)
|
|
|
|
|
|
(#x5cf . ?د)
|
|
|
|
|
|
(#x5d0 . ?ذ)
|
|
|
|
|
|
(#x5d1 . ?ر)
|
|
|
|
|
|
(#x5d2 . ?ز)
|
|
|
|
|
|
(#x5d3 . ?س)
|
|
|
|
|
|
(#x5d4 . ?ش)
|
|
|
|
|
|
(#x5d5 . ?ص)
|
|
|
|
|
|
(#x5d6 . ?ض)
|
|
|
|
|
|
(#x5d7 . ?ط)
|
|
|
|
|
|
(#x5d8 . ?ظ)
|
|
|
|
|
|
(#x5d9 . ?ع)
|
|
|
|
|
|
(#x5da . ?غ)
|
|
|
|
|
|
(#x5e0 . ?ـ)
|
|
|
|
|
|
(#x5e1 . ?ف)
|
|
|
|
|
|
(#x5e2 . ?ق)
|
|
|
|
|
|
(#x5e3 . ?ك)
|
|
|
|
|
|
(#x5e4 . ?ل)
|
|
|
|
|
|
(#x5e5 . ?م)
|
|
|
|
|
|
(#x5e6 . ?ن)
|
|
|
|
|
|
(#x5e7 . ?ه)
|
|
|
|
|
|
(#x5e8 . ?و)
|
|
|
|
|
|
(#x5e9 . ?ى)
|
|
|
|
|
|
(#x5ea . ?ي)
|
|
|
|
|
|
(#x5eb . ?ً)
|
|
|
|
|
|
(#x5ec . ?ٌ)
|
|
|
|
|
|
(#x5ed . ?ٍ)
|
|
|
|
|
|
(#x5ee . ?َ)
|
|
|
|
|
|
(#x5ef . ?ُ)
|
|
|
|
|
|
(#x5f0 . ?ِ)
|
|
|
|
|
|
(#x5f1 . ?ّ)
|
|
|
|
|
|
(#x5f2 . ?ْ)
|
2002-10-30 19:26:23 +00:00
|
|
|
|
;; Cyrillic
|
2015-08-16 15:34:44 +00:00
|
|
|
|
(#x680 . ?Ғ)
|
|
|
|
|
|
(#x681 . ?Җ)
|
|
|
|
|
|
(#x682 . ?Қ)
|
|
|
|
|
|
(#x683 . ?Ҝ)
|
|
|
|
|
|
(#x684 . ?Ң)
|
|
|
|
|
|
(#x685 . ?Ү)
|
|
|
|
|
|
(#x686 . ?Ұ)
|
|
|
|
|
|
(#x687 . ?Ҳ)
|
|
|
|
|
|
(#x688 . ?Ҷ)
|
|
|
|
|
|
(#x689 . ?Ҹ)
|
|
|
|
|
|
(#x68a . ?Һ)
|
|
|
|
|
|
(#x68c . ?Ә)
|
|
|
|
|
|
(#x68d . ?Ӣ)
|
|
|
|
|
|
(#x68e . ?Ө)
|
|
|
|
|
|
(#x68f . ?Ӯ)
|
|
|
|
|
|
(#x690 . ?ғ)
|
|
|
|
|
|
(#x691 . ?җ)
|
|
|
|
|
|
(#x692 . ?қ)
|
|
|
|
|
|
(#x693 . ?ҝ)
|
|
|
|
|
|
(#x694 . ?ң)
|
|
|
|
|
|
(#x695 . ?ү)
|
|
|
|
|
|
(#x696 . ?ұ)
|
|
|
|
|
|
(#x697 . ?ҳ)
|
|
|
|
|
|
(#x698 . ?ҷ)
|
|
|
|
|
|
(#x699 . ?ҹ)
|
|
|
|
|
|
(#x69a . ?һ)
|
|
|
|
|
|
(#x69c . ?ә)
|
|
|
|
|
|
(#x69d . ?ӣ)
|
|
|
|
|
|
(#x69e . ?ө)
|
|
|
|
|
|
(#x69f . ?ӯ)
|
|
|
|
|
|
(#x6a1 . ?ђ)
|
|
|
|
|
|
(#x6a2 . ?ѓ)
|
|
|
|
|
|
(#x6a3 . ?ё)
|
|
|
|
|
|
(#x6a4 . ?є)
|
|
|
|
|
|
(#x6a5 . ?ѕ)
|
|
|
|
|
|
(#x6a6 . ?і)
|
|
|
|
|
|
(#x6a7 . ?ї)
|
|
|
|
|
|
(#x6a8 . ?ј)
|
|
|
|
|
|
(#x6a9 . ?љ)
|
|
|
|
|
|
(#x6aa . ?њ)
|
|
|
|
|
|
(#x6ab . ?ћ)
|
|
|
|
|
|
(#x6ac . ?ќ)
|
|
|
|
|
|
(#x6ae . ?ў)
|
|
|
|
|
|
(#x6af . ?џ)
|
|
|
|
|
|
(#x6b0 . ?№)
|
|
|
|
|
|
(#x6b1 . ?Ђ)
|
|
|
|
|
|
(#x6b2 . ?Ѓ)
|
|
|
|
|
|
(#x6b3 . ?Ё)
|
|
|
|
|
|
(#x6b4 . ?Є)
|
|
|
|
|
|
(#x6b5 . ?Ѕ)
|
|
|
|
|
|
(#x6b6 . ?І)
|
|
|
|
|
|
(#x6b7 . ?Ї)
|
|
|
|
|
|
(#x6b8 . ?Ј)
|
|
|
|
|
|
(#x6b9 . ?Љ)
|
|
|
|
|
|
(#x6ba . ?Њ)
|
|
|
|
|
|
(#x6bb . ?Ћ)
|
|
|
|
|
|
(#x6bc . ?Ќ)
|
|
|
|
|
|
(#x6be . ?Ў)
|
|
|
|
|
|
(#x6bf . ?Џ)
|
|
|
|
|
|
(#x6c0 . ?ю)
|
|
|
|
|
|
(#x6c1 . ?а)
|
|
|
|
|
|
(#x6c2 . ?б)
|
|
|
|
|
|
(#x6c3 . ?ц)
|
|
|
|
|
|
(#x6c4 . ?д)
|
|
|
|
|
|
(#x6c5 . ?е)
|
|
|
|
|
|
(#x6c6 . ?ф)
|
|
|
|
|
|
(#x6c7 . ?г)
|
|
|
|
|
|
(#x6c8 . ?х)
|
|
|
|
|
|
(#x6c9 . ?и)
|
|
|
|
|
|
(#x6ca . ?й)
|
|
|
|
|
|
(#x6cb . ?к)
|
|
|
|
|
|
(#x6cc . ?л)
|
|
|
|
|
|
(#x6cd . ?м)
|
|
|
|
|
|
(#x6ce . ?н)
|
|
|
|
|
|
(#x6cf . ?о)
|
|
|
|
|
|
(#x6d0 . ?п)
|
|
|
|
|
|
(#x6d1 . ?я)
|
|
|
|
|
|
(#x6d2 . ?р)
|
|
|
|
|
|
(#x6d3 . ?с)
|
|
|
|
|
|
(#x6d4 . ?т)
|
|
|
|
|
|
(#x6d5 . ?у)
|
|
|
|
|
|
(#x6d6 . ?ж)
|
|
|
|
|
|
(#x6d7 . ?в)
|
|
|
|
|
|
(#x6d8 . ?ь)
|
|
|
|
|
|
(#x6d9 . ?ы)
|
|
|
|
|
|
(#x6da . ?з)
|
|
|
|
|
|
(#x6db . ?ш)
|
|
|
|
|
|
(#x6dc . ?э)
|
|
|
|
|
|
(#x6dd . ?щ)
|
|
|
|
|
|
(#x6de . ?ч)
|
|
|
|
|
|
(#x6df . ?ъ)
|
|
|
|
|
|
(#x6e0 . ?Ю)
|
|
|
|
|
|
(#x6e1 . ?А)
|
|
|
|
|
|
(#x6e2 . ?Б)
|
|
|
|
|
|
(#x6e3 . ?Ц)
|
|
|
|
|
|
(#x6e4 . ?Д)
|
|
|
|
|
|
(#x6e5 . ?Е)
|
|
|
|
|
|
(#x6e6 . ?Ф)
|
|
|
|
|
|
(#x6e7 . ?Г)
|
|
|
|
|
|
(#x6e8 . ?Х)
|
|
|
|
|
|
(#x6e9 . ?И)
|
|
|
|
|
|
(#x6ea . ?Й)
|
|
|
|
|
|
(#x6eb . ?К)
|
|
|
|
|
|
(#x6ec . ?Л)
|
|
|
|
|
|
(#x6ed . ?М)
|
|
|
|
|
|
(#x6ee . ?Н)
|
|
|
|
|
|
(#x6ef . ?О)
|
|
|
|
|
|
(#x6f0 . ?П)
|
|
|
|
|
|
(#x6f1 . ?Я)
|
|
|
|
|
|
(#x6f2 . ?Р)
|
|
|
|
|
|
(#x6f3 . ?С)
|
|
|
|
|
|
(#x6f4 . ?Т)
|
|
|
|
|
|
(#x6f5 . ?У)
|
|
|
|
|
|
(#x6f6 . ?Ж)
|
|
|
|
|
|
(#x6f7 . ?В)
|
|
|
|
|
|
(#x6f8 . ?Ь)
|
|
|
|
|
|
(#x6f9 . ?Ы)
|
|
|
|
|
|
(#x6fa . ?З)
|
|
|
|
|
|
(#x6fb . ?Ш)
|
|
|
|
|
|
(#x6fc . ?Э)
|
|
|
|
|
|
(#x6fd . ?Щ)
|
|
|
|
|
|
(#x6fe . ?Ч)
|
|
|
|
|
|
(#x6ff . ?Ъ)
|
2002-10-30 19:26:23 +00:00
|
|
|
|
;; Greek
|
2015-08-16 15:34:44 +00:00
|
|
|
|
(#x7a1 . ?Ά)
|
|
|
|
|
|
(#x7a2 . ?Έ)
|
|
|
|
|
|
(#x7a3 . ?Ή)
|
|
|
|
|
|
(#x7a4 . ?Ί)
|
|
|
|
|
|
(#x7a5 . ?Ϊ)
|
|
|
|
|
|
(#x7a7 . ?Ό)
|
|
|
|
|
|
(#x7a8 . ?Ύ)
|
|
|
|
|
|
(#x7a9 . ?Ϋ)
|
|
|
|
|
|
(#x7ab . ?Ώ)
|
|
|
|
|
|
(#x7ae . ?΅)
|
|
|
|
|
|
(#x7af . ?―)
|
|
|
|
|
|
(#x7b1 . ?ά)
|
|
|
|
|
|
(#x7b2 . ?έ)
|
|
|
|
|
|
(#x7b3 . ?ή)
|
|
|
|
|
|
(#x7b4 . ?ί)
|
|
|
|
|
|
(#x7b5 . ?ϊ)
|
|
|
|
|
|
(#x7b6 . ?ΐ)
|
|
|
|
|
|
(#x7b7 . ?ό)
|
|
|
|
|
|
(#x7b8 . ?ύ)
|
|
|
|
|
|
(#x7b9 . ?ϋ)
|
|
|
|
|
|
(#x7ba . ?ΰ)
|
|
|
|
|
|
(#x7bb . ?ώ)
|
|
|
|
|
|
(#x7c1 . ?Α)
|
|
|
|
|
|
(#x7c2 . ?Β)
|
|
|
|
|
|
(#x7c3 . ?Γ)
|
|
|
|
|
|
(#x7c4 . ?Δ)
|
|
|
|
|
|
(#x7c5 . ?Ε)
|
|
|
|
|
|
(#x7c6 . ?Ζ)
|
|
|
|
|
|
(#x7c7 . ?Η)
|
|
|
|
|
|
(#x7c8 . ?Θ)
|
|
|
|
|
|
(#x7c9 . ?Ι)
|
|
|
|
|
|
(#x7ca . ?Κ)
|
|
|
|
|
|
(#x7cb . ?Λ)
|
|
|
|
|
|
(#x7cc . ?Μ)
|
|
|
|
|
|
(#x7cd . ?Ν)
|
|
|
|
|
|
(#x7ce . ?Ξ)
|
|
|
|
|
|
(#x7cf . ?Ο)
|
|
|
|
|
|
(#x7d0 . ?Π)
|
|
|
|
|
|
(#x7d1 . ?Ρ)
|
|
|
|
|
|
(#x7d2 . ?Σ)
|
|
|
|
|
|
(#x7d4 . ?Τ)
|
|
|
|
|
|
(#x7d5 . ?Υ)
|
|
|
|
|
|
(#x7d6 . ?Φ)
|
|
|
|
|
|
(#x7d7 . ?Χ)
|
|
|
|
|
|
(#x7d8 . ?Ψ)
|
|
|
|
|
|
(#x7d9 . ?Ω)
|
|
|
|
|
|
(#x7e1 . ?α)
|
|
|
|
|
|
(#x7e2 . ?β)
|
|
|
|
|
|
(#x7e3 . ?γ)
|
|
|
|
|
|
(#x7e4 . ?δ)
|
|
|
|
|
|
(#x7e5 . ?ε)
|
|
|
|
|
|
(#x7e6 . ?ζ)
|
|
|
|
|
|
(#x7e7 . ?η)
|
|
|
|
|
|
(#x7e8 . ?θ)
|
|
|
|
|
|
(#x7e9 . ?ι)
|
|
|
|
|
|
(#x7ea . ?κ)
|
|
|
|
|
|
(#x7eb . ?λ)
|
|
|
|
|
|
(#x7ec . ?μ)
|
|
|
|
|
|
(#x7ed . ?ν)
|
|
|
|
|
|
(#x7ee . ?ξ)
|
|
|
|
|
|
(#x7ef . ?ο)
|
|
|
|
|
|
(#x7f0 . ?π)
|
|
|
|
|
|
(#x7f1 . ?ρ)
|
|
|
|
|
|
(#x7f2 . ?σ)
|
|
|
|
|
|
(#x7f3 . ?ς)
|
|
|
|
|
|
(#x7f4 . ?τ)
|
|
|
|
|
|
(#x7f5 . ?υ)
|
|
|
|
|
|
(#x7f6 . ?φ)
|
|
|
|
|
|
(#x7f7 . ?χ)
|
|
|
|
|
|
(#x7f8 . ?ψ)
|
|
|
|
|
|
(#x7f9 . ?ω)
|
2002-10-30 19:26:23 +00:00
|
|
|
|
;; Technical
|
2015-08-16 15:34:44 +00:00
|
|
|
|
(#x8a1 . ?⎷)
|
|
|
|
|
|
(#x8a2 . ?┌)
|
|
|
|
|
|
(#x8a3 . ?─)
|
|
|
|
|
|
(#x8a4 . ?⌠)
|
|
|
|
|
|
(#x8a5 . ?⌡)
|
|
|
|
|
|
(#x8a6 . ?│)
|
|
|
|
|
|
(#x8a7 . ?⎡)
|
|
|
|
|
|
(#x8a8 . ?⎣)
|
|
|
|
|
|
(#x8a9 . ?⎤)
|
|
|
|
|
|
(#x8aa . ?⎦)
|
|
|
|
|
|
(#x8ab . ?⎛)
|
|
|
|
|
|
(#x8ac . ?⎝)
|
|
|
|
|
|
(#x8ad . ?⎞)
|
|
|
|
|
|
(#x8ae . ?⎠)
|
|
|
|
|
|
(#x8af . ?⎨)
|
|
|
|
|
|
(#x8b0 . ?⎬)
|
|
|
|
|
|
(#x8bc . ?≤)
|
|
|
|
|
|
(#x8bd . ?≠)
|
|
|
|
|
|
(#x8be . ?≥)
|
|
|
|
|
|
(#x8bf . ?∫)
|
|
|
|
|
|
(#x8c0 . ?∴)
|
|
|
|
|
|
(#x8c1 . ?∝)
|
|
|
|
|
|
(#x8c2 . ?∞)
|
|
|
|
|
|
(#x8c5 . ?∇)
|
|
|
|
|
|
(#x8c8 . ?∼)
|
|
|
|
|
|
(#x8c9 . ?≃)
|
|
|
|
|
|
(#x8cd . ?⇔)
|
|
|
|
|
|
(#x8ce . ?⇒)
|
|
|
|
|
|
(#x8cf . ?≡)
|
|
|
|
|
|
(#x8d6 . ?√)
|
|
|
|
|
|
(#x8da . ?⊂)
|
|
|
|
|
|
(#x8db . ?⊃)
|
|
|
|
|
|
(#x8dc . ?∩)
|
|
|
|
|
|
(#x8dd . ?∪)
|
|
|
|
|
|
(#x8de . ?∧)
|
|
|
|
|
|
(#x8df . ?∨)
|
|
|
|
|
|
(#x8ef . ?∂)
|
|
|
|
|
|
(#x8f6 . ?ƒ)
|
|
|
|
|
|
(#x8fb . ?←)
|
|
|
|
|
|
(#x8fc . ?↑)
|
|
|
|
|
|
(#x8fd . ?→)
|
|
|
|
|
|
(#x8fe . ?↓)
|
2002-10-30 19:26:23 +00:00
|
|
|
|
;; Special
|
2015-08-16 15:34:44 +00:00
|
|
|
|
(#x9e0 . ?◆)
|
|
|
|
|
|
(#x9e1 . ?▒)
|
|
|
|
|
|
(#x9e2 . ?␉)
|
|
|
|
|
|
(#x9e3 . ?␌)
|
|
|
|
|
|
(#x9e4 . ?␍)
|
|
|
|
|
|
(#x9e5 . ?␊)
|
|
|
|
|
|
(#x9e8 . ?)
|
|
|
|
|
|
(#x9e9 . ?␋)
|
|
|
|
|
|
(#x9ea . ?┘)
|
|
|
|
|
|
(#x9eb . ?┐)
|
|
|
|
|
|
(#x9ec . ?┌)
|
|
|
|
|
|
(#x9ed . ?└)
|
|
|
|
|
|
(#x9ee . ?┼)
|
|
|
|
|
|
(#x9ef . ?⎺)
|
|
|
|
|
|
(#x9f0 . ?⎻)
|
|
|
|
|
|
(#x9f1 . ?─)
|
|
|
|
|
|
(#x9f2 . ?⎼)
|
|
|
|
|
|
(#x9f3 . ?⎽)
|
|
|
|
|
|
(#x9f4 . ?├)
|
|
|
|
|
|
(#x9f5 . ?┤)
|
|
|
|
|
|
(#x9f6 . ?┴)
|
|
|
|
|
|
(#x9f7 . ?┬)
|
|
|
|
|
|
(#x9f8 . ?│)
|
2002-10-30 19:26:23 +00:00
|
|
|
|
;; Publishing
|
2015-08-16 15:34:44 +00:00
|
|
|
|
(#xaa1 . ? )
|
|
|
|
|
|
(#xaa2 . ? )
|
|
|
|
|
|
(#xaa3 . ? )
|
|
|
|
|
|
(#xaa4 . ? )
|
|
|
|
|
|
(#xaa5 . ? )
|
|
|
|
|
|
(#xaa6 . ? )
|
|
|
|
|
|
(#xaa7 . ? )
|
|
|
|
|
|
(#xaa8 . ? )
|
|
|
|
|
|
(#xaa9 . ?—)
|
|
|
|
|
|
(#xaaa . ?–)
|
|
|
|
|
|
(#xaae . ?…)
|
|
|
|
|
|
(#xaaf . ?‥)
|
|
|
|
|
|
(#xab0 . ?⅓)
|
|
|
|
|
|
(#xab1 . ?⅔)
|
|
|
|
|
|
(#xab2 . ?⅕)
|
|
|
|
|
|
(#xab3 . ?⅖)
|
|
|
|
|
|
(#xab4 . ?⅗)
|
|
|
|
|
|
(#xab5 . ?⅘)
|
|
|
|
|
|
(#xab6 . ?⅙)
|
|
|
|
|
|
(#xab7 . ?⅚)
|
|
|
|
|
|
(#xab8 . ?℅)
|
|
|
|
|
|
(#xabb . ?‒)
|
|
|
|
|
|
(#xabc . ?〈)
|
|
|
|
|
|
(#xabe . ?〉)
|
|
|
|
|
|
(#xac3 . ?⅛)
|
|
|
|
|
|
(#xac4 . ?⅜)
|
|
|
|
|
|
(#xac5 . ?⅝)
|
|
|
|
|
|
(#xac6 . ?⅞)
|
|
|
|
|
|
(#xac9 . ?™)
|
|
|
|
|
|
(#xaca . ?☓)
|
|
|
|
|
|
(#xacc . ?◁)
|
|
|
|
|
|
(#xacd . ?▷)
|
|
|
|
|
|
(#xace . ?○)
|
|
|
|
|
|
(#xacf . ?▯)
|
|
|
|
|
|
(#xad0 . ?‘)
|
|
|
|
|
|
(#xad1 . ?’)
|
|
|
|
|
|
(#xad2 . ?“)
|
|
|
|
|
|
(#xad3 . ?”)
|
|
|
|
|
|
(#xad4 . ?℞)
|
|
|
|
|
|
(#xad6 . ?′)
|
|
|
|
|
|
(#xad7 . ?″)
|
|
|
|
|
|
(#xad9 . ?✝)
|
|
|
|
|
|
(#xadb . ?▬)
|
|
|
|
|
|
(#xadc . ?◀)
|
|
|
|
|
|
(#xadd . ?▶)
|
|
|
|
|
|
(#xade . ?●)
|
|
|
|
|
|
(#xadf . ?▮)
|
|
|
|
|
|
(#xae0 . ?◦)
|
|
|
|
|
|
(#xae1 . ?▫)
|
|
|
|
|
|
(#xae2 . ?▭)
|
|
|
|
|
|
(#xae3 . ?△)
|
|
|
|
|
|
(#xae4 . ?▽)
|
|
|
|
|
|
(#xae5 . ?☆)
|
|
|
|
|
|
(#xae6 . ?•)
|
|
|
|
|
|
(#xae7 . ?▪)
|
|
|
|
|
|
(#xae8 . ?▲)
|
|
|
|
|
|
(#xae9 . ?▼)
|
|
|
|
|
|
(#xaea . ?☜)
|
|
|
|
|
|
(#xaeb . ?☞)
|
|
|
|
|
|
(#xaec . ?♣)
|
|
|
|
|
|
(#xaed . ?♦)
|
|
|
|
|
|
(#xaee . ?♥)
|
|
|
|
|
|
(#xaf0 . ?✠)
|
|
|
|
|
|
(#xaf1 . ?†)
|
|
|
|
|
|
(#xaf2 . ?‡)
|
|
|
|
|
|
(#xaf3 . ?✓)
|
|
|
|
|
|
(#xaf4 . ?✗)
|
|
|
|
|
|
(#xaf5 . ?♯)
|
|
|
|
|
|
(#xaf6 . ?♭)
|
|
|
|
|
|
(#xaf7 . ?♂)
|
|
|
|
|
|
(#xaf8 . ?♀)
|
|
|
|
|
|
(#xaf9 . ?☎)
|
|
|
|
|
|
(#xafa . ?⌕)
|
|
|
|
|
|
(#xafb . ?℗)
|
|
|
|
|
|
(#xafc . ?‸)
|
|
|
|
|
|
(#xafd . ?‚)
|
|
|
|
|
|
(#xafe . ?„)
|
2002-10-30 19:26:23 +00:00
|
|
|
|
;; APL
|
|
|
|
|
|
(#xba3 . ?<)
|
|
|
|
|
|
(#xba6 . ?>)
|
2015-08-16 15:34:44 +00:00
|
|
|
|
(#xba8 . ?∨)
|
|
|
|
|
|
(#xba9 . ?∧)
|
|
|
|
|
|
(#xbc0 . ?¯)
|
|
|
|
|
|
(#xbc2 . ?⊥)
|
|
|
|
|
|
(#xbc3 . ?∩)
|
|
|
|
|
|
(#xbc4 . ?⌊)
|
2002-10-30 19:26:23 +00:00
|
|
|
|
(#xbc6 . ?_)
|
2015-08-16 15:34:44 +00:00
|
|
|
|
(#xbca . ?∘)
|
|
|
|
|
|
(#xbcc . ?⎕)
|
|
|
|
|
|
(#xbce . ?⊤)
|
|
|
|
|
|
(#xbcf . ?○)
|
|
|
|
|
|
(#xbd3 . ?⌈)
|
|
|
|
|
|
(#xbd6 . ?∪)
|
|
|
|
|
|
(#xbd8 . ?⊃)
|
|
|
|
|
|
(#xbda . ?⊂)
|
|
|
|
|
|
(#xbdc . ?⊢)
|
|
|
|
|
|
(#xbfc . ?⊣)
|
2002-10-30 19:26:23 +00:00
|
|
|
|
;; Hebrew
|
2015-08-16 15:34:44 +00:00
|
|
|
|
(#xcdf . ?‗)
|
|
|
|
|
|
(#xce0 . ?א)
|
|
|
|
|
|
(#xce1 . ?ב)
|
|
|
|
|
|
(#xce2 . ?ג)
|
|
|
|
|
|
(#xce3 . ?ד)
|
|
|
|
|
|
(#xce4 . ?ה)
|
|
|
|
|
|
(#xce5 . ?ו)
|
|
|
|
|
|
(#xce6 . ?ז)
|
|
|
|
|
|
(#xce7 . ?ח)
|
|
|
|
|
|
(#xce8 . ?ט)
|
|
|
|
|
|
(#xce9 . ?י)
|
|
|
|
|
|
(#xcea . ?ך)
|
|
|
|
|
|
(#xceb . ?כ)
|
|
|
|
|
|
(#xcec . ?ל)
|
|
|
|
|
|
(#xced . ?ם)
|
|
|
|
|
|
(#xcee . ?מ)
|
|
|
|
|
|
(#xcef . ?ן)
|
|
|
|
|
|
(#xcf0 . ?נ)
|
|
|
|
|
|
(#xcf1 . ?ס)
|
|
|
|
|
|
(#xcf2 . ?ע)
|
|
|
|
|
|
(#xcf3 . ?ף)
|
|
|
|
|
|
(#xcf4 . ?פ)
|
|
|
|
|
|
(#xcf5 . ?ץ)
|
|
|
|
|
|
(#xcf6 . ?צ)
|
|
|
|
|
|
(#xcf7 . ?ק)
|
|
|
|
|
|
(#xcf8 . ?ר)
|
|
|
|
|
|
(#xcf9 . ?ש)
|
|
|
|
|
|
(#xcfa . ?ת)
|
2002-10-30 19:26:23 +00:00
|
|
|
|
;; Thai
|
2015-08-16 15:34:44 +00:00
|
|
|
|
(#xda1 . ?ก)
|
|
|
|
|
|
(#xda2 . ?ข)
|
|
|
|
|
|
(#xda3 . ?ฃ)
|
|
|
|
|
|
(#xda4 . ?ค)
|
|
|
|
|
|
(#xda5 . ?ฅ)
|
|
|
|
|
|
(#xda6 . ?ฆ)
|
|
|
|
|
|
(#xda7 . ?ง)
|
|
|
|
|
|
(#xda8 . ?จ)
|
|
|
|
|
|
(#xda9 . ?ฉ)
|
|
|
|
|
|
(#xdaa . ?ช)
|
|
|
|
|
|
(#xdab . ?ซ)
|
|
|
|
|
|
(#xdac . ?ฌ)
|
|
|
|
|
|
(#xdad . ?ญ)
|
|
|
|
|
|
(#xdae . ?ฎ)
|
|
|
|
|
|
(#xdaf . ?ฏ)
|
|
|
|
|
|
(#xdb0 . ?ฐ)
|
|
|
|
|
|
(#xdb1 . ?ฑ)
|
|
|
|
|
|
(#xdb2 . ?ฒ)
|
|
|
|
|
|
(#xdb3 . ?ณ)
|
|
|
|
|
|
(#xdb4 . ?ด)
|
|
|
|
|
|
(#xdb5 . ?ต)
|
|
|
|
|
|
(#xdb6 . ?ถ)
|
|
|
|
|
|
(#xdb7 . ?ท)
|
|
|
|
|
|
(#xdb8 . ?ธ)
|
|
|
|
|
|
(#xdb9 . ?น)
|
|
|
|
|
|
(#xdba . ?บ)
|
|
|
|
|
|
(#xdbb . ?ป)
|
|
|
|
|
|
(#xdbc . ?ผ)
|
|
|
|
|
|
(#xdbd . ?ฝ)
|
|
|
|
|
|
(#xdbe . ?พ)
|
|
|
|
|
|
(#xdbf . ?ฟ)
|
|
|
|
|
|
(#xdc0 . ?ภ)
|
|
|
|
|
|
(#xdc1 . ?ม)
|
|
|
|
|
|
(#xdc2 . ?ย)
|
|
|
|
|
|
(#xdc3 . ?ร)
|
|
|
|
|
|
(#xdc4 . ?ฤ)
|
|
|
|
|
|
(#xdc5 . ?ล)
|
|
|
|
|
|
(#xdc6 . ?ฦ)
|
|
|
|
|
|
(#xdc7 . ?ว)
|
|
|
|
|
|
(#xdc8 . ?ศ)
|
|
|
|
|
|
(#xdc9 . ?ษ)
|
|
|
|
|
|
(#xdca . ?ส)
|
|
|
|
|
|
(#xdcb . ?ห)
|
|
|
|
|
|
(#xdcc . ?ฬ)
|
|
|
|
|
|
(#xdcd . ?อ)
|
|
|
|
|
|
(#xdce . ?ฮ)
|
|
|
|
|
|
(#xdcf . ?ฯ)
|
|
|
|
|
|
(#xdd0 . ?ะ)
|
|
|
|
|
|
(#xdd1 . ?ั)
|
|
|
|
|
|
(#xdd2 . ?า)
|
|
|
|
|
|
(#xdd3 . ?ำ)
|
|
|
|
|
|
(#xdd4 . ?ิ)
|
|
|
|
|
|
(#xdd5 . ?ี)
|
|
|
|
|
|
(#xdd6 . ?ึ)
|
|
|
|
|
|
(#xdd7 . ?ื)
|
|
|
|
|
|
(#xdd8 . ?ุ)
|
|
|
|
|
|
(#xdd9 . ?ู)
|
|
|
|
|
|
(#xdda . ?ฺ)
|
|
|
|
|
|
(#xddf . ?฿)
|
|
|
|
|
|
(#xde0 . ?เ)
|
|
|
|
|
|
(#xde1 . ?แ)
|
|
|
|
|
|
(#xde2 . ?โ)
|
|
|
|
|
|
(#xde3 . ?ใ)
|
|
|
|
|
|
(#xde4 . ?ไ)
|
|
|
|
|
|
(#xde5 . ?ๅ)
|
|
|
|
|
|
(#xde6 . ?ๆ)
|
|
|
|
|
|
(#xde7 . ?็)
|
|
|
|
|
|
(#xde8 . ?่)
|
|
|
|
|
|
(#xde9 . ?้)
|
|
|
|
|
|
(#xdea . ?๊)
|
|
|
|
|
|
(#xdeb . ?๋)
|
|
|
|
|
|
(#xdec . ?์)
|
|
|
|
|
|
(#xded . ?ํ)
|
|
|
|
|
|
(#xdf0 . ?๐)
|
|
|
|
|
|
(#xdf1 . ?๑)
|
|
|
|
|
|
(#xdf2 . ?๒)
|
|
|
|
|
|
(#xdf3 . ?๓)
|
|
|
|
|
|
(#xdf4 . ?๔)
|
|
|
|
|
|
(#xdf5 . ?๕)
|
|
|
|
|
|
(#xdf6 . ?๖)
|
|
|
|
|
|
(#xdf7 . ?๗)
|
|
|
|
|
|
(#xdf8 . ?๘)
|
|
|
|
|
|
(#xdf9 . ?๙)
|
2002-10-30 19:26:23 +00:00
|
|
|
|
;; Korean
|
2015-08-16 15:34:44 +00:00
|
|
|
|
(#xea1 . ?ㄱ)
|
|
|
|
|
|
(#xea2 . ?ㄲ)
|
|
|
|
|
|
(#xea3 . ?ㄳ)
|
|
|
|
|
|
(#xea4 . ?ㄴ)
|
|
|
|
|
|
(#xea5 . ?ㄵ)
|
|
|
|
|
|
(#xea6 . ?ㄶ)
|
|
|
|
|
|
(#xea7 . ?ㄷ)
|
|
|
|
|
|
(#xea8 . ?ㄸ)
|
|
|
|
|
|
(#xea9 . ?ㄹ)
|
|
|
|
|
|
(#xeaa . ?ㄺ)
|
|
|
|
|
|
(#xeab . ?ㄻ)
|
|
|
|
|
|
(#xeac . ?ㄼ)
|
|
|
|
|
|
(#xead . ?ㄽ)
|
|
|
|
|
|
(#xeae . ?ㄾ)
|
|
|
|
|
|
(#xeaf . ?ㄿ)
|
|
|
|
|
|
(#xeb0 . ?ㅀ)
|
|
|
|
|
|
(#xeb1 . ?ㅁ)
|
|
|
|
|
|
(#xeb2 . ?ㅂ)
|
|
|
|
|
|
(#xeb3 . ?ㅃ)
|
|
|
|
|
|
(#xeb4 . ?ㅄ)
|
|
|
|
|
|
(#xeb5 . ?ㅅ)
|
|
|
|
|
|
(#xeb6 . ?ㅆ)
|
|
|
|
|
|
(#xeb7 . ?ㅇ)
|
|
|
|
|
|
(#xeb8 . ?ㅈ)
|
|
|
|
|
|
(#xeb9 . ?ㅉ)
|
|
|
|
|
|
(#xeba . ?ㅊ)
|
|
|
|
|
|
(#xebb . ?ㅋ)
|
|
|
|
|
|
(#xebc . ?ㅌ)
|
|
|
|
|
|
(#xebd . ?ㅍ)
|
|
|
|
|
|
(#xebe . ?ㅎ)
|
|
|
|
|
|
(#xebf . ?ㅏ)
|
|
|
|
|
|
(#xec0 . ?ㅐ)
|
|
|
|
|
|
(#xec1 . ?ㅑ)
|
|
|
|
|
|
(#xec2 . ?ㅒ)
|
|
|
|
|
|
(#xec3 . ?ㅓ)
|
|
|
|
|
|
(#xec4 . ?ㅔ)
|
|
|
|
|
|
(#xec5 . ?ㅕ)
|
|
|
|
|
|
(#xec6 . ?ㅖ)
|
|
|
|
|
|
(#xec7 . ?ㅗ)
|
|
|
|
|
|
(#xec8 . ?ㅘ)
|
|
|
|
|
|
(#xec9 . ?ㅙ)
|
|
|
|
|
|
(#xeca . ?ㅚ)
|
|
|
|
|
|
(#xecb . ?ㅛ)
|
|
|
|
|
|
(#xecc . ?ㅜ)
|
|
|
|
|
|
(#xecd . ?ㅝ)
|
|
|
|
|
|
(#xece . ?ㅞ)
|
|
|
|
|
|
(#xecf . ?ㅟ)
|
|
|
|
|
|
(#xed0 . ?ㅠ)
|
|
|
|
|
|
(#xed1 . ?ㅡ)
|
|
|
|
|
|
(#xed2 . ?ㅢ)
|
|
|
|
|
|
(#xed3 . ?ㅣ)
|
|
|
|
|
|
(#xed4 . ?ᆨ)
|
|
|
|
|
|
(#xed5 . ?ᆩ)
|
|
|
|
|
|
(#xed6 . ?ᆪ)
|
|
|
|
|
|
(#xed7 . ?ᆫ)
|
|
|
|
|
|
(#xed8 . ?ᆬ)
|
|
|
|
|
|
(#xed9 . ?ᆭ)
|
|
|
|
|
|
(#xeda . ?ᆮ)
|
|
|
|
|
|
(#xedb . ?ᆯ)
|
|
|
|
|
|
(#xedc . ?ᆰ)
|
|
|
|
|
|
(#xedd . ?ᆱ)
|
|
|
|
|
|
(#xede . ?ᆲ)
|
|
|
|
|
|
(#xedf . ?ᆳ)
|
|
|
|
|
|
(#xee0 . ?ᆴ)
|
|
|
|
|
|
(#xee1 . ?ᆵ)
|
|
|
|
|
|
(#xee2 . ?ᆶ)
|
|
|
|
|
|
(#xee3 . ?ᆷ)
|
|
|
|
|
|
(#xee4 . ?ᆸ)
|
|
|
|
|
|
(#xee5 . ?ᆹ)
|
|
|
|
|
|
(#xee6 . ?ᆺ)
|
|
|
|
|
|
(#xee7 . ?ᆻ)
|
|
|
|
|
|
(#xee8 . ?ᆼ)
|
|
|
|
|
|
(#xee9 . ?ᆽ)
|
|
|
|
|
|
(#xeea . ?ᆾ)
|
|
|
|
|
|
(#xeeb . ?ᆿ)
|
|
|
|
|
|
(#xeec . ?ᇀ)
|
|
|
|
|
|
(#xeed . ?ᇁ)
|
|
|
|
|
|
(#xeee . ?ᇂ)
|
|
|
|
|
|
(#xeef . ?ㅭ)
|
|
|
|
|
|
(#xef0 . ?ㅱ)
|
|
|
|
|
|
(#xef1 . ?ㅸ)
|
|
|
|
|
|
(#xef2 . ?ㅿ)
|
|
|
|
|
|
(#xef3 . ?ㆁ)
|
|
|
|
|
|
(#xef4 . ?ㆄ)
|
|
|
|
|
|
(#xef5 . ?ㆆ)
|
|
|
|
|
|
(#xef6 . ?ㆍ)
|
|
|
|
|
|
(#xef7 . ?ㆎ)
|
|
|
|
|
|
(#xef8 . ?ᇫ)
|
|
|
|
|
|
(#xef9 . ?ᇰ)
|
|
|
|
|
|
(#xefa . ?ᇹ)
|
|
|
|
|
|
(#xeff . ?₩)
|
2002-10-30 19:26:23 +00:00
|
|
|
|
;; Latin-5
|
|
|
|
|
|
;; Latin-6
|
|
|
|
|
|
;; Latin-7
|
|
|
|
|
|
;; Latin-8
|
|
|
|
|
|
;; Latin-9
|
2015-08-16 15:34:44 +00:00
|
|
|
|
(#x13bc . ?Œ)
|
|
|
|
|
|
(#x13bd . ?œ)
|
|
|
|
|
|
(#x13be . ?Ÿ)
|
2002-10-30 19:26:23 +00:00
|
|
|
|
;; Currency
|
2015-08-16 15:34:44 +00:00
|
|
|
|
(#x20a0 . ?₠)
|
|
|
|
|
|
(#x20a1 . ?₡)
|
|
|
|
|
|
(#x20a2 . ?₢)
|
|
|
|
|
|
(#x20a3 . ?₣)
|
|
|
|
|
|
(#x20a4 . ?₤)
|
|
|
|
|
|
(#x20a5 . ?₥)
|
|
|
|
|
|
(#x20a6 . ?₦)
|
|
|
|
|
|
(#x20a7 . ?₧)
|
|
|
|
|
|
(#x20a8 . ?₨)
|
|
|
|
|
|
(#x20aa . ?₪)
|
|
|
|
|
|
(#x20ab . ?₫)
|
|
|
|
|
|
(#x20ac . ?€)))
|
2002-10-30 19:26:23 +00:00
|
|
|
|
(puthash (car pair) (cdr pair) x-keysym-table))
|
|
|
|
|
|
|
|
|
|
|
|
;; The following keysym codes for graphics are listed in the document
|
|
|
|
|
|
;; as not having unicodes available:
|
|
|
|
|
|
|
|
|
|
|
|
;; #x08b1 TOP LEFT SUMMATION Technical
|
|
|
|
|
|
;; #x08b2 BOTTOM LEFT SUMMATION Technical
|
|
|
|
|
|
;; #x08b3 TOP VERTICAL SUMMATION CONNECTOR Technical
|
|
|
|
|
|
;; #x08b4 BOTTOM VERTICAL SUMMATION CONNECTOR Technical
|
|
|
|
|
|
;; #x08b5 TOP RIGHT SUMMATION Technical
|
|
|
|
|
|
;; #x08b6 BOTTOM RIGHT SUMMATION Technical
|
|
|
|
|
|
;; #x08b7 RIGHT MIDDLE SUMMATION Technical
|
|
|
|
|
|
;; #x0aac SIGNIFICANT BLANK SYMBOL Publish
|
|
|
|
|
|
;; #x0abd DECIMAL POINT Publish
|
|
|
|
|
|
;; #x0abf MARKER Publish
|
|
|
|
|
|
;; #x0acb TRADEMARK SIGN IN CIRCLE Publish
|
|
|
|
|
|
;; #x0ada HEXAGRAM Publish
|
|
|
|
|
|
;; #x0aff CURSOR Publish
|
|
|
|
|
|
;; #x0dde THAI MAIHANAKAT Thai
|
|
|
|
|
|
|
1992-11-05 04:28:10 +00:00
|
|
|
|
|
2010-09-02 10:17:02 +00:00
|
|
|
|
;;;; Selections
|
1992-05-12 05:26:53 +00:00
|
|
|
|
|
2010-09-16 22:47:21 +00:00
|
|
|
|
(define-obsolete-function-alias 'x-cut-buffer-or-selection-value
|
|
|
|
|
|
'x-selection-value "24.1")
|
|
|
|
|
|
|
2007-11-09 19:37:03 +00:00
|
|
|
|
;; Arrange for the kill and yank functions to set and check the clipboard.
|
1992-06-10 02:47:07 +00:00
|
|
|
|
|
2004-01-22 15:37:19 +00:00
|
|
|
|
(defun x-clipboard-yank ()
|
|
|
|
|
|
"Insert the clipboard contents, or the last stretch of killed text."
|
Consolidate management/ownership of selections.
* lisp/select.el (gui-get-selection-alist): New method.
(gui-get-selection): Use it. Rename from x-get-selection.
(x-get-selection): Define as obsolete alias.
(x-get-clipboard): Mark obsolete.
(gui-get-primary-selection): New function.
(x-get-selection-value): Mark obsolete.
(gui-own-selection-alist, gui-disown-selection-alist)
(gui-selection-owner-p-alist): New methods.
(gui-set-selection): Use them. Rename from x-set-selection.
(x-set-selection): Define as obsolete alias.
(gui--valid-simple-selection-p): Rename from
x-valid-simple-selection-p.
* lisp/w32-common-fns.el (gui-own-selection, gui-disown-selection)
(gui-selection-owner-p, gui-get-selection): Define for w32.
(w32-get-selection-value): Rename from x-get-selection-value.
Use the new gui-last-selected-text.
* lisp/term/x-win.el (x-get-selection-value): Remove.
(x-clipboard-yank): Declare obsolete.
(gui-own-selection, gui-disown-selection, gui-get-selection)
(gui-selection-owner-p): Define for x.
* lisp/term/w32-win.el (w32-win-suspend-error): Rename from
x-win-suspend-error.
* lisp/term/pc-win.el (w16-get-selection-value): Rename from
x-get-selection-value.
(w16-selection-owner-p): Rename from x-selection-owner-p.
(gui-own-selection, gui-disown-selection, gui-get-selection)
(gui-selection-owner-p): Define for pc.
(w16--select-text): New function.
* lisp/term/ns-win.el (gui-own-selection, gui-disown-selection)
(gui-get-selection, gui-selection-owner-p): Define for ns.
* lisp/term.el (term-mouse-paste):
* lisp/mouse.el (mouse-yank-primary): Use gui-get-primary-selection.
* src/nsselect.m (ns-own-selection-internal, ns-disown-selection-internal):
Rename from the "x-" prefix.
2014-10-02 03:19:32 +00:00
|
|
|
|
(declare (obsolete clipboard-yank "25.1"))
|
2006-10-14 16:56:21 +00:00
|
|
|
|
(interactive "*")
|
2014-10-23 01:38:59 +00:00
|
|
|
|
(let ((clipboard-text (gui--selection-value-internal 'CLIPBOARD))
|
|
|
|
|
|
(select-enable-clipboard t))
|
2004-01-22 15:37:19 +00:00
|
|
|
|
(if (and clipboard-text (> (length clipboard-text) 0))
|
|
|
|
|
|
(kill-new clipboard-text))
|
|
|
|
|
|
(yank)))
|
1993-07-03 10:17:56 +00:00
|
|
|
|
|
2008-06-12 03:56:20 +00:00
|
|
|
|
(declare-function accelerate-menu "xmenu.c" (&optional frame) t)
|
|
|
|
|
|
|
2006-10-14 17:36:28 +00:00
|
|
|
|
(defun x-menu-bar-open (&optional frame)
|
2012-07-20 11:32:30 +00:00
|
|
|
|
"Open the menu bar if it is shown.
|
2012-08-10 14:47:12 +00:00
|
|
|
|
`popup-menu' is used if it is off."
|
2006-10-14 17:36:28 +00:00
|
|
|
|
(interactive "i")
|
2012-07-20 11:32:30 +00:00
|
|
|
|
(cond
|
|
|
|
|
|
((and (not (zerop (or (frame-parameter nil 'menu-bar-lines) 0)))
|
|
|
|
|
|
(fboundp 'accelerate-menu))
|
|
|
|
|
|
(accelerate-menu frame))
|
|
|
|
|
|
(t
|
2012-08-10 14:47:12 +00:00
|
|
|
|
(popup-menu (mouse-menu-bar-map) last-nonmenu-event))))
|
1993-06-05 08:39:42 +00:00
|
|
|
|
|
1992-11-05 04:28:10 +00:00
|
|
|
|
|
2004-01-22 02:36:55 +00:00
|
|
|
|
;;; Window system initialization.
|
2006-12-30 15:23:38 +00:00
|
|
|
|
|
1993-03-11 18:50:04 +00:00
|
|
|
|
(defun x-win-suspend-error ()
|
2014-04-11 07:02:28 +00:00
|
|
|
|
"Report an error when a suspend is attempted.
|
Consolidate management/ownership of selections.
* lisp/select.el (gui-get-selection-alist): New method.
(gui-get-selection): Use it. Rename from x-get-selection.
(x-get-selection): Define as obsolete alias.
(x-get-clipboard): Mark obsolete.
(gui-get-primary-selection): New function.
(x-get-selection-value): Mark obsolete.
(gui-own-selection-alist, gui-disown-selection-alist)
(gui-selection-owner-p-alist): New methods.
(gui-set-selection): Use them. Rename from x-set-selection.
(x-set-selection): Define as obsolete alias.
(gui--valid-simple-selection-p): Rename from
x-valid-simple-selection-p.
* lisp/w32-common-fns.el (gui-own-selection, gui-disown-selection)
(gui-selection-owner-p, gui-get-selection): Define for w32.
(w32-get-selection-value): Rename from x-get-selection-value.
Use the new gui-last-selected-text.
* lisp/term/x-win.el (x-get-selection-value): Remove.
(x-clipboard-yank): Declare obsolete.
(gui-own-selection, gui-disown-selection, gui-get-selection)
(gui-selection-owner-p): Define for x.
* lisp/term/w32-win.el (w32-win-suspend-error): Rename from
x-win-suspend-error.
* lisp/term/pc-win.el (w16-get-selection-value): Rename from
x-get-selection-value.
(w16-selection-owner-p): Rename from x-selection-owner-p.
(gui-own-selection, gui-disown-selection, gui-get-selection)
(gui-selection-owner-p): Define for pc.
(w16--select-text): New function.
* lisp/term/ns-win.el (gui-own-selection, gui-disown-selection)
(gui-get-selection, gui-selection-owner-p): Define for ns.
* lisp/term.el (term-mouse-paste):
* lisp/mouse.el (mouse-yank-primary): Use gui-get-primary-selection.
* src/nsselect.m (ns-own-selection-internal, ns-disown-selection-internal):
Rename from the "x-" prefix.
2014-10-02 03:19:32 +00:00
|
|
|
|
This returns an error if any Emacs frames are X frames."
|
2008-08-28 21:16:05 +00:00
|
|
|
|
;; Don't allow suspending if any of the frames are X frames.
|
Consolidate management/ownership of selections.
* lisp/select.el (gui-get-selection-alist): New method.
(gui-get-selection): Use it. Rename from x-get-selection.
(x-get-selection): Define as obsolete alias.
(x-get-clipboard): Mark obsolete.
(gui-get-primary-selection): New function.
(x-get-selection-value): Mark obsolete.
(gui-own-selection-alist, gui-disown-selection-alist)
(gui-selection-owner-p-alist): New methods.
(gui-set-selection): Use them. Rename from x-set-selection.
(x-set-selection): Define as obsolete alias.
(gui--valid-simple-selection-p): Rename from
x-valid-simple-selection-p.
* lisp/w32-common-fns.el (gui-own-selection, gui-disown-selection)
(gui-selection-owner-p, gui-get-selection): Define for w32.
(w32-get-selection-value): Rename from x-get-selection-value.
Use the new gui-last-selected-text.
* lisp/term/x-win.el (x-get-selection-value): Remove.
(x-clipboard-yank): Declare obsolete.
(gui-own-selection, gui-disown-selection, gui-get-selection)
(gui-selection-owner-p): Define for x.
* lisp/term/w32-win.el (w32-win-suspend-error): Rename from
x-win-suspend-error.
* lisp/term/pc-win.el (w16-get-selection-value): Rename from
x-get-selection-value.
(w16-selection-owner-p): Rename from x-selection-owner-p.
(gui-own-selection, gui-disown-selection, gui-get-selection)
(gui-selection-owner-p): Define for pc.
(w16--select-text): New function.
* lisp/term/ns-win.el (gui-own-selection, gui-disown-selection)
(gui-get-selection, gui-selection-owner-p): Define for ns.
* lisp/term.el (term-mouse-paste):
* lisp/mouse.el (mouse-yank-primary): Use gui-get-primary-selection.
* src/nsselect.m (ns-own-selection-internal, ns-disown-selection-internal):
Rename from the "x-" prefix.
2014-10-02 03:19:32 +00:00
|
|
|
|
(if (memq 'x (mapcar #'window-system (frame-list)))
|
2008-08-28 21:16:05 +00:00
|
|
|
|
(error "Cannot suspend Emacs while running under X")))
|
1993-03-25 04:37:38 +00:00
|
|
|
|
|
2004-01-22 02:36:55 +00:00
|
|
|
|
(defvar x-initialized nil
|
|
|
|
|
|
"Non-nil if the X window system has been initialized.")
|
|
|
|
|
|
|
2008-06-12 03:56:20 +00:00
|
|
|
|
(declare-function x-open-connection "xfns.c"
|
|
|
|
|
|
(display &optional xrm-string must-succeed))
|
|
|
|
|
|
(declare-function x-server-max-request-size "xfns.c" (&optional terminal))
|
|
|
|
|
|
(declare-function x-get-resource "frame.c"
|
|
|
|
|
|
(attribute class &optional component subclass))
|
2008-08-11 01:23:07 +00:00
|
|
|
|
(declare-function x-parse-geometry "frame.c" (string))
|
|
|
|
|
|
(defvar x-resource-name)
|
|
|
|
|
|
(defvar x-display-name)
|
|
|
|
|
|
(defvar x-command-line-resources)
|
2008-06-12 03:56:20 +00:00
|
|
|
|
|
* lisp/emacs-lisp/cl-generic.el: Add (major-mode MODE) context
(cl--generic-derived-specializers): New function.
(cl--generic-derived-generalizer): New generalizer.
(cl-generic-generalizers): New specializer (derived-mode MODE).
(cl--generic-split-args): Apply the rewriter, if any.
(cl-generic-define-context-rewriter): New macro.
(major-mode): Use it to define a new context-rewriter, so we can write
`(major-mode MODE)' instead of `(major-mode (derived-mode MODE))'.
* lisp/frame.el (window-system): New context-rewriter so we can write
`(window-system VAL)' instead of (window-system (eql VAL)).
(cl--generic-split-args): Apply the rewriter, if any.
(frame-creation-function): Use the new syntax.
* lisp/term/x-win.el (window-system-initialization)
(handle-args-function, frame-creation-function)
(gui-backend-set-selection, gui-backend-selection-owner-p)
(gui-backend-selection-exists-p, gui-backend-get-selection):
* lisp/term/w32-win.el (window-system-initialization)
(handle-args-function, frame-creation-function)
(gui-backend-set-selection, gui-backend-get-selection)
(gui-backend-selection-owner-p, gui-backend-selection-exists-p):
* lisp/term/pc-win.el (gui-backend-get-selection)
(gui-backend-selection-exists-p, gui-backend-selection-owner-p)
(gui-backend-set-selection, window-system-initialization)
(frame-creation-function, handle-args-function):
* lisp/term/ns-win.el (window-system-initialization)
(handle-args-function, frame-creation-function)
(gui-backend-set-selection, gui-backend-selection-exists-p)
(gui-backend-get-selection):
* lisp/startup.el (handle-args-function):
* lisp/term/xterm.el (gui-backend-get-selection)
(gui-backend-set-selection): Use the new syntax.
2015-10-29 15:06:31 +00:00
|
|
|
|
(cl-defmethod window-system-initialization (&context (window-system x)
|
Replace gui-method macros with cl-generic with &context
* lisp/frame.el (gui-method--name, gui-method, gui-method-define)
(gui-method-declare, gui-call): Remove.
(frame-creation-function): Use cl-defgeneric.
(make-frame): Adjust callers.
* lisp/menu-bar.el (menu-bar-edit-menu):
Use gui-backend-selection-exists-p.
* lisp/select.el (x-get-clipboard): Use gui-backend-get-selection.
(gui-backend-get-selection): New cl-generic to replace
gui-get-selection method.
(gui-backend-set-selection): New cl-generic to replace
gui-set-selection method.
(gui-selection-owner-p): New cl-generic to replace
gui-selection-owner-p method.
(gui-backend-selection-exists-p): New cl-generic to replace
gui-selection-exists-p method. Adjust all callers.
* lisp/server.el (server-create-window-system-frame): Don't ignore
window-system spec even when unsupported.
* lisp/simple.el (deactivate-mark): Use new gui-backend-* functions.
* lisp/startup.el (handle-args-function, window-system-initialization):
Use cl-defgeneric.
(command-line): Adjust calls accordingly.
* lisp/term/ns-win.el (ns-window-system-initialization): Turn into
a window-system-initialization method.
(handle-args-function, frame-creation-function): Use cl-defmethod.
(gui-set-selection, gui-selection-owner-p, gui-selection-exists-p)
(gui-get-selection): Use cl-defmethod on the new functions instead.
* lisp/term/pc-win.el (w16-get-selection-value): Turn into
a gui-backend-get-selection method.
(gui-selection-exists-p, gui-selection-owner-p, gui-set-selection):
Use cl-defmethod on the new functions instead.
(msdos-window-system-initialization): Turn into
a window-system-initialization method.
(frame-creation-function, handle-args-function): Use cl-defmethod.
* lisp/term/w32-win.el (w32-window-system-initialization): Turn into
a window-system-initialization method.
(handle-args-function, frame-creation-function): Use cl-defmethod.
(gui-set-selection, gui-selection-owner-p, gui-selection-exists-p)
(gui-get-selection): Use cl-defmethod on the new functions instead.
* lisp/term/x-win.el (x-window-system-initialization): Turn into
a window-system-initialization method.
(handle-args-function, frame-creation-function): Use cl-defmethod.
(gui-set-selection, gui-selection-owner-p, gui-selection-exists-p)
(gui-get-selection): Use cl-defmethod on the new functions instead.
* lisp/term/xterm.el (xterm--set-selection): Turn into
a gui-backend-set-selection method.
* src/nsselect.m (Fns_selection_exists_p): Remove unused arg `terminal'.
(Fns_selection_owner_p): Remove unused arg `terminal'.
(Fns_get_selection): Remove unused args `time_stamp' and `terminal'.
2015-05-23 15:32:29 +00:00
|
|
|
|
&optional display)
|
2004-01-22 02:36:55 +00:00
|
|
|
|
"Initialize Emacs for X frames and open the first connection to an X server."
|
2012-09-17 11:55:05 +00:00
|
|
|
|
(cl-assert (not x-initialized))
|
|
|
|
|
|
|
2004-01-22 02:36:55 +00:00
|
|
|
|
;; Make sure we have a valid resource name.
|
|
|
|
|
|
(or (stringp x-resource-name)
|
|
|
|
|
|
(let (i)
|
|
|
|
|
|
(setq x-resource-name (invocation-name))
|
|
|
|
|
|
|
|
|
|
|
|
;; Change any . or * characters in x-resource-name to hyphens,
|
|
|
|
|
|
;; so as not to choke when we use it in X resource queries.
|
|
|
|
|
|
(while (setq i (string-match "[.*]" x-resource-name))
|
|
|
|
|
|
(aset x-resource-name i ?-))))
|
|
|
|
|
|
|
2013-04-06 14:06:39 +00:00
|
|
|
|
(x-open-connection (or display
|
2007-05-16 07:12:33 +00:00
|
|
|
|
(setq x-display-name (or (getenv "DISPLAY" (selected-frame))
|
2005-12-26 02:14:10 +00:00
|
|
|
|
(getenv "DISPLAY"))))
|
2004-01-22 02:36:55 +00:00
|
|
|
|
x-command-line-resources
|
|
|
|
|
|
;; Exit Emacs with fatal error if this fails and we
|
|
|
|
|
|
;; are the initial display.
|
|
|
|
|
|
(eq initial-window-system 'x))
|
|
|
|
|
|
|
2009-03-19 00:56:52 +00:00
|
|
|
|
;; Create the default fontset.
|
|
|
|
|
|
(create-default-fontset)
|
2004-01-22 02:36:55 +00:00
|
|
|
|
|
|
|
|
|
|
;; Create the standard fontset.
|
2009-03-19 00:56:52 +00:00
|
|
|
|
(condition-case err
|
|
|
|
|
|
(create-fontset-from-fontset-spec standard-fontset-spec t)
|
2010-01-18 04:39:40 +00:00
|
|
|
|
(error (display-warning
|
2009-03-19 00:56:52 +00:00
|
|
|
|
'initialization
|
|
|
|
|
|
(format "Creation of the standard fontset failed: %s" err)
|
|
|
|
|
|
:error)))
|
2004-01-22 02:36:55 +00:00
|
|
|
|
|
|
|
|
|
|
;; Create fontset specified in X resources "Fontset-N" (N is 0, 1, ...).
|
|
|
|
|
|
(create-fontset-from-x-resource)
|
|
|
|
|
|
|
2007-01-01 17:38:32 +00:00
|
|
|
|
;; Set scroll bar mode to right if set by X resources. Default is left.
|
|
|
|
|
|
(if (equal (x-get-resource "verticalScrollBars" "ScrollBars") "right")
|
|
|
|
|
|
(customize-set-variable 'scroll-bar-mode 'right))
|
|
|
|
|
|
|
2004-01-22 02:36:55 +00:00
|
|
|
|
;; Apply a geometry resource to the initial frame. Put it at the end
|
|
|
|
|
|
;; of the alist, so that anything specified on the command line takes
|
|
|
|
|
|
;; precedence.
|
|
|
|
|
|
(let* ((res-geometry (x-get-resource "geometry" "Geometry"))
|
|
|
|
|
|
parsed)
|
|
|
|
|
|
(if res-geometry
|
|
|
|
|
|
(progn
|
|
|
|
|
|
(setq parsed (x-parse-geometry res-geometry))
|
|
|
|
|
|
;; If the resource specifies a position,
|
|
|
|
|
|
;; call the position and size "user-specified".
|
|
|
|
|
|
(if (or (assq 'top parsed) (assq 'left parsed))
|
|
|
|
|
|
(setq parsed (cons '(user-position . t)
|
|
|
|
|
|
(cons '(user-size . t) parsed))))
|
|
|
|
|
|
;; All geometry parms apply to the initial frame.
|
|
|
|
|
|
(setq initial-frame-alist (append initial-frame-alist parsed))
|
2007-10-09 08:09:15 +00:00
|
|
|
|
;; The size parms apply to all frames. Don't set it if there are
|
2006-12-03 12:15:03 +00:00
|
|
|
|
;; sizes there already (from command line).
|
|
|
|
|
|
(if (and (assq 'height parsed)
|
|
|
|
|
|
(not (assq 'height default-frame-alist)))
|
2004-01-22 02:36:55 +00:00
|
|
|
|
(setq default-frame-alist
|
|
|
|
|
|
(cons (cons 'height (cdr (assq 'height parsed)))
|
|
|
|
|
|
default-frame-alist)))
|
2006-12-03 12:15:03 +00:00
|
|
|
|
(if (and (assq 'width parsed)
|
|
|
|
|
|
(not (assq 'width default-frame-alist)))
|
2004-01-22 02:36:55 +00:00
|
|
|
|
(setq default-frame-alist
|
|
|
|
|
|
(cons (cons 'width (cdr (assq 'width parsed)))
|
|
|
|
|
|
default-frame-alist))))))
|
|
|
|
|
|
|
|
|
|
|
|
;; Check the reverseVideo resource.
|
|
|
|
|
|
(let ((case-fold-search t))
|
|
|
|
|
|
(let ((rv (x-get-resource "reverseVideo" "ReverseVideo")))
|
|
|
|
|
|
(if (and rv
|
|
|
|
|
|
(string-match "^\\(true\\|yes\\|on\\)$" rv))
|
|
|
|
|
|
(setq default-frame-alist
|
|
|
|
|
|
(cons '(reverse . t) default-frame-alist)))))
|
1991-05-17 00:15:22 +00:00
|
|
|
|
|
2004-01-22 02:36:55 +00:00
|
|
|
|
;; Set x-selection-timeout, measured in milliseconds.
|
2012-02-25 03:01:11 +00:00
|
|
|
|
(let ((res-selection-timeout (x-get-resource "selectionTimeout"
|
|
|
|
|
|
"SelectionTimeout")))
|
|
|
|
|
|
(setq x-selection-timeout
|
|
|
|
|
|
(if res-selection-timeout
|
|
|
|
|
|
(string-to-number res-selection-timeout)
|
|
|
|
|
|
5000)))
|
1993-03-12 19:53:22 +00:00
|
|
|
|
|
Implemented suspending of emacsclient frames.
lib-src/emacsclient.c (quote_file_name): Renamed to quote_argument.
(unquote_argument, handle_sigcont, handle_sigtstp): New functions.
(out, in): New global variables for communicating with the Emacs process.
(init_signals): Set up handlers for SIGCONT, SIGTSTP and SIGTTOU.
(main): Changed out and in to global variables. Prepend `-eval' or
'-file' to each argument. Use fsync to force sending the strings to Emacs.
Removed obsolete -bad-version code. Support the -suspend command.
Cleaned up newline handling.
lisp/frame.el (suspend-frame): New function.
Substitute key definition of suspend-emacs with suspend-frame.
lisp/server.el (server-log): Cosmetic change in log format.
(server-handle-delete-tty, server-handle-delete-frame): Added logging.
(server-handle-suspend-tty, server-quote-arg): New functions.
(server-start): Install server-handle-suspend-tty.
(server-process-filter): Reorganized source code for clarity.
Implemented -resume, -suspend and -ignore commands.
lisp/term/x-win.el (x-initialize-window-system): Don't change the
binding of C-z.
src/cm.c: Replaced TTY_INPUT, TTY_OUTPUT, TTY_TERMSCRIPT calls with
their macro expansion.
src/dispnew.c: Ditto.
src/frame.c: Ditto.
src/keyboard.c: Ditto.
src/sysdep.c: Ditto.
src/keyboard.c (tty_read_avail_input): Don't read if the terminal is
suspended.
src/sysdep.c (discard_tty_input, init_sys_modes, reset_sys_modes): Ditto.
src/term.c (tty_set_terminal_modes, tty_reset_terminal_modes): Ditto.
src/term.c (Vsuspend_tty_functions, Vresume_tty_functions): New hooks.
(syms_of_term): Defvar them.
(term_init): Don't allow opening a new frame on a suspended tty device.
(Fsuspend_tty, Fresume_tty): New functions.
(syms_of_term): Defsubr them.
src/termchar.c (struct tty_display_info): Update documentation of
input and output.
(TTY_INPUT, TTY_OUTPUT, TTY_TERMSCRIPT): Removed.
git-archimport-id: lorentey@elte.hu--2004/emacs--multi-tty--0--patch-105
2004-02-28 01:23:39 +00:00
|
|
|
|
;; Don't let Emacs suspend under X.
|
2004-01-22 02:36:55 +00:00
|
|
|
|
(add-hook 'suspend-hook 'x-win-suspend-error)
|
1995-04-08 02:51:37 +00:00
|
|
|
|
|
2008-11-03 17:57:33 +00:00
|
|
|
|
;; During initialization, we defer sending size hints to the window
|
|
|
|
|
|
;; manager, because that can induce a race condition:
|
|
|
|
|
|
;; http://lists.gnu.org/archive/html/emacs-devel/2008-10/msg00033.html
|
|
|
|
|
|
;; Send the size hints once initialization is done.
|
|
|
|
|
|
(add-hook 'after-init-hook 'x-wm-set-size-hint)
|
|
|
|
|
|
|
2004-01-22 02:36:55 +00:00
|
|
|
|
;; Turn off window-splitting optimization; X is usually fast enough
|
|
|
|
|
|
;; that this is only annoying.
|
|
|
|
|
|
(setq split-window-keep-point t)
|
2003-05-24 16:13:06 +00:00
|
|
|
|
|
2004-01-22 02:36:55 +00:00
|
|
|
|
;; Motif direct handling of f10 wasn't working right,
|
|
|
|
|
|
;; So temporarily we've turned it off in lwlib-Xm.c
|
|
|
|
|
|
;; and turned the Emacs f10 back on.
|
|
|
|
|
|
;; ;; Motif normally handles f10 itself, so don't try to handle it a second time.
|
|
|
|
|
|
;; (if (featurep 'motif)
|
|
|
|
|
|
;; (global-set-key [f10] 'ignore))
|
1996-04-21 05:54:18 +00:00
|
|
|
|
|
2004-01-22 15:37:19 +00:00
|
|
|
|
;; Enable CLIPBOARD copy/paste through menu bar commands.
|
|
|
|
|
|
(menu-bar-enable-clipboard)
|
2004-04-16 12:51:06 +00:00
|
|
|
|
|
2010-07-14 18:03:39 +00:00
|
|
|
|
;; ;; Override Paste so it looks at CLIPBOARD first.
|
|
|
|
|
|
;; (define-key menu-bar-edit-menu [paste]
|
|
|
|
|
|
;; (append '(menu-item "Paste" x-clipboard-yank
|
|
|
|
|
|
;; :enable (not buffer-read-only)
|
|
|
|
|
|
;; :help "Paste (yank) text most recently cut/copied")
|
|
|
|
|
|
;; nil))
|
2004-04-16 12:51:06 +00:00
|
|
|
|
|
2012-04-27 05:40:46 +00:00
|
|
|
|
(x-apply-session-resources)
|
2004-01-22 02:36:55 +00:00
|
|
|
|
(setq x-initialized t))
|
2003-05-24 16:13:06 +00:00
|
|
|
|
|
2015-05-11 06:34:45 +00:00
|
|
|
|
(declare-function x-own-selection-internal "xselect.c"
|
|
|
|
|
|
(selection value &optional frame))
|
|
|
|
|
|
(declare-function x-disown-selection-internal "xselect.c"
|
|
|
|
|
|
(selection &optional time-object terminal))
|
|
|
|
|
|
(declare-function x-selection-owner-p "xselect.c"
|
|
|
|
|
|
(&optional selection terminal))
|
|
|
|
|
|
(declare-function x-selection-exists-p "xselect.c"
|
|
|
|
|
|
(&optional selection terminal))
|
|
|
|
|
|
(declare-function x-get-selection-internal "xselect.c"
|
|
|
|
|
|
(selection-symbol target-type &optional time-stamp terminal))
|
|
|
|
|
|
|
2012-09-17 11:55:05 +00:00
|
|
|
|
(add-to-list 'display-format-alist '("\\`[^:]*:[0-9]+\\(\\.[0-9]+\\)?\\'" . x))
|
* lisp/emacs-lisp/cl-generic.el: Add (major-mode MODE) context
(cl--generic-derived-specializers): New function.
(cl--generic-derived-generalizer): New generalizer.
(cl-generic-generalizers): New specializer (derived-mode MODE).
(cl--generic-split-args): Apply the rewriter, if any.
(cl-generic-define-context-rewriter): New macro.
(major-mode): Use it to define a new context-rewriter, so we can write
`(major-mode MODE)' instead of `(major-mode (derived-mode MODE))'.
* lisp/frame.el (window-system): New context-rewriter so we can write
`(window-system VAL)' instead of (window-system (eql VAL)).
(cl--generic-split-args): Apply the rewriter, if any.
(frame-creation-function): Use the new syntax.
* lisp/term/x-win.el (window-system-initialization)
(handle-args-function, frame-creation-function)
(gui-backend-set-selection, gui-backend-selection-owner-p)
(gui-backend-selection-exists-p, gui-backend-get-selection):
* lisp/term/w32-win.el (window-system-initialization)
(handle-args-function, frame-creation-function)
(gui-backend-set-selection, gui-backend-get-selection)
(gui-backend-selection-owner-p, gui-backend-selection-exists-p):
* lisp/term/pc-win.el (gui-backend-get-selection)
(gui-backend-selection-exists-p, gui-backend-selection-owner-p)
(gui-backend-set-selection, window-system-initialization)
(frame-creation-function, handle-args-function):
* lisp/term/ns-win.el (window-system-initialization)
(handle-args-function, frame-creation-function)
(gui-backend-set-selection, gui-backend-selection-exists-p)
(gui-backend-get-selection):
* lisp/startup.el (handle-args-function):
* lisp/term/xterm.el (gui-backend-get-selection)
(gui-backend-set-selection): Use the new syntax.
2015-10-29 15:06:31 +00:00
|
|
|
|
(cl-defmethod handle-args-function (args &context (window-system x))
|
Replace gui-method macros with cl-generic with &context
* lisp/frame.el (gui-method--name, gui-method, gui-method-define)
(gui-method-declare, gui-call): Remove.
(frame-creation-function): Use cl-defgeneric.
(make-frame): Adjust callers.
* lisp/menu-bar.el (menu-bar-edit-menu):
Use gui-backend-selection-exists-p.
* lisp/select.el (x-get-clipboard): Use gui-backend-get-selection.
(gui-backend-get-selection): New cl-generic to replace
gui-get-selection method.
(gui-backend-set-selection): New cl-generic to replace
gui-set-selection method.
(gui-selection-owner-p): New cl-generic to replace
gui-selection-owner-p method.
(gui-backend-selection-exists-p): New cl-generic to replace
gui-selection-exists-p method. Adjust all callers.
* lisp/server.el (server-create-window-system-frame): Don't ignore
window-system spec even when unsupported.
* lisp/simple.el (deactivate-mark): Use new gui-backend-* functions.
* lisp/startup.el (handle-args-function, window-system-initialization):
Use cl-defgeneric.
(command-line): Adjust calls accordingly.
* lisp/term/ns-win.el (ns-window-system-initialization): Turn into
a window-system-initialization method.
(handle-args-function, frame-creation-function): Use cl-defmethod.
(gui-set-selection, gui-selection-owner-p, gui-selection-exists-p)
(gui-get-selection): Use cl-defmethod on the new functions instead.
* lisp/term/pc-win.el (w16-get-selection-value): Turn into
a gui-backend-get-selection method.
(gui-selection-exists-p, gui-selection-owner-p, gui-set-selection):
Use cl-defmethod on the new functions instead.
(msdos-window-system-initialization): Turn into
a window-system-initialization method.
(frame-creation-function, handle-args-function): Use cl-defmethod.
* lisp/term/w32-win.el (w32-window-system-initialization): Turn into
a window-system-initialization method.
(handle-args-function, frame-creation-function): Use cl-defmethod.
(gui-set-selection, gui-selection-owner-p, gui-selection-exists-p)
(gui-get-selection): Use cl-defmethod on the new functions instead.
* lisp/term/x-win.el (x-window-system-initialization): Turn into
a window-system-initialization method.
(handle-args-function, frame-creation-function): Use cl-defmethod.
(gui-set-selection, gui-selection-owner-p, gui-selection-exists-p)
(gui-get-selection): Use cl-defmethod on the new functions instead.
* lisp/term/xterm.el (xterm--set-selection): Turn into
a gui-backend-set-selection method.
* src/nsselect.m (Fns_selection_exists_p): Remove unused arg `terminal'.
(Fns_selection_owner_p): Remove unused arg `terminal'.
(Fns_get_selection): Remove unused args `time_stamp' and `terminal'.
2015-05-23 15:32:29 +00:00
|
|
|
|
(x-handle-args args))
|
|
|
|
|
|
|
* lisp/emacs-lisp/cl-generic.el: Add (major-mode MODE) context
(cl--generic-derived-specializers): New function.
(cl--generic-derived-generalizer): New generalizer.
(cl-generic-generalizers): New specializer (derived-mode MODE).
(cl--generic-split-args): Apply the rewriter, if any.
(cl-generic-define-context-rewriter): New macro.
(major-mode): Use it to define a new context-rewriter, so we can write
`(major-mode MODE)' instead of `(major-mode (derived-mode MODE))'.
* lisp/frame.el (window-system): New context-rewriter so we can write
`(window-system VAL)' instead of (window-system (eql VAL)).
(cl--generic-split-args): Apply the rewriter, if any.
(frame-creation-function): Use the new syntax.
* lisp/term/x-win.el (window-system-initialization)
(handle-args-function, frame-creation-function)
(gui-backend-set-selection, gui-backend-selection-owner-p)
(gui-backend-selection-exists-p, gui-backend-get-selection):
* lisp/term/w32-win.el (window-system-initialization)
(handle-args-function, frame-creation-function)
(gui-backend-set-selection, gui-backend-get-selection)
(gui-backend-selection-owner-p, gui-backend-selection-exists-p):
* lisp/term/pc-win.el (gui-backend-get-selection)
(gui-backend-selection-exists-p, gui-backend-selection-owner-p)
(gui-backend-set-selection, window-system-initialization)
(frame-creation-function, handle-args-function):
* lisp/term/ns-win.el (window-system-initialization)
(handle-args-function, frame-creation-function)
(gui-backend-set-selection, gui-backend-selection-exists-p)
(gui-backend-get-selection):
* lisp/startup.el (handle-args-function):
* lisp/term/xterm.el (gui-backend-get-selection)
(gui-backend-set-selection): Use the new syntax.
2015-10-29 15:06:31 +00:00
|
|
|
|
(cl-defmethod frame-creation-function (params &context (window-system x))
|
Replace gui-method macros with cl-generic with &context
* lisp/frame.el (gui-method--name, gui-method, gui-method-define)
(gui-method-declare, gui-call): Remove.
(frame-creation-function): Use cl-defgeneric.
(make-frame): Adjust callers.
* lisp/menu-bar.el (menu-bar-edit-menu):
Use gui-backend-selection-exists-p.
* lisp/select.el (x-get-clipboard): Use gui-backend-get-selection.
(gui-backend-get-selection): New cl-generic to replace
gui-get-selection method.
(gui-backend-set-selection): New cl-generic to replace
gui-set-selection method.
(gui-selection-owner-p): New cl-generic to replace
gui-selection-owner-p method.
(gui-backend-selection-exists-p): New cl-generic to replace
gui-selection-exists-p method. Adjust all callers.
* lisp/server.el (server-create-window-system-frame): Don't ignore
window-system spec even when unsupported.
* lisp/simple.el (deactivate-mark): Use new gui-backend-* functions.
* lisp/startup.el (handle-args-function, window-system-initialization):
Use cl-defgeneric.
(command-line): Adjust calls accordingly.
* lisp/term/ns-win.el (ns-window-system-initialization): Turn into
a window-system-initialization method.
(handle-args-function, frame-creation-function): Use cl-defmethod.
(gui-set-selection, gui-selection-owner-p, gui-selection-exists-p)
(gui-get-selection): Use cl-defmethod on the new functions instead.
* lisp/term/pc-win.el (w16-get-selection-value): Turn into
a gui-backend-get-selection method.
(gui-selection-exists-p, gui-selection-owner-p, gui-set-selection):
Use cl-defmethod on the new functions instead.
(msdos-window-system-initialization): Turn into
a window-system-initialization method.
(frame-creation-function, handle-args-function): Use cl-defmethod.
* lisp/term/w32-win.el (w32-window-system-initialization): Turn into
a window-system-initialization method.
(handle-args-function, frame-creation-function): Use cl-defmethod.
(gui-set-selection, gui-selection-owner-p, gui-selection-exists-p)
(gui-get-selection): Use cl-defmethod on the new functions instead.
* lisp/term/x-win.el (x-window-system-initialization): Turn into
a window-system-initialization method.
(handle-args-function, frame-creation-function): Use cl-defmethod.
(gui-set-selection, gui-selection-owner-p, gui-selection-exists-p)
(gui-get-selection): Use cl-defmethod on the new functions instead.
* lisp/term/xterm.el (xterm--set-selection): Turn into
a gui-backend-set-selection method.
* src/nsselect.m (Fns_selection_exists_p): Remove unused arg `terminal'.
(Fns_selection_owner_p): Remove unused arg `terminal'.
(Fns_get_selection): Remove unused args `time_stamp' and `terminal'.
2015-05-23 15:32:29 +00:00
|
|
|
|
(x-create-frame-with-faces params))
|
|
|
|
|
|
|
|
|
|
|
|
(cl-defmethod gui-backend-set-selection (selection value
|
* lisp/emacs-lisp/cl-generic.el: Add (major-mode MODE) context
(cl--generic-derived-specializers): New function.
(cl--generic-derived-generalizer): New generalizer.
(cl-generic-generalizers): New specializer (derived-mode MODE).
(cl--generic-split-args): Apply the rewriter, if any.
(cl-generic-define-context-rewriter): New macro.
(major-mode): Use it to define a new context-rewriter, so we can write
`(major-mode MODE)' instead of `(major-mode (derived-mode MODE))'.
* lisp/frame.el (window-system): New context-rewriter so we can write
`(window-system VAL)' instead of (window-system (eql VAL)).
(cl--generic-split-args): Apply the rewriter, if any.
(frame-creation-function): Use the new syntax.
* lisp/term/x-win.el (window-system-initialization)
(handle-args-function, frame-creation-function)
(gui-backend-set-selection, gui-backend-selection-owner-p)
(gui-backend-selection-exists-p, gui-backend-get-selection):
* lisp/term/w32-win.el (window-system-initialization)
(handle-args-function, frame-creation-function)
(gui-backend-set-selection, gui-backend-get-selection)
(gui-backend-selection-owner-p, gui-backend-selection-exists-p):
* lisp/term/pc-win.el (gui-backend-get-selection)
(gui-backend-selection-exists-p, gui-backend-selection-owner-p)
(gui-backend-set-selection, window-system-initialization)
(frame-creation-function, handle-args-function):
* lisp/term/ns-win.el (window-system-initialization)
(handle-args-function, frame-creation-function)
(gui-backend-set-selection, gui-backend-selection-exists-p)
(gui-backend-get-selection):
* lisp/startup.el (handle-args-function):
* lisp/term/xterm.el (gui-backend-get-selection)
(gui-backend-set-selection): Use the new syntax.
2015-10-29 15:06:31 +00:00
|
|
|
|
&context (window-system x))
|
Replace gui-method macros with cl-generic with &context
* lisp/frame.el (gui-method--name, gui-method, gui-method-define)
(gui-method-declare, gui-call): Remove.
(frame-creation-function): Use cl-defgeneric.
(make-frame): Adjust callers.
* lisp/menu-bar.el (menu-bar-edit-menu):
Use gui-backend-selection-exists-p.
* lisp/select.el (x-get-clipboard): Use gui-backend-get-selection.
(gui-backend-get-selection): New cl-generic to replace
gui-get-selection method.
(gui-backend-set-selection): New cl-generic to replace
gui-set-selection method.
(gui-selection-owner-p): New cl-generic to replace
gui-selection-owner-p method.
(gui-backend-selection-exists-p): New cl-generic to replace
gui-selection-exists-p method. Adjust all callers.
* lisp/server.el (server-create-window-system-frame): Don't ignore
window-system spec even when unsupported.
* lisp/simple.el (deactivate-mark): Use new gui-backend-* functions.
* lisp/startup.el (handle-args-function, window-system-initialization):
Use cl-defgeneric.
(command-line): Adjust calls accordingly.
* lisp/term/ns-win.el (ns-window-system-initialization): Turn into
a window-system-initialization method.
(handle-args-function, frame-creation-function): Use cl-defmethod.
(gui-set-selection, gui-selection-owner-p, gui-selection-exists-p)
(gui-get-selection): Use cl-defmethod on the new functions instead.
* lisp/term/pc-win.el (w16-get-selection-value): Turn into
a gui-backend-get-selection method.
(gui-selection-exists-p, gui-selection-owner-p, gui-set-selection):
Use cl-defmethod on the new functions instead.
(msdos-window-system-initialization): Turn into
a window-system-initialization method.
(frame-creation-function, handle-args-function): Use cl-defmethod.
* lisp/term/w32-win.el (w32-window-system-initialization): Turn into
a window-system-initialization method.
(handle-args-function, frame-creation-function): Use cl-defmethod.
(gui-set-selection, gui-selection-owner-p, gui-selection-exists-p)
(gui-get-selection): Use cl-defmethod on the new functions instead.
* lisp/term/x-win.el (x-window-system-initialization): Turn into
a window-system-initialization method.
(handle-args-function, frame-creation-function): Use cl-defmethod.
(gui-set-selection, gui-selection-owner-p, gui-selection-exists-p)
(gui-get-selection): Use cl-defmethod on the new functions instead.
* lisp/term/xterm.el (xterm--set-selection): Turn into
a gui-backend-set-selection method.
* src/nsselect.m (Fns_selection_exists_p): Remove unused arg `terminal'.
(Fns_selection_owner_p): Remove unused arg `terminal'.
(Fns_get_selection): Remove unused args `time_stamp' and `terminal'.
2015-05-23 15:32:29 +00:00
|
|
|
|
(if value (x-own-selection-internal selection value)
|
|
|
|
|
|
(x-disown-selection-internal selection)))
|
|
|
|
|
|
|
|
|
|
|
|
(cl-defmethod gui-backend-selection-owner-p (selection
|
* lisp/emacs-lisp/cl-generic.el: Add (major-mode MODE) context
(cl--generic-derived-specializers): New function.
(cl--generic-derived-generalizer): New generalizer.
(cl-generic-generalizers): New specializer (derived-mode MODE).
(cl--generic-split-args): Apply the rewriter, if any.
(cl-generic-define-context-rewriter): New macro.
(major-mode): Use it to define a new context-rewriter, so we can write
`(major-mode MODE)' instead of `(major-mode (derived-mode MODE))'.
* lisp/frame.el (window-system): New context-rewriter so we can write
`(window-system VAL)' instead of (window-system (eql VAL)).
(cl--generic-split-args): Apply the rewriter, if any.
(frame-creation-function): Use the new syntax.
* lisp/term/x-win.el (window-system-initialization)
(handle-args-function, frame-creation-function)
(gui-backend-set-selection, gui-backend-selection-owner-p)
(gui-backend-selection-exists-p, gui-backend-get-selection):
* lisp/term/w32-win.el (window-system-initialization)
(handle-args-function, frame-creation-function)
(gui-backend-set-selection, gui-backend-get-selection)
(gui-backend-selection-owner-p, gui-backend-selection-exists-p):
* lisp/term/pc-win.el (gui-backend-get-selection)
(gui-backend-selection-exists-p, gui-backend-selection-owner-p)
(gui-backend-set-selection, window-system-initialization)
(frame-creation-function, handle-args-function):
* lisp/term/ns-win.el (window-system-initialization)
(handle-args-function, frame-creation-function)
(gui-backend-set-selection, gui-backend-selection-exists-p)
(gui-backend-get-selection):
* lisp/startup.el (handle-args-function):
* lisp/term/xterm.el (gui-backend-get-selection)
(gui-backend-set-selection): Use the new syntax.
2015-10-29 15:06:31 +00:00
|
|
|
|
&context (window-system x))
|
Replace gui-method macros with cl-generic with &context
* lisp/frame.el (gui-method--name, gui-method, gui-method-define)
(gui-method-declare, gui-call): Remove.
(frame-creation-function): Use cl-defgeneric.
(make-frame): Adjust callers.
* lisp/menu-bar.el (menu-bar-edit-menu):
Use gui-backend-selection-exists-p.
* lisp/select.el (x-get-clipboard): Use gui-backend-get-selection.
(gui-backend-get-selection): New cl-generic to replace
gui-get-selection method.
(gui-backend-set-selection): New cl-generic to replace
gui-set-selection method.
(gui-selection-owner-p): New cl-generic to replace
gui-selection-owner-p method.
(gui-backend-selection-exists-p): New cl-generic to replace
gui-selection-exists-p method. Adjust all callers.
* lisp/server.el (server-create-window-system-frame): Don't ignore
window-system spec even when unsupported.
* lisp/simple.el (deactivate-mark): Use new gui-backend-* functions.
* lisp/startup.el (handle-args-function, window-system-initialization):
Use cl-defgeneric.
(command-line): Adjust calls accordingly.
* lisp/term/ns-win.el (ns-window-system-initialization): Turn into
a window-system-initialization method.
(handle-args-function, frame-creation-function): Use cl-defmethod.
(gui-set-selection, gui-selection-owner-p, gui-selection-exists-p)
(gui-get-selection): Use cl-defmethod on the new functions instead.
* lisp/term/pc-win.el (w16-get-selection-value): Turn into
a gui-backend-get-selection method.
(gui-selection-exists-p, gui-selection-owner-p, gui-set-selection):
Use cl-defmethod on the new functions instead.
(msdos-window-system-initialization): Turn into
a window-system-initialization method.
(frame-creation-function, handle-args-function): Use cl-defmethod.
* lisp/term/w32-win.el (w32-window-system-initialization): Turn into
a window-system-initialization method.
(handle-args-function, frame-creation-function): Use cl-defmethod.
(gui-set-selection, gui-selection-owner-p, gui-selection-exists-p)
(gui-get-selection): Use cl-defmethod on the new functions instead.
* lisp/term/x-win.el (x-window-system-initialization): Turn into
a window-system-initialization method.
(handle-args-function, frame-creation-function): Use cl-defmethod.
(gui-set-selection, gui-selection-owner-p, gui-selection-exists-p)
(gui-get-selection): Use cl-defmethod on the new functions instead.
* lisp/term/xterm.el (xterm--set-selection): Turn into
a gui-backend-set-selection method.
* src/nsselect.m (Fns_selection_exists_p): Remove unused arg `terminal'.
(Fns_selection_owner_p): Remove unused arg `terminal'.
(Fns_get_selection): Remove unused args `time_stamp' and `terminal'.
2015-05-23 15:32:29 +00:00
|
|
|
|
(x-selection-owner-p selection))
|
|
|
|
|
|
|
|
|
|
|
|
(cl-defmethod gui-backend-selection-exists-p (selection
|
* lisp/emacs-lisp/cl-generic.el: Add (major-mode MODE) context
(cl--generic-derived-specializers): New function.
(cl--generic-derived-generalizer): New generalizer.
(cl-generic-generalizers): New specializer (derived-mode MODE).
(cl--generic-split-args): Apply the rewriter, if any.
(cl-generic-define-context-rewriter): New macro.
(major-mode): Use it to define a new context-rewriter, so we can write
`(major-mode MODE)' instead of `(major-mode (derived-mode MODE))'.
* lisp/frame.el (window-system): New context-rewriter so we can write
`(window-system VAL)' instead of (window-system (eql VAL)).
(cl--generic-split-args): Apply the rewriter, if any.
(frame-creation-function): Use the new syntax.
* lisp/term/x-win.el (window-system-initialization)
(handle-args-function, frame-creation-function)
(gui-backend-set-selection, gui-backend-selection-owner-p)
(gui-backend-selection-exists-p, gui-backend-get-selection):
* lisp/term/w32-win.el (window-system-initialization)
(handle-args-function, frame-creation-function)
(gui-backend-set-selection, gui-backend-get-selection)
(gui-backend-selection-owner-p, gui-backend-selection-exists-p):
* lisp/term/pc-win.el (gui-backend-get-selection)
(gui-backend-selection-exists-p, gui-backend-selection-owner-p)
(gui-backend-set-selection, window-system-initialization)
(frame-creation-function, handle-args-function):
* lisp/term/ns-win.el (window-system-initialization)
(handle-args-function, frame-creation-function)
(gui-backend-set-selection, gui-backend-selection-exists-p)
(gui-backend-get-selection):
* lisp/startup.el (handle-args-function):
* lisp/term/xterm.el (gui-backend-get-selection)
(gui-backend-set-selection): Use the new syntax.
2015-10-29 15:06:31 +00:00
|
|
|
|
&context (window-system x))
|
Replace gui-method macros with cl-generic with &context
* lisp/frame.el (gui-method--name, gui-method, gui-method-define)
(gui-method-declare, gui-call): Remove.
(frame-creation-function): Use cl-defgeneric.
(make-frame): Adjust callers.
* lisp/menu-bar.el (menu-bar-edit-menu):
Use gui-backend-selection-exists-p.
* lisp/select.el (x-get-clipboard): Use gui-backend-get-selection.
(gui-backend-get-selection): New cl-generic to replace
gui-get-selection method.
(gui-backend-set-selection): New cl-generic to replace
gui-set-selection method.
(gui-selection-owner-p): New cl-generic to replace
gui-selection-owner-p method.
(gui-backend-selection-exists-p): New cl-generic to replace
gui-selection-exists-p method. Adjust all callers.
* lisp/server.el (server-create-window-system-frame): Don't ignore
window-system spec even when unsupported.
* lisp/simple.el (deactivate-mark): Use new gui-backend-* functions.
* lisp/startup.el (handle-args-function, window-system-initialization):
Use cl-defgeneric.
(command-line): Adjust calls accordingly.
* lisp/term/ns-win.el (ns-window-system-initialization): Turn into
a window-system-initialization method.
(handle-args-function, frame-creation-function): Use cl-defmethod.
(gui-set-selection, gui-selection-owner-p, gui-selection-exists-p)
(gui-get-selection): Use cl-defmethod on the new functions instead.
* lisp/term/pc-win.el (w16-get-selection-value): Turn into
a gui-backend-get-selection method.
(gui-selection-exists-p, gui-selection-owner-p, gui-set-selection):
Use cl-defmethod on the new functions instead.
(msdos-window-system-initialization): Turn into
a window-system-initialization method.
(frame-creation-function, handle-args-function): Use cl-defmethod.
* lisp/term/w32-win.el (w32-window-system-initialization): Turn into
a window-system-initialization method.
(handle-args-function, frame-creation-function): Use cl-defmethod.
(gui-set-selection, gui-selection-owner-p, gui-selection-exists-p)
(gui-get-selection): Use cl-defmethod on the new functions instead.
* lisp/term/x-win.el (x-window-system-initialization): Turn into
a window-system-initialization method.
(handle-args-function, frame-creation-function): Use cl-defmethod.
(gui-set-selection, gui-selection-owner-p, gui-selection-exists-p)
(gui-get-selection): Use cl-defmethod on the new functions instead.
* lisp/term/xterm.el (xterm--set-selection): Turn into
a gui-backend-set-selection method.
* src/nsselect.m (Fns_selection_exists_p): Remove unused arg `terminal'.
(Fns_selection_owner_p): Remove unused arg `terminal'.
(Fns_get_selection): Remove unused args `time_stamp' and `terminal'.
2015-05-23 15:32:29 +00:00
|
|
|
|
(x-selection-exists-p selection))
|
|
|
|
|
|
|
|
|
|
|
|
(cl-defmethod gui-backend-get-selection (selection-symbol target-type
|
* lisp/emacs-lisp/cl-generic.el: Add (major-mode MODE) context
(cl--generic-derived-specializers): New function.
(cl--generic-derived-generalizer): New generalizer.
(cl-generic-generalizers): New specializer (derived-mode MODE).
(cl--generic-split-args): Apply the rewriter, if any.
(cl-generic-define-context-rewriter): New macro.
(major-mode): Use it to define a new context-rewriter, so we can write
`(major-mode MODE)' instead of `(major-mode (derived-mode MODE))'.
* lisp/frame.el (window-system): New context-rewriter so we can write
`(window-system VAL)' instead of (window-system (eql VAL)).
(cl--generic-split-args): Apply the rewriter, if any.
(frame-creation-function): Use the new syntax.
* lisp/term/x-win.el (window-system-initialization)
(handle-args-function, frame-creation-function)
(gui-backend-set-selection, gui-backend-selection-owner-p)
(gui-backend-selection-exists-p, gui-backend-get-selection):
* lisp/term/w32-win.el (window-system-initialization)
(handle-args-function, frame-creation-function)
(gui-backend-set-selection, gui-backend-get-selection)
(gui-backend-selection-owner-p, gui-backend-selection-exists-p):
* lisp/term/pc-win.el (gui-backend-get-selection)
(gui-backend-selection-exists-p, gui-backend-selection-owner-p)
(gui-backend-set-selection, window-system-initialization)
(frame-creation-function, handle-args-function):
* lisp/term/ns-win.el (window-system-initialization)
(handle-args-function, frame-creation-function)
(gui-backend-set-selection, gui-backend-selection-exists-p)
(gui-backend-get-selection):
* lisp/startup.el (handle-args-function):
* lisp/term/xterm.el (gui-backend-get-selection)
(gui-backend-set-selection): Use the new syntax.
2015-10-29 15:06:31 +00:00
|
|
|
|
&context (window-system x)
|
Replace gui-method macros with cl-generic with &context
* lisp/frame.el (gui-method--name, gui-method, gui-method-define)
(gui-method-declare, gui-call): Remove.
(frame-creation-function): Use cl-defgeneric.
(make-frame): Adjust callers.
* lisp/menu-bar.el (menu-bar-edit-menu):
Use gui-backend-selection-exists-p.
* lisp/select.el (x-get-clipboard): Use gui-backend-get-selection.
(gui-backend-get-selection): New cl-generic to replace
gui-get-selection method.
(gui-backend-set-selection): New cl-generic to replace
gui-set-selection method.
(gui-selection-owner-p): New cl-generic to replace
gui-selection-owner-p method.
(gui-backend-selection-exists-p): New cl-generic to replace
gui-selection-exists-p method. Adjust all callers.
* lisp/server.el (server-create-window-system-frame): Don't ignore
window-system spec even when unsupported.
* lisp/simple.el (deactivate-mark): Use new gui-backend-* functions.
* lisp/startup.el (handle-args-function, window-system-initialization):
Use cl-defgeneric.
(command-line): Adjust calls accordingly.
* lisp/term/ns-win.el (ns-window-system-initialization): Turn into
a window-system-initialization method.
(handle-args-function, frame-creation-function): Use cl-defmethod.
(gui-set-selection, gui-selection-owner-p, gui-selection-exists-p)
(gui-get-selection): Use cl-defmethod on the new functions instead.
* lisp/term/pc-win.el (w16-get-selection-value): Turn into
a gui-backend-get-selection method.
(gui-selection-exists-p, gui-selection-owner-p, gui-set-selection):
Use cl-defmethod on the new functions instead.
(msdos-window-system-initialization): Turn into
a window-system-initialization method.
(frame-creation-function, handle-args-function): Use cl-defmethod.
* lisp/term/w32-win.el (w32-window-system-initialization): Turn into
a window-system-initialization method.
(handle-args-function, frame-creation-function): Use cl-defmethod.
(gui-set-selection, gui-selection-owner-p, gui-selection-exists-p)
(gui-get-selection): Use cl-defmethod on the new functions instead.
* lisp/term/x-win.el (x-window-system-initialization): Turn into
a window-system-initialization method.
(handle-args-function, frame-creation-function): Use cl-defmethod.
(gui-set-selection, gui-selection-owner-p, gui-selection-exists-p)
(gui-get-selection): Use cl-defmethod on the new functions instead.
* lisp/term/xterm.el (xterm--set-selection): Turn into
a gui-backend-set-selection method.
* src/nsselect.m (Fns_selection_exists_p): Remove unused arg `terminal'.
(Fns_selection_owner_p): Remove unused arg `terminal'.
(Fns_get_selection): Remove unused args `time_stamp' and `terminal'.
2015-05-23 15:32:29 +00:00
|
|
|
|
&optional time-stamp terminal)
|
|
|
|
|
|
(x-get-selection-internal selection-symbol target-type time-stamp terminal))
|
2004-04-16 12:51:06 +00:00
|
|
|
|
|
|
|
|
|
|
;; Initiate drag and drop
|
|
|
|
|
|
(add-hook 'after-make-frame-functions 'x-dnd-init-frame)
|
2006-08-16 05:09:18 +00:00
|
|
|
|
(define-key special-event-map [drag-n-drop] 'x-dnd-handle-drag-n-drop-event)
|
2004-04-16 12:51:06 +00:00
|
|
|
|
|
2007-08-28 10:16:00 +00:00
|
|
|
|
(defcustom x-gtk-stock-map
|
2011-02-01 21:37:12 +00:00
|
|
|
|
(mapcar (lambda (arg)
|
|
|
|
|
|
(cons (purecopy (car arg)) (purecopy (cdr arg))))
|
2007-08-28 10:16:00 +00:00
|
|
|
|
'(
|
Handle deprecated Gtk+ stuff for version <= 3.10
* lisp/term/x-win.el (x-gtk-stock-map): Add icon names suggested as
replacements to stock names before stock names in a list.
Cdr may be a list, each name is tried in turn until one is found.
* src/gtkutil.c (XG_TEXT_CANCEL, XG_TEXT_OPEN, XG_TEXT_OK): New defines
to handle Gtk versions.
(xg_get_file_with_chooser): Use them.
(xg_have_tear_offs, tearoff_remove, tearoff_activate): Remove
(create_menus): Remove teroff argument and code.
Remove call to gtk_menu_set_title.
(xg_update_menubar, xg_update_submenu): Remove tearoff code. Adjust
args to create_menus.
(xg_tool_bar_menu_proxy, xg_tool_bar_detach_callback)
(xg_tool_bar_attach_callback, TOOLBAR_TOP_WIDGET): Remove.
(xg_pack_tool_bar): Replace TOOLBAR_TOP_WIDGET, remove detach code.
(xg_make_tool_item): Remove detach code.
(xg_update_tool_bar_sizes): Replace TOOLBAR_TOP_WIDGET.
(find_icon_from_name): New function.
(update_frame_tool_bar): Remove GtkStockItem code, move to
find_icon_from_name. Let stock be a list of icon names to try.
Only use gtk_image_new_from_stock on Gtk+ < 3.10.
Replace TOOLBAR_TOP_WIDGET.
(free_frame_tool_bar, xg_change_toolbar_position ): Replace
TOOLBAR_TOP_WIDGET.
(xg_initialize): Remove tearoff code.
* src/gtkutil.h (xg_have_tear_offs): Remove declaration.
* src/xmenu.c (set_frame_menubar): Remove GTK block that calls
xg_have_tear_offs.
* src/xterm.h (handlebox_widget): Remove.
2014-10-18 16:19:53 +00:00
|
|
|
|
("etc/images/new" . ("document-new" "gtk-new"))
|
|
|
|
|
|
("etc/images/open" . ("document-open" "gtk-open"))
|
2007-09-02 16:51:22 +00:00
|
|
|
|
("etc/images/diropen" . "n:system-file-manager")
|
Handle deprecated Gtk+ stuff for version <= 3.10
* lisp/term/x-win.el (x-gtk-stock-map): Add icon names suggested as
replacements to stock names before stock names in a list.
Cdr may be a list, each name is tried in turn until one is found.
* src/gtkutil.c (XG_TEXT_CANCEL, XG_TEXT_OPEN, XG_TEXT_OK): New defines
to handle Gtk versions.
(xg_get_file_with_chooser): Use them.
(xg_have_tear_offs, tearoff_remove, tearoff_activate): Remove
(create_menus): Remove teroff argument and code.
Remove call to gtk_menu_set_title.
(xg_update_menubar, xg_update_submenu): Remove tearoff code. Adjust
args to create_menus.
(xg_tool_bar_menu_proxy, xg_tool_bar_detach_callback)
(xg_tool_bar_attach_callback, TOOLBAR_TOP_WIDGET): Remove.
(xg_pack_tool_bar): Replace TOOLBAR_TOP_WIDGET, remove detach code.
(xg_make_tool_item): Remove detach code.
(xg_update_tool_bar_sizes): Replace TOOLBAR_TOP_WIDGET.
(find_icon_from_name): New function.
(update_frame_tool_bar): Remove GtkStockItem code, move to
find_icon_from_name. Let stock be a list of icon names to try.
Only use gtk_image_new_from_stock on Gtk+ < 3.10.
Replace TOOLBAR_TOP_WIDGET.
(free_frame_tool_bar, xg_change_toolbar_position ): Replace
TOOLBAR_TOP_WIDGET.
(xg_initialize): Remove tearoff code.
* src/gtkutil.h (xg_have_tear_offs): Remove declaration.
* src/xmenu.c (set_frame_menubar): Remove GTK block that calls
xg_have_tear_offs.
* src/xterm.h (handlebox_widget): Remove.
2014-10-18 16:19:53 +00:00
|
|
|
|
("etc/images/close" . ("window-close" "gtk-close"))
|
|
|
|
|
|
("etc/images/save" . ("document-save" "gtk-save"))
|
|
|
|
|
|
("etc/images/saveas" . ("document-save-as" "gtk-save-as"))
|
|
|
|
|
|
("etc/images/undo" . ("edit-undo" "gtk-undo"))
|
|
|
|
|
|
("etc/images/cut" . ("edit-cut" "gtk-cut"))
|
|
|
|
|
|
("etc/images/copy" . ("edit-copy" "gtk-copy"))
|
|
|
|
|
|
("etc/images/paste" . ("edit-paste" "gtk-paste"))
|
|
|
|
|
|
("etc/images/search" . ("edit-find" "gtk-find"))
|
|
|
|
|
|
("etc/images/print" . ("document-print" "gtk-print"))
|
|
|
|
|
|
("etc/images/preferences" . ("preferences-system" "gtk-preferences"))
|
|
|
|
|
|
("etc/images/help" . ("help-browser" "gtk-help"))
|
|
|
|
|
|
("etc/images/left-arrow" . ("go-previous" "gtk-go-back"))
|
|
|
|
|
|
("etc/images/right-arrow" . ("go-next" "gtk-go-forward"))
|
|
|
|
|
|
("etc/images/home" . ("go-home" "gtk-home"))
|
|
|
|
|
|
("etc/images/jump-to" . ("go-jump" "gtk-jump-to"))
|
2007-08-31 10:13:35 +00:00
|
|
|
|
("etc/images/index" . "gtk-index")
|
Handle deprecated Gtk+ stuff for version <= 3.10
* lisp/term/x-win.el (x-gtk-stock-map): Add icon names suggested as
replacements to stock names before stock names in a list.
Cdr may be a list, each name is tried in turn until one is found.
* src/gtkutil.c (XG_TEXT_CANCEL, XG_TEXT_OPEN, XG_TEXT_OK): New defines
to handle Gtk versions.
(xg_get_file_with_chooser): Use them.
(xg_have_tear_offs, tearoff_remove, tearoff_activate): Remove
(create_menus): Remove teroff argument and code.
Remove call to gtk_menu_set_title.
(xg_update_menubar, xg_update_submenu): Remove tearoff code. Adjust
args to create_menus.
(xg_tool_bar_menu_proxy, xg_tool_bar_detach_callback)
(xg_tool_bar_attach_callback, TOOLBAR_TOP_WIDGET): Remove.
(xg_pack_tool_bar): Replace TOOLBAR_TOP_WIDGET, remove detach code.
(xg_make_tool_item): Remove detach code.
(xg_update_tool_bar_sizes): Replace TOOLBAR_TOP_WIDGET.
(find_icon_from_name): New function.
(update_frame_tool_bar): Remove GtkStockItem code, move to
find_icon_from_name. Let stock be a list of icon names to try.
Only use gtk_image_new_from_stock on Gtk+ < 3.10.
Replace TOOLBAR_TOP_WIDGET.
(free_frame_tool_bar, xg_change_toolbar_position ): Replace
TOOLBAR_TOP_WIDGET.
(xg_initialize): Remove tearoff code.
* src/gtkutil.h (xg_have_tear_offs): Remove declaration.
* src/xmenu.c (set_frame_menubar): Remove GTK block that calls
xg_have_tear_offs.
* src/xterm.h (handlebox_widget): Remove.
2014-10-18 16:19:53 +00:00
|
|
|
|
("etc/images/exit" . ("application-exit" "gtk-quit"))
|
2008-02-25 10:50:20 +00:00
|
|
|
|
("etc/images/cancel" . "gtk-cancel")
|
Handle deprecated Gtk+ stuff for version <= 3.10
* lisp/term/x-win.el (x-gtk-stock-map): Add icon names suggested as
replacements to stock names before stock names in a list.
Cdr may be a list, each name is tried in turn until one is found.
* src/gtkutil.c (XG_TEXT_CANCEL, XG_TEXT_OPEN, XG_TEXT_OK): New defines
to handle Gtk versions.
(xg_get_file_with_chooser): Use them.
(xg_have_tear_offs, tearoff_remove, tearoff_activate): Remove
(create_menus): Remove teroff argument and code.
Remove call to gtk_menu_set_title.
(xg_update_menubar, xg_update_submenu): Remove tearoff code. Adjust
args to create_menus.
(xg_tool_bar_menu_proxy, xg_tool_bar_detach_callback)
(xg_tool_bar_attach_callback, TOOLBAR_TOP_WIDGET): Remove.
(xg_pack_tool_bar): Replace TOOLBAR_TOP_WIDGET, remove detach code.
(xg_make_tool_item): Remove detach code.
(xg_update_tool_bar_sizes): Replace TOOLBAR_TOP_WIDGET.
(find_icon_from_name): New function.
(update_frame_tool_bar): Remove GtkStockItem code, move to
find_icon_from_name. Let stock be a list of icon names to try.
Only use gtk_image_new_from_stock on Gtk+ < 3.10.
Replace TOOLBAR_TOP_WIDGET.
(free_frame_tool_bar, xg_change_toolbar_position ): Replace
TOOLBAR_TOP_WIDGET.
(xg_initialize): Remove tearoff code.
* src/gtkutil.h (xg_have_tear_offs): Remove declaration.
* src/xmenu.c (set_frame_menubar): Remove GTK block that calls
xg_have_tear_offs.
* src/xterm.h (handlebox_widget): Remove.
2014-10-18 16:19:53 +00:00
|
|
|
|
("etc/images/info" . ("dialog-information" "gtk-info"))
|
2008-03-06 10:59:27 +00:00
|
|
|
|
("etc/images/bookmark_add" . "n:bookmark_add")
|
2007-09-30 11:25:08 +00:00
|
|
|
|
;; Used in Gnus and/or MH-E:
|
2008-02-25 10:50:20 +00:00
|
|
|
|
("etc/images/attach" . "gtk-attach")
|
|
|
|
|
|
("etc/images/connect" . "gtk-connect")
|
|
|
|
|
|
("etc/images/contact" . "gtk-contact")
|
Handle deprecated Gtk+ stuff for version <= 3.10
* lisp/term/x-win.el (x-gtk-stock-map): Add icon names suggested as
replacements to stock names before stock names in a list.
Cdr may be a list, each name is tried in turn until one is found.
* src/gtkutil.c (XG_TEXT_CANCEL, XG_TEXT_OPEN, XG_TEXT_OK): New defines
to handle Gtk versions.
(xg_get_file_with_chooser): Use them.
(xg_have_tear_offs, tearoff_remove, tearoff_activate): Remove
(create_menus): Remove teroff argument and code.
Remove call to gtk_menu_set_title.
(xg_update_menubar, xg_update_submenu): Remove tearoff code. Adjust
args to create_menus.
(xg_tool_bar_menu_proxy, xg_tool_bar_detach_callback)
(xg_tool_bar_attach_callback, TOOLBAR_TOP_WIDGET): Remove.
(xg_pack_tool_bar): Replace TOOLBAR_TOP_WIDGET, remove detach code.
(xg_make_tool_item): Remove detach code.
(xg_update_tool_bar_sizes): Replace TOOLBAR_TOP_WIDGET.
(find_icon_from_name): New function.
(update_frame_tool_bar): Remove GtkStockItem code, move to
find_icon_from_name. Let stock be a list of icon names to try.
Only use gtk_image_new_from_stock on Gtk+ < 3.10.
Replace TOOLBAR_TOP_WIDGET.
(free_frame_tool_bar, xg_change_toolbar_position ): Replace
TOOLBAR_TOP_WIDGET.
(xg_initialize): Remove tearoff code.
* src/gtkutil.h (xg_have_tear_offs): Remove declaration.
* src/xmenu.c (set_frame_menubar): Remove GTK block that calls
xg_have_tear_offs.
* src/xterm.h (handlebox_widget): Remove.
2014-10-18 16:19:53 +00:00
|
|
|
|
("etc/images/delete" . ("edit-delete" "gtk-delete"))
|
2015-12-24 08:46:01 +00:00
|
|
|
|
("etc/images/describe" . ("document-properties" "gtk-properties"))
|
2008-02-25 10:50:20 +00:00
|
|
|
|
("etc/images/disconnect" . "gtk-disconnect")
|
|
|
|
|
|
;; ("etc/images/exit" . "gtk-exit")
|
|
|
|
|
|
("etc/images/lock-broken" . "gtk-lock_broken")
|
|
|
|
|
|
("etc/images/lock-ok" . "gtk-lock_ok")
|
|
|
|
|
|
("etc/images/lock" . "gtk-lock")
|
|
|
|
|
|
("etc/images/next-page" . "gtk-next-page")
|
Handle deprecated Gtk+ stuff for version <= 3.10
* lisp/term/x-win.el (x-gtk-stock-map): Add icon names suggested as
replacements to stock names before stock names in a list.
Cdr may be a list, each name is tried in turn until one is found.
* src/gtkutil.c (XG_TEXT_CANCEL, XG_TEXT_OPEN, XG_TEXT_OK): New defines
to handle Gtk versions.
(xg_get_file_with_chooser): Use them.
(xg_have_tear_offs, tearoff_remove, tearoff_activate): Remove
(create_menus): Remove teroff argument and code.
Remove call to gtk_menu_set_title.
(xg_update_menubar, xg_update_submenu): Remove tearoff code. Adjust
args to create_menus.
(xg_tool_bar_menu_proxy, xg_tool_bar_detach_callback)
(xg_tool_bar_attach_callback, TOOLBAR_TOP_WIDGET): Remove.
(xg_pack_tool_bar): Replace TOOLBAR_TOP_WIDGET, remove detach code.
(xg_make_tool_item): Remove detach code.
(xg_update_tool_bar_sizes): Replace TOOLBAR_TOP_WIDGET.
(find_icon_from_name): New function.
(update_frame_tool_bar): Remove GtkStockItem code, move to
find_icon_from_name. Let stock be a list of icon names to try.
Only use gtk_image_new_from_stock on Gtk+ < 3.10.
Replace TOOLBAR_TOP_WIDGET.
(free_frame_tool_bar, xg_change_toolbar_position ): Replace
TOOLBAR_TOP_WIDGET.
(xg_initialize): Remove tearoff code.
* src/gtkutil.h (xg_have_tear_offs): Remove declaration.
* src/xmenu.c (set_frame_menubar): Remove GTK block that calls
xg_have_tear_offs.
* src/xterm.h (handlebox_widget): Remove.
2014-10-18 16:19:53 +00:00
|
|
|
|
("etc/images/refresh" . ("view-refresh" "gtk-refresh"))
|
|
|
|
|
|
("etc/images/sort-ascending" . ("view-sort-ascending" "gtk-sort-ascending"))
|
2008-02-25 10:50:20 +00:00
|
|
|
|
("etc/images/sort-column-ascending" . "gtk-sort-column-ascending")
|
|
|
|
|
|
("etc/images/sort-criteria" . "gtk-sort-criteria")
|
Handle deprecated Gtk+ stuff for version <= 3.10
* lisp/term/x-win.el (x-gtk-stock-map): Add icon names suggested as
replacements to stock names before stock names in a list.
Cdr may be a list, each name is tried in turn until one is found.
* src/gtkutil.c (XG_TEXT_CANCEL, XG_TEXT_OPEN, XG_TEXT_OK): New defines
to handle Gtk versions.
(xg_get_file_with_chooser): Use them.
(xg_have_tear_offs, tearoff_remove, tearoff_activate): Remove
(create_menus): Remove teroff argument and code.
Remove call to gtk_menu_set_title.
(xg_update_menubar, xg_update_submenu): Remove tearoff code. Adjust
args to create_menus.
(xg_tool_bar_menu_proxy, xg_tool_bar_detach_callback)
(xg_tool_bar_attach_callback, TOOLBAR_TOP_WIDGET): Remove.
(xg_pack_tool_bar): Replace TOOLBAR_TOP_WIDGET, remove detach code.
(xg_make_tool_item): Remove detach code.
(xg_update_tool_bar_sizes): Replace TOOLBAR_TOP_WIDGET.
(find_icon_from_name): New function.
(update_frame_tool_bar): Remove GtkStockItem code, move to
find_icon_from_name. Let stock be a list of icon names to try.
Only use gtk_image_new_from_stock on Gtk+ < 3.10.
Replace TOOLBAR_TOP_WIDGET.
(free_frame_tool_bar, xg_change_toolbar_position ): Replace
TOOLBAR_TOP_WIDGET.
(xg_initialize): Remove tearoff code.
* src/gtkutil.h (xg_have_tear_offs): Remove declaration.
* src/xmenu.c (set_frame_menubar): Remove GTK block that calls
xg_have_tear_offs.
* src/xterm.h (handlebox_widget): Remove.
2014-10-18 16:19:53 +00:00
|
|
|
|
("etc/images/sort-descending" . ("view-sort-descending"
|
|
|
|
|
|
"gtk-sort-descending"))
|
2008-02-25 10:50:20 +00:00
|
|
|
|
("etc/images/sort-row-ascending" . "gtk-sort-row-ascending")
|
|
|
|
|
|
("images/gnus/toggle-subscription" . "gtk-task-recurring")
|
|
|
|
|
|
("images/mail/compose" . "gtk-mail-compose")
|
|
|
|
|
|
("images/mail/copy" . "gtk-mail-copy")
|
|
|
|
|
|
("images/mail/forward" . "gtk-mail-forward")
|
|
|
|
|
|
("images/mail/inbox" . "gtk-inbox")
|
|
|
|
|
|
("images/mail/move" . "gtk-mail-move")
|
|
|
|
|
|
("images/mail/not-spam" . "gtk-not-spam")
|
|
|
|
|
|
("images/mail/outbox" . "gtk-outbox")
|
|
|
|
|
|
("images/mail/reply-all" . "gtk-mail-reply-to-all")
|
|
|
|
|
|
("images/mail/reply" . "gtk-mail-reply")
|
|
|
|
|
|
("images/mail/save-draft" . "gtk-mail-handling")
|
|
|
|
|
|
("images/mail/send" . "gtk-mail-send")
|
|
|
|
|
|
("images/mail/spam" . "gtk-spam")
|
2009-12-30 13:19:53 +00:00
|
|
|
|
;; Used for GDB Graphical Interface
|
|
|
|
|
|
("images/gud/break" . "gtk-no")
|
Handle deprecated Gtk+ stuff for version <= 3.10
* lisp/term/x-win.el (x-gtk-stock-map): Add icon names suggested as
replacements to stock names before stock names in a list.
Cdr may be a list, each name is tried in turn until one is found.
* src/gtkutil.c (XG_TEXT_CANCEL, XG_TEXT_OPEN, XG_TEXT_OK): New defines
to handle Gtk versions.
(xg_get_file_with_chooser): Use them.
(xg_have_tear_offs, tearoff_remove, tearoff_activate): Remove
(create_menus): Remove teroff argument and code.
Remove call to gtk_menu_set_title.
(xg_update_menubar, xg_update_submenu): Remove tearoff code. Adjust
args to create_menus.
(xg_tool_bar_menu_proxy, xg_tool_bar_detach_callback)
(xg_tool_bar_attach_callback, TOOLBAR_TOP_WIDGET): Remove.
(xg_pack_tool_bar): Replace TOOLBAR_TOP_WIDGET, remove detach code.
(xg_make_tool_item): Remove detach code.
(xg_update_tool_bar_sizes): Replace TOOLBAR_TOP_WIDGET.
(find_icon_from_name): New function.
(update_frame_tool_bar): Remove GtkStockItem code, move to
find_icon_from_name. Let stock be a list of icon names to try.
Only use gtk_image_new_from_stock on Gtk+ < 3.10.
Replace TOOLBAR_TOP_WIDGET.
(free_frame_tool_bar, xg_change_toolbar_position ): Replace
TOOLBAR_TOP_WIDGET.
(xg_initialize): Remove tearoff code.
* src/gtkutil.h (xg_have_tear_offs): Remove declaration.
* src/xmenu.c (set_frame_menubar): Remove GTK block that calls
xg_have_tear_offs.
* src/xterm.h (handlebox_widget): Remove.
2014-10-18 16:19:53 +00:00
|
|
|
|
("images/gud/recstart" . ("media-record" "gtk-media-record"))
|
|
|
|
|
|
("images/gud/recstop" . ("media-playback-stop" "gtk-media-stop"))
|
2007-09-30 11:25:08 +00:00
|
|
|
|
;; No themed versions available:
|
2008-02-25 10:50:20 +00:00
|
|
|
|
;; mail/preview (combining stock_mail and stock_zoom)
|
|
|
|
|
|
;; mail/save (combining stock_mail, stock_save and stock_convert)
|
2009-11-11 05:49:09 +00:00
|
|
|
|
))
|
2007-08-28 10:16:00 +00:00
|
|
|
|
"How icons for tool bars are mapped to Gtk+ stock items.
|
2007-09-02 16:51:22 +00:00
|
|
|
|
Emacs must be compiled with the Gtk+ toolkit for this to have any effect.
|
|
|
|
|
|
A value that begins with n: denotes a named icon instead of a stock icon."
|
2007-09-29 16:23:59 +00:00
|
|
|
|
:version "22.2"
|
Handle deprecated Gtk+ stuff for version <= 3.10
* lisp/term/x-win.el (x-gtk-stock-map): Add icon names suggested as
replacements to stock names before stock names in a list.
Cdr may be a list, each name is tried in turn until one is found.
* src/gtkutil.c (XG_TEXT_CANCEL, XG_TEXT_OPEN, XG_TEXT_OK): New defines
to handle Gtk versions.
(xg_get_file_with_chooser): Use them.
(xg_have_tear_offs, tearoff_remove, tearoff_activate): Remove
(create_menus): Remove teroff argument and code.
Remove call to gtk_menu_set_title.
(xg_update_menubar, xg_update_submenu): Remove tearoff code. Adjust
args to create_menus.
(xg_tool_bar_menu_proxy, xg_tool_bar_detach_callback)
(xg_tool_bar_attach_callback, TOOLBAR_TOP_WIDGET): Remove.
(xg_pack_tool_bar): Replace TOOLBAR_TOP_WIDGET, remove detach code.
(xg_make_tool_item): Remove detach code.
(xg_update_tool_bar_sizes): Replace TOOLBAR_TOP_WIDGET.
(find_icon_from_name): New function.
(update_frame_tool_bar): Remove GtkStockItem code, move to
find_icon_from_name. Let stock be a list of icon names to try.
Only use gtk_image_new_from_stock on Gtk+ < 3.10.
Replace TOOLBAR_TOP_WIDGET.
(free_frame_tool_bar, xg_change_toolbar_position ): Replace
TOOLBAR_TOP_WIDGET.
(xg_initialize): Remove tearoff code.
* src/gtkutil.h (xg_have_tear_offs): Remove declaration.
* src/xmenu.c (set_frame_menubar): Remove GTK block that calls
xg_have_tear_offs.
* src/xterm.h (handlebox_widget): Remove.
2014-10-18 16:19:53 +00:00
|
|
|
|
:type '(choice (repeat
|
|
|
|
|
|
(choice symbol
|
|
|
|
|
|
(cons (string :tag "Emacs icon")
|
|
|
|
|
|
(choice (group (string :tag "Named")
|
|
|
|
|
|
(string :tag "Stock"))
|
|
|
|
|
|
(string :tag "Stock/named"))))))
|
2007-08-28 10:16:00 +00:00
|
|
|
|
:group 'x)
|
|
|
|
|
|
|
2007-09-30 11:25:08 +00:00
|
|
|
|
(defcustom icon-map-list '(x-gtk-stock-map)
|
2010-01-18 04:39:40 +00:00
|
|
|
|
"A list of alists that map icon file names to stock/named icons.
|
2007-09-02 16:51:22 +00:00
|
|
|
|
The alists are searched in the order they appear. The first match is used.
|
|
|
|
|
|
The keys in the alists are file names without extension and with two directory
|
|
|
|
|
|
components. For example, to map /usr/share/emacs/22.1.1/etc/images/open.xpm
|
|
|
|
|
|
to stock item gtk-open, use:
|
|
|
|
|
|
|
|
|
|
|
|
(\"etc/images/open\" . \"gtk-open\")
|
|
|
|
|
|
|
|
|
|
|
|
Themes also have named icons. To map to one of those, use n: before the name:
|
|
|
|
|
|
|
|
|
|
|
|
(\"etc/images/diropen\" . \"n:system-file-manager\")
|
|
|
|
|
|
|
2007-09-30 11:25:08 +00:00
|
|
|
|
The list elements are either the symbol name for the alist or the
|
|
|
|
|
|
alist itself.
|
|
|
|
|
|
|
|
|
|
|
|
If you don't want stock icons, set the variable to nil."
|
|
|
|
|
|
:version "22.2"
|
|
|
|
|
|
:type '(choice (const :tag "Don't use stock icons" nil)
|
|
|
|
|
|
(repeat (choice symbol
|
|
|
|
|
|
(cons (string :tag "Emacs icon")
|
|
|
|
|
|
(string :tag "Stock/named")))))
|
|
|
|
|
|
:group 'x)
|
2007-09-02 16:51:22 +00:00
|
|
|
|
|
2008-11-29 06:52:31 +00:00
|
|
|
|
(defconst x-gtk-stock-cache (make-hash-table :weakness t :test 'equal))
|
|
|
|
|
|
|
2007-08-28 10:16:00 +00:00
|
|
|
|
(defun x-gtk-map-stock (file)
|
2008-11-29 06:52:31 +00:00
|
|
|
|
"Map icon with file name FILE to a Gtk+ stock name.
|
|
|
|
|
|
This uses `icon-map-list' to map icon file names to stock icon names."
|
|
|
|
|
|
(when (stringp file)
|
|
|
|
|
|
(or (gethash file x-gtk-stock-cache)
|
|
|
|
|
|
(puthash
|
|
|
|
|
|
file
|
|
|
|
|
|
(save-match-data
|
|
|
|
|
|
(let* ((file-sans (file-name-sans-extension file))
|
|
|
|
|
|
(key (and (string-match "/\\([^/]+/[^/]+/[^/]+$\\)"
|
|
|
|
|
|
file-sans)
|
|
|
|
|
|
(match-string 1 file-sans)))
|
|
|
|
|
|
(icon-map icon-map-list)
|
|
|
|
|
|
elem value)
|
|
|
|
|
|
(while (and (null value) icon-map)
|
|
|
|
|
|
(setq elem (car icon-map)
|
|
|
|
|
|
value (assoc-string (or key file-sans)
|
|
|
|
|
|
(if (symbolp elem)
|
|
|
|
|
|
(symbol-value elem)
|
|
|
|
|
|
elem))
|
|
|
|
|
|
icon-map (cdr icon-map)))
|
|
|
|
|
|
(and value (cdr value))))
|
|
|
|
|
|
x-gtk-stock-cache))))
|
2007-08-28 10:16:00 +00:00
|
|
|
|
|
2013-12-30 23:27:07 +00:00
|
|
|
|
(global-set-key [XF86WakeUp] 'ignore)
|
|
|
|
|
|
|
2007-08-31 15:39:18 +00:00
|
|
|
|
(provide 'x-win)
|
Provide 'term/name in lisp/term files.
* lisp/term/AT386.el, lisp/term/bobcat.el, lisp/term/cygwin.el:
* lisp/term/internal.el, lisp/term/iris-ansi.el, lisp/term/linux.el:
* lisp/term/lk201.el, lisp/term/news.el, lisp/term/ns-win.el:
* lisp/term/pc-win.el, lisp/term/rxvt.el, lisp/term/screen.el:
* lisp/term/sun.el, lisp/term/tty-colors.el, lisp/term/tvi970.el:
* lisp/term/vt100.el, lisp/term/vt200.el, lisp/term/w32-win.el:
* lisp/term/w32console.el, lisp/term/wyse50.el, lisp/term/x-win.el:
For consistency, provide 'term/name in all files that don't already.
2016-02-16 05:59:40 +00:00
|
|
|
|
(provide 'term/x-win)
|
2006-05-29 07:16:54 +00:00
|
|
|
|
|
1993-03-12 19:53:22 +00:00
|
|
|
|
;;; x-win.el ends here
|