Mercurial > hg > xemacs-beta
view lisp/check-features.el @ 5639:1d1f385c9149
Call XKeysymToString() much less, it leaks.
src/ChangeLog addition:
2012-01-08 Aidan Kehoe <kehoea@parhasard.net>
* device-x.c:
* device-x.c (syms_of_device_x):
Move #'x-keysym-on-keyboard{,-sans-modifiers}-p to Lisp, the hash
table no longer stores the X keysyms, so we need to manipulate any
strings we have been handed.
* event-Xt.c (x_has_keysym):
Don't call XKeysymToString() here, it leaks; trust
x_keysym_to_emacs_keysym() instead.
* event-Xt.c (x_keysym_to_emacs_keysym):
No longer leak when looking up the strings for keysyms of the form
UABCD.
lisp/ChangeLog addition:
2012-01-08 Aidan Kehoe <kehoea@parhasard.net>
* x-init.el:
* x-init.el (pseudo-canonicalize-keysym): New.
* x-init.el: Move #'x-keysym-on-keyboard-sans-modifiers-p,
#'x-keysym-on-keyboard-p here from device-x.c, some string
manipulation it now needs to do is far easier in Lisp.
* x-win-xfree86.el:
* x-win-xfree86.el (x-win-init-xfree86):
No longer call #'x-keysym-on-keyboard{,-sans-modifiers}-p,
implement it ourselves cheaply.
author | Aidan Kehoe <kehoea@parhasard.net> |
---|---|
date | Sun, 08 Jan 2012 20:41:37 +0000 |
parents | 308d34e9f07d |
children |
line wrap: on
line source
;;; check-features.el --- Do a sanity check on an XEmacs build ;; Copyright (C) 1998 by Free Software Foundation, Inc. ;; Copyright (C) 2002 Ben Wing. ;; Author: SL Baur <steve@xemacs.org> ;; Keywords: internal ;; This file is part of XEmacs. ;; XEmacs is free software: you can redistribute it and/or modify it ;; under the terms of the GNU General Public License as published by the ;; Free Software Foundation, either version 3 of the License, or (at your ;; option) any later version. ;; XEmacs 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 ;; along with XEmacs. If not, see <http://www.gnu.org/licenses/>. ;;; Synched up with: Not in FSF ;;; Commentary: ;; This file is executed after a build to check that all lisp packages that ;; need to be installed are. ;;; Code: (require 'packages) (defvar build-error 0) (when (featurep 'tooltalk) (condition-case nil (package-require 'tooltalk 1.0) (t (progn ;; (setq build-error 1) (lwarn 'tooltalk 'alert "Warning: This XEmacs is built with tooltalk support but does not have a tooltalk package installed. Without the tooltalk lisp package, Tooltalk support is broken."))))) (when (featurep 'sparcworks) (condition-case nil (package-require 'Sun 1.0) (t (progn ;; (setq build-error 1) (lwarn 'sparcworks 'alert "Warning: This XEmacs is built with sparcworks support but does not have the Sun package installed. Without the Sun lisp package, Sparcworks support will be broken."))))) (kill-emacs build-error) ;;; check-features.el ends here