Mercurial > hg > xemacs-beta

comparison lisp/simple.el @ 1261:465bd3c7d932

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2003-02-06 06:35:47 by ben] various bug fixes mule/cyril-util.el: Fix compile warning. loadup.el, make-docfile.el, update-elc-2.el, update-elc.el: Set stack-trace-on-error, load-always-display-messages so we get better debug results. update-elc-2.el: Fix typo in name of lisp/mule, leading to compile failure. simple.el: Omit M-S-home/end from motion keys. update-elc.el: Overhaul: -- allow list of "early-compile" files to be specified, not hardcoded -- fix autoload checking to include all .el files, not just dumped ones -- be smarter about regenerating autoloads, so we don't need to use loadup-el if not necessary -- use standard methods for loading/not loading auto-autoloads.el (maybe fixes "Already loaded" error?) -- rename misleading NOBYTECOMPILE flag file. window-xemacs.el: Fix bug in default param. window-xemacs.el: Fix compile warnings. lwlib-Xm.c: Fix compile warning. lispref/mule.texi: Lots of Mule rewriting. internals/internals.texi: Major fixup. Correct for new names of Bytebpos, Ichar, etc. and lots of Mule rewriting. config.inc.samp: Various fixups. Makefile.in.in: NOBYTECOMPILE -> BYTECOMPILE_CHANGE. esd.c: Warning fixes. fns.c: Eliminate bogus require-prints-loading-message; use already existent load-always-display-messages instead. Make sure `load' knows we are coming from `require'. lread.c: Turn on `load-warn-when-source-newer' by default. Change loading message to indicate when we are `require'ing. Eliminate purify_flag hacks to display more messages; instead, loadup and friends specify this explicitly with `load-always-display-messages'. Add spaces when batch to clearly indicate recursive loading. Fassoc() does not GC so no need to gcpro. gui-x.c, gui-x.h, menubar-x.c: Fix up crashes when selecting menubar items due to lack of GCPROing of callbacks in lwlib structures. eval.c, lisp.h, print.c: Don't canonicalize to selected-frame when noninteractive, or backtraces get all screwed up as some values are printed through the stream console and some aren't. Export canonicalize_printcharfun() and use in Fbacktrace().
author ben
date Thu, 06 Feb 2003 06:36:17 +0000
parents 4cbfb36b35e0
children 1b0339b048ce
comparison
equal deleted inserted replaced
1260:278c9cd3435e 1261:465bd3c7d932
1 ;;; simple.el --- basic editing commands for XEmacs 1 ;;; simple.el --- basic editing commands for XEmacs
2 2
3 ;; Copyright (C) 1985-7, 1993-5, 1997 Free Software Foundation, Inc. 3 ;; Copyright (C) 1985-7, 1993-5, 1997 Free Software Foundation, Inc.
4 ;; Copyright (C) 1995 Tinker Systems and INS Engineering Corp. 4 ;; Copyright (C) 1995 Tinker Systems and INS Engineering Corp.
5 ;; Copyright (C) 2000, 2001, 2002 Ben Wing. 5 ;; Copyright (C) 2000, 2001, 2002, 2003 Ben Wing.
6 6
7 ;; Maintainer: XEmacs Development Team 7 ;; Maintainer: XEmacs Development Team
8 ;; Keywords: lisp, extensions, internal, dumped 8 ;; Keywords: lisp, extensions, internal, dumped
9 9
10 ;; This file is part of XEmacs. 10 ;; This file is part of XEmacs.
1997 nil." 1997 nil."
1998 :type 'boolean 1998 :type 'boolean
1999 :group 'editing-basics) 1999 :group 'editing-basics)
2000 2000
2001 (defcustom motion-keys-for-shifted-motion 2001 (defcustom motion-keys-for-shifted-motion
2002 '(left right up down home end prior next 2002 ;; meta-shift-home/end are NOT shifted motion commands.
2003 kp-left kp-right kp-up kp-down kp-home kp-end kp-prior kp-next) 2003 '(left right up down (home) (control home) (meta control home)
2004 (end) (control end) (meta control end) prior next
2005 kp-left kp-right kp-up kp-down (kp-home) (control kp-home)
2006 (meta control kp-home) (kp-end) (control kp-end) (meta control kp-end)
2007 kp-prior kp-next)
2004 "*List of keys considered motion keys for the purpose of shifted selection. 2008 "*List of keys considered motion keys for the purpose of shifted selection.
2005 When one of these keys is pressed along with the Shift key, and the 2009 When one of these keys is pressed along with the Shift key, and the
2006 command invoked moves the cursor and preserves the active region (see 2010 command invoked moves the cursor and preserves the active region (see
2007 `zmacs-region-stays'), the intervening text will be added to the active 2011 `zmacs-region-stays'), the intervening text will be added to the active
2008 region. See `shifted-motion-keys-select-region' for more details. 2012 region. See `shifted-motion-keys-select-region' for more details.
2019 not make much sense with those keys. The keysym can, however, be an 2023 not make much sense with those keys. The keysym can, however, be an
2020 alphabetic key without problem, and you can specify the key using 2024 alphabetic key without problem, and you can specify the key using
2021 either a character or a symbol, uppercase or lowercase." 2025 either a character or a symbol, uppercase or lowercase."
2022 :type '(repeat (choice (const :tag "normal cursor-pad (\"gray\") keys" 2026 :type '(repeat (choice (const :tag "normal cursor-pad (\"gray\") keys"
2023 :inline t 2027 :inline t
2024 (left right up down home end prior next)) 2028 (left
2029 right up down
2030 (home) (control home) (meta control home)
2031 (end) (control end) (meta control end)
2032 prior next))
2025 (const :tag "keypad motion keys" 2033 (const :tag "keypad motion keys"
2026 :inline t 2034 :inline t
2027 (kp-left kp-right kp-up kp-down 2035 (kp-left
2028 kp-home kp-end kp-prior kp-next)) 2036 kp-right kp-up kp-down
2037 (kp-home) (control kp-home)
2038 (meta control kp-home)
2039 (kp-end) (control kp-end)
2040 (meta control kp-end)
2041 kp-prior kp-next))
2029 (const :tag "alphabetic motion keys" 2042 (const :tag "alphabetic motion keys"
2030 :inline t 2043 :inline t
2031 ((control b) (control f) 2044 ((control b) (control f)
2032 (control p) (control n) 2045 (control p) (control n)
2033 (control a) (control e) 2046 (control a) (control e)