Mercurial > emacs
view build-ins.in @ 23681:af0276da2059
(Vw32_pass_optional_keys_to_system): Variable removed.
(Vw32_pass_lwindow_to_system):
(Vw32_pass_rwindow_to_system):
(Vw32_lwindow_modifier):
(Vw32_rwindow_modifier):
(Vw32_apps_modifier):
(Vw32_enable_num_lock):
(Vw32_enable_caps_lock):
(Vw32_scroll_lock_modifier): New variables.
(modifier_set): Return toggle state for Scroll Lock.
(w32_key_to_modifier): New function. Returns chosen modifier bit
for given key.
(w32_get_modifiers): Returns modifier flags for
non-keyboard input events.
(construct_console_modifiers): Renamed from construct_modifiers;
recognize Windows and Apps keys as modifiers.
(w32_get_key_modifiers): New function. Returns modifier flags for
keyboard input events.
(map_keypad_keys): Make non-static. Use second arg as extended
flag.
(w32_grabbed_keys): New variable.
(HOTKEY, HOTKEY_ID, HOTKEY_VK_CODE, HOTKEY_MODIFIERS): New macros.
(register_hot_keys):
(unregister_hot_keys):
(lookup_vk_code):
(w32_parse_hot_key):
(Fw32_register_hot_key):
(Fw32_unregister_hot_key):
(Fw32_registered_hot_keys):
(Fw32_reconstruct_hot_key): New functions to support hotkeys.
(post_character_message): New function.
(w32_msg_pump): Handle new messages for using hotkeys and changing
keyboard layout/language.
(w32_wnd_proc): Major rework of keyboard input handling:
optionally recognize Windows keys and Apps key as modifiers;
optionally treat NumLock, CapsLock and ScrollLock as function
keys; let system translate keystrokes to characters to avoid
system bugs relating to dead-key handling; preserve shift
distinction for control characters; forward keyboard
layout/language changes to lisp; detect and convert hot-key events
to normal keystrokes.
(syms_of_w32fns): Register new functions and variables.
(w32_last_error): New function for use in debugging.
author | Geoff Voelker <voelker@cs.washington.edu> |
---|---|
date | Tue, 10 Nov 1998 20:54:46 +0000 |
parents | 1541c518f769 |
children |
line wrap: on
line source
#!/bin/sh -x # #Shell script for building and installing Emacs. # ==================== Where To Install Things ==================== # The default location for installation. Everything is placed in # subdirectories of this directory. This directory must exist when # you start installation. The default values for many of the # variables below are expressed in terms of this one, so you may not # need to change them. prefix=/usr/local # Where to install Emacs and other binaries that people will want to # run directly (like etags). bindir=${prefix}/bin # A directory under which we will install many of Emacs's files. The # default values for many of the variables below are expressed in # terms of this one, so you may not need to change them. emacsdir=${prefix}/emacs-19.0 # Where to install and expect the architecture-independent data files # (like the tutorial and the Zippy database). datadir=${emacsdir}/etc # Where to install the elisp files distributed with Emacs. Strictly # speaking, all the elisp files should go under datadir (above), since # both elisp source and compiled elisp are completely portable, but # it's traditional to give the lisp files their own subdirectory. lispdir=${emacsdir}/lisp # Directories Emacs should search for elisp files specific to this # site (i.e. customizations), before consulting ${lispdir}. This # should be a colon-separated list of directories. locallisppath=${emacsdir}/local-lisp # Where Emacs will search to find its elisp files. Before changing # this, check to see if your purpose wouldn't better be served by # changing locallisppath. This should be a colon-separated list of # directories. lisppath=${locallisppath}:${lispdir} # Where Emacs will search for its elisp files before dumping. This is # only used during the process of compiling Emacs, to help Emacs find # its lisp files before they've been installed in their final # location. It's usually identical to lisppath, except that the entry # for the directory containing the installed lisp files has been # replaced with ../lisp. This should be a colon-separated list of # directories. dumplisppath=../lisp # Where to install and expect the files that Emacs modifies as it # runs. These files are all architecture-independent. Right now, # the only such data is the locking directory. statedir=${emacsdir} # Where to create and expect the locking directory, where the Emacs # locking code keeps track of which files are currently being edited. lockdir=${statedir}/lock # Where to install and expect executable files to be run by Emacs # rather than directly by users, and other architecture-dependent # data. libdir=${emacsdir}/arch-lib # Where to install Emacs's man pages. mandir=/usr/man/man1 # Where to install and expect the info files describing Emacs. In the # past, this defaulted to a subdirectory of ${prefix}/lib/emacs, but # since there are now many packages documented with the texinfo # system, it is inappropriate to imply that it is part of Emacs. infodir=${prefix}/info removenullpaths="sed -e 's/^://' -e 's/:"'$'"//' -e 's/::/:/'" lisppath=`echo ${lisppath} | ${removenullpaths}` ; \ dumplisppath=`echo ${dumplisppath} | ${removenullpaths}` ; \ /bin/sed < src/paths.h.in > src/paths.h \ -e 's;\(#.*PATH_LOADSEARCH\).*$$;\1 "'$${lisppath}'";' \ -e 's;\(#.*PATH_DUMPLOADSEARCH\).*$$;\1 "'$${dumplisppath}'";' \ -e 's;\(#.*PATH_EXEC\).*$$;\1 "${libdir}";' \ -e 's;\(#.*PATH_DATA\).*$$;\1 "${datadir}";' \ -e 's;\(#.*PATH_LOCK\).*$$;\1 "${lockdir}/";' (cd lib-src; make) || exit 1 (cd src; make) || exit 1 # Subdirectories to install, and where they'll go. copydir=arch-lib etc info lisp copydests=${libdir} ${datadir} ${infodir} ${lispdir} # If any of the directories are below ${emacsdir} or ${statedir}, create them. for dir in ${copydests}; do case "${dir}" in ${emacsdir}/* ) if [ ! -d ${emacsdir} ]; then mkdir ${emacsdir} chmod 777 ${emacsdir} fi ;; ${statedir}/* ) if [ ! -d ${statedir} ]; then mkdir ${statedir} chmod 777 ${statedir} fi ;; esac done set ${copydests} for dir in ${copydir} ; do dest=$1 ; shift mv ${dir} ${dest} if [ $? != 0 ]; then echo mv ${dir} to ${dest} failed -- using tar to copy. if [ `/bin/pwd`/${dir} != `(cd ${dest}; /bin/pwd)` ] ; then (cd ${dir}; tar cf - . ) | (cd ${dest}; umask 0; tar xf - ) if [ $? != 0 ]; then echo "tar-copying ${dir} to ${dest} failed too. I give up." exit 1 fi for subdir in `find ${dest} -type d ! -name RCS -print` ; do rm -rf ${subdir}/RCS rm -f ${subdir}/\#* rm -f ${subdir}/*~ done fi fi done cp ${libdir}/[ce]tags ${bindir} mv src/emacs ${BINDIR}/emacs rm src/temacs chmod 777 ${bindir}/[ce]tags ${bindir}/emacs