comparison lisp/behavior-defs.el @ 502:7039e6323819

[xemacs-hg @ 2001-05-04 22:41:46 by ben] ----------------------- byte-comp warning fixes ----------------- New functions for cleanly eliminating byte-compiler warnings. Their definitions require no changes at all in bytecomp.el, meaning that any package that wants to use them and be compatible with older versions of XEmacs need only copy the code and rename the functions (i.e. prefix them with the package name). Eliminate byte-compiler warnings using the new functions in bytecomp-runtime.el. Move coding-system-put,get,category, since they're not Mule-specific and are used in prefer-coding-system. font.el was incredibly ugly. Clean it up. Avoid using defsubst for any exported functions, to avoid possible compatibility problems if we later change the internal interface. (It happened before, with face accessors, between 19.8 and 19.9). Fix tons of warnings. Clean up (new function gpm-is-supported-p eliminates duplicate code in gpm-create/delete-device-hook) and eliminate warnings. ---------- make byte-recompile-directory work in the --------- core `lisp' dir, even in the absence of a Mule XEmacs (i.e. make it skip the Mule files rather than trying to compile them). now you should be able to do `touch *.el' in the `lisp' dir, then M-x byte-recompile-directory, and get no warnings. Avoid trying to compile Mule files in byte-recompile-directory when we're not in a Mule XEmacs, since we're highly likely to get syntax errors. Add a coding-system cookie to all Mule files so that byte-recompile-directory ignores them. Magic cookie function moved to files.el from code-files.el (for use by bytecomp even in a non-coding-system XEmacs), and changed names and semantics for use by bytecomp. NOTE: IMO this is an internal function that we can change as we like (and there is absolutely no code anywhere else using the function). ---------------- GUI improvements: menus, help ------------------- Rearrange order of keymap declarations to be alphabetical. Improve help on help to include all bindings, and group by category. Add bindings for new Info commands. Remove warnings. Use command-hyper-apropos in place of command-apropos. Add a function to do the equivalent of command-apropos. Evals its help-text argument so you can put expressions there. Used now by help-for-help. Add binding to continue text searches. Expand index searches to work over multiple info documents. Add commands to search text/index in User and Lispref. Add new entry, "Uncomment Region" (parallels "Comment Out Region"). Redo Help menu; add bindings for new Info commands to search the index or text of the User and Lispref manuals. Add command for mark-paragraph, activate-region. Make Edit->R accelerator be rectangle, not register (more commonly used), and put rectangle first. Fix the Edit Init File entry to never load the .elc file. Simplify the default-popup-menu. Add Cmds->Tabs menu. Use kp-left not kp_left, etc. ---------------- Miscellaneous bug fixes/cleanup ------------------- byte-compiler-options: Correct doc string. easy-menu-do-define: fix extra quote. fill-paragraph-or-region:Rewrite to be more correct -- use call-interactively so that we always get exactly the same behavior as if the functions were called directly. No need to fiddle with zmacs-region-stays, now that bogus clearing of it (2001-04-28 src/ChangeLog) is removed. Put dialog titles back in -- this time correctly. Fix various other problems with leaks and such. key-sequence-list-description: Clean up fun to always correctly canonicalize. Clean up Kinsoku comments, synch comment-region with FSF 20.7. * simple.el (region-exists-p): * simple.el (region-active-p): Add comment about which one is correct to use in menu specs. * sound.el (load-sound-file): Minor code clean up. * startup.el: * startup.el (command-line-early): * startup.el (initial-scratch-message): Comment changes. Add info about sample.init.el to splash screen. Improve initial-scratch-message and clarify purpose of Scratch buffer. Fix byte-compile warning. ------------------------ Added features ------------------------- Add new variable to control whether etags checks all parent directories for tag files. (On by default.) * hash-table.el: New file, useful utility functions. * dumped-lisp.el (preloaded-file-list): Dump hash-table.el. ------------ notable bug fix: Windows event code -------------- Get critical quit working. ------------ notable bug fix and new feature: regex code -------------- Shy groups were implemented in a horrible, half-assed way that would cause them to screw up regex searching in most cases. Fixed to work correctly. Also extended back-reference syntax past 9. Only is recognized as such if there are at least that many non-shy groups; and optionally will warn about such uses, to catch old code that might be using them differently. (Added variable to control this in search.c -- `warn-about-possibly-incompatible-back- references', on by default for the moment. Declared in lisp.h. ---------------- process/SIGIO improvements ------------------- define USE_GETADDRINFO to replace more complex conditional, and use it. the code conditionalized on this in unix_open_network_stream had *serious* problems handling errors. it's now fixed, and major amounts of duplicate code between the two versions were combined. don't disable SIGIO and other interrupts unless CONNECT_NEEDS_SLOWED_INTERRUPTS is defined -- don't penalize OS's without bugs. similarly for a freebsd bug that was affecting all OS's. * s\ultrix.h: define CONNECT_NEEDS_SLOWED_INTERRUPTS, since that's the OS mentioned as having a kernel bug. * sysdep.c (request_sigio_on_device): * sysdep.c (unrequest_sigio_on_device): fix SIGIO problems on Linux. add check for O_ASYNC in case it's defined and FASYNC isn't. add comment about other ways to do SIGIO on Linux. * callproc.c (Fold_call_process_internal): * process.c (Fstart_process_internal): Deal with the possibility that `default-directory' doesn't have terminating slash. Correct comments about vfork. ---------------- Miscellaneous bug fixes/cleanup ------------------- * callint.c (Finteractive): Add lots of documentation -- exactly what the Lisp equivalents of all the interactive specs are. * console.h (struct console): change type of quit_char to Emchar. * event-msw.c (lstream_type_create_mswindows_selectable): spacing change. Eliminate events-mod.h and combine into events.h. * emacs.c: * emacs.c (make_arg_list_1): * emacs.c (main_1): A couple of char->Extbyte changes, add a comment. * glyphs-msw.c: Correct indentation of function defns to not exceed 80 cols. Try (sort of) to fix some code that sets the colors of the progress gauge. (Commented out) * keymap.c (syms_of_keymap): use DEFSYMBOL. * process.c (read_process_output): No need to fiddle with zmacs_region_stays, now that bogus clearing of it (see below) is removed. * search.c (Freplace_match): warning fix.
author ben
date Fri, 04 May 2001 22:42:35 +0000
parents
children ed498ef2108b
comparison
equal deleted inserted replaced
501:0a255b32b157 502:7039e6323819
1 ;;; behavior-defs.el --- definitions of specific behaviors
2
3 ;; Copyright (C) 2000, 2001 Ben Wing.
4
5 ;; Author: Ben Wing
6 ;; Maintainer: XEmacs Development Team
7 ;; Keywords: internal, dumped
8
9 ;; This file is part of XEmacs.
10
11 ;; XEmacs is free software; you can redistribute it and/or modify it
12 ;; under the terms of the GNU General Public License as published by
13 ;; the Free Software Foundation; either version 2, or (at your option)
14 ;; any later version.
15
16 ;; XEmacs is distributed in the hope that it will be useful, but
17 ;; WITHOUT ANY WARRANTY; without even the implied warranty of
18 ;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
19 ;; General Public License for more details.
20
21 ;; You should have received a copy of the GNU General Public License
22 ;; along with XEmacs; see the file COPYING. If not, write to the
23 ;; Free Software Foundation, 59 Temple Place - Suite 330,
24 ;; Boston, MA 02111-1307, USA.
25
26 ;;; Synched up with: Not in FSF.
27
28 ;;; Authorship:
29
30 ;; Created July 2000 by Ben Wing.
31
32 ;;; Commentary:
33
34 ;; This file will be dumped with XEmacs.
35
36 ;;; Code:
37
38 (require 'behavior)
39
40 (define-behavior 'mouse-avoidance
41 "Mouse avoidance mode"
42 :title "Mouse Avoidance"
43 :enable #'(lambda ()
44 (mouse-avoidance-mode 'animate))
45 :disable #'(lambda ()
46 (mouse-avoidance-mode 'none)))
47
48 (define-behavior 'resize-minibuffer
49 "When this behavior is enabled, the minibuffer is dynamically resized to
50 contain the entire region of text put in it as you type.
51
52 The maximum height to which the minibuffer can grow is controlled by the
53 variable `resize-minibuffer-window-max-height'.
54
55 The variable `resize-minibuffer-window-exactly' determines whether the
56 minibuffer window should ever be shrunk to make it no larger than needed to
57 display its contents.
58
59 When using a window system, it is possible for a minibuffer to be the sole
60 window in a frame. Since that window is already its maximum size, the only
61 way to make more text visible at once is to increase the size of the frame.
62 The variable `resize-minibuffer-frame' controls whether this should be
63 done. The variables `resize-minibuffer-frame-max-height' and
64 `resize-minibuffer-frame-exactly' are analogous to their window
65 counterparts."
66 :title "Resize Minibuffer Automatically"
67 :enable #'(lambda ()
68 (resize-minibuffer-mode 1))
69 :disable #'(lambda ()
70 (resize-minibuffer-mode -1)))
71
72 (define-behavior 'func-menu
73 "Suppose you have a file with a lot of functions in it. Well, this
74 package makes it easy to jump to any of those functions. The names of
75 the functions in the current buffer are automatically put into menubar
76 menu, you select one of the function-names and the point is moved to
77 that very function. The mark is pushed on the mark-ring, so you can
78 easily go back to where you were. Alternatively, you can use enter the
79 name of the desired function via the minibuffer which offers
80 completing read input. In addition, the name of the function before
81 point is optionally displayed in the modeline."
82 :title "Function Menu"
83 :require 'func-menu
84 :enable #'(lambda ()
85 (add-hook 'find-file-hooks 'fume-add-menubar-entry)
86 (mapc #'(lambda (buffer)
87 (with-current-buffer buffer
88 (setq fume-display-in-modeline-p t)
89 (fume-add-menubar-entry)))
90 (buffer-list)))
91 :disable #'(lambda ()
92 (remove-hook 'find-file-hooks 'fume-add-menubar-entry)
93 (fset 'widen (symbol-function 'fume-widen))
94 (fset 'narrow-to-region (symbol-function 'narrow-to-region))
95 (mapc #'(lambda (buffer)
96 (with-current-buffer buffer
97 (fume-remove-menubar-entry)
98 (setq fume-display-in-modeline-p nil)
99 (fume-remove-post-command-hook
100 'fume-tickle-modeline)
101 (fume-remove-post-command-hook
102 'fume-maybe-install-modeline-feature)
103 (fume-remove-post-command-hook
104 'fume-rescan-buffer-trigger)))
105 (buffer-list))))
106
107 (define-behavior 'mwheel
108 "This code enables the use of the infamous 'wheel' on the new
109 crop of mice. Under XFree86 and the XSuSE X Servers, the wheel
110 events are sent as button4/button5 events, which are automatically
111 set up to do scrolling in the expected way. The actual way that the
112 scrolling works can be controlled by `mwheel-scroll-amount' and
113 `mwheel-follow-mouse'."
114 :title "Mouse Wheel Support"
115 :enable 'mwheel-install)
116
117 (define-behavior 'recent-files
118 "Recent-files adds the menu \"Recent Files\" (or whatever name you
119 choose, see \"Customization:\" below) to Emacs's menubar. Its
120 entries are the files (and directories) that have recently been
121 opened by Emacs. You can open one of these files again by
122 selecting its entry in the \"Recent Files\" menu. The list of file
123 entries in this menu is preserved from one Emacs session to
124 another. You can prevent Emacs from saving this list by selecting
125 \"Don't save recent-files list on exit\" from the menu. If you have
126 disabled saving, you can re-enable it by selecting \"Save
127 recent-files list on exit\".
128
129 The menu has permanent and non-permanent entries. Permanent
130 entries are marked with an asterisk in front of the filename. The
131 non-permanent entries are hidden in a submenu.
132
133 Each time you open a file in Emacs, it is added as a non-permanent
134 entry to the menu. The value of `recent-files-number-of-entries'
135 determines how many non-permanent entries are held in the
136 menu. When the number of non-permanent entries reaches this value,
137 the least recently added non-permanent entry is removed from the
138 menu when another non-permanent entry is added. It is not removed
139 from the list, though; it may reappear when entries are deleted
140 from the list. The number of entries saved to disk is the value of
141 the variable `recent-files-number-of-saved-entries'.
142
143 Permanent entries are not removed from the menu. You can make a
144 file entry permanent by selecting \"Make <buffer> permanent\" (where
145 <buffer> is the name of the current buffer) when the current
146 buffer holds this file. \"Make <buffer> non-permanent\" makes the
147 file entry of the current buffer non-permanent.
148
149 The command \"Kill buffer <buffer> and delete entry\" is handy when
150 you have accidently opened a file but want to keep neither the
151 buffer nor the entry.
152
153 You can erase the list of non-permanent entries by selecting
154 \"Erase non-permanent entries\" from the menu.
155
156 Customization:
157
158 There are lots of variables to control the behaviour of
159 recent-files. You do not have to change any of them if you like it
160 as it comes out of the box. However, you may want to look at these
161 options to make it behave different.
162
163 `recent-files-number-of-entries'
164 Controls how many non-permanent entries are shown in the
165 recent-files list. The default is 15.
166
167 `recent-files-number-of-saved-entries'
168 Controls how many non-permanent entries are saved to disk when
169 Emacs exits or recent-files-save-the-list is called. The
170 default is 50.
171
172 `recent-files-save-file'
173 The name of the file where the recent-files list is saved
174 between Emacs session. You probably don't need to change this.
175 The default is \".recent-files.el\" in your home directory.
176
177 `recent-files-dont-include'
178 A list of regular expressions for files that should not be
179 included into the recent-files list. This list is empty by
180 default. For instance, a list to exclude all .newsrc
181 files, all auto-save-files, and all files in the /tmp
182 directory (but not the /tmp directory itself) would look
183 like this:
184 (setq recent-files-dont-include
185 '(\"/\\.newsrc\" \"~$\" \"^/tmp/.\"))
186 The default is empty.
187
188 `recent-files-use-full-names'
189 If the value of this variable is non-nil, the full pathnames of
190 the files are shown in the recent-files menu. Otherwise only
191 the filename part (or the last name component if it is a
192 directory) is shown in the menu. The default it t, i.e. show
193 full names.
194
195 `recent-files-filename-replacements'
196 This is a list of pairs of regular expressions and replacement
197 strings. If a filename matches one of the regular expressions,
198 the matching part is replaced by the replacement string for
199 display in the recent-files menu.
200 Example: My home directory is \"/users/mmc/nickel/\". I want to
201 replace it with \"~/\". I also want to replace the directory
202 \"/imports/teleservices/mmc/avc2/\", where I work a lot, with
203 \".../avc2/\". The list then looks like
204 (setq recent-files-filename-replacements
205 '((\"/users/mmc/nickel/\" . \"~/\")
206 (\"/imports/teleservices/mmc/avc2/\" . \".../avc2/\")))
207 Only the first match is replaced. So, if you have several
208 entries in this list that may match a filename simultaneously,
209 put the one you want to match (usually the most special) in
210 front of the others. The default is to replace the home
211 directory with \"~\".
212
213 `recent-files-sort-function'
214 Contains a function symbol to sort the display of filenames in
215 the recent-files menu. Supplied are two functions,
216 'recent-files-dont-sort and 'recent-files-sort-alphabetically.
217 The first, which is the default, preserves the order of \"most
218 recent on top\".
219
220 `recent-files-permanent-submenu'
221 If this variable is non-nil, the permanent entries are put into
222 a separate submenu of the recent-files menu. The default is
223 nil.
224
225 `recent-files-non-permanent-submenu'
226 If this variable is non-nil, the non-permanent entries are put
227 into a separate submenu of the recent-files menu. The default
228 is nil. (You can set both `recent-files-permanent-submenu' and
229 `recent-files-non-permanent-submenu' to t to have both lists in
230 separate submenus.)
231
232 `recent-files-commands-submenu'
233 If this variable is non-nil, the commands if recent-files are
234 placed in a submenu of the recent-files menu. The default is
235 nil.
236
237 `recent-files-commands-submenu-title'
238 If the commands are placed in a submenu, this string is used as
239 the title of the submenu. The default is \"Commands...\".
240
241 `recent-files-actions-on-top'
242 If this variable is non-nil, the \"action\" menu entries (\"Make
243 <buffer> permanent\" etc.) are put on top of the menu. Otherwise
244 they appear below the file entries or submenus. The default is
245 nil.
246
247 `recent-files-permanent-first'
248 If this variable is t, the permanent entries are put first in
249 the recent-files menu, i.e. above the non-permanent entries. If
250 the value is nil, non-permanent entries appear first. If the
251 value is neither t nor nil, the entries are sorted according to
252 recent-files-sort-function. The default is 'sort.
253
254 `recent-files-find-file-command'
255 This variable contains to commandto execute when a file entry
256 is selected from the menu. Usually this will be `find-file',
257 which is the default.
258
259 KNOWN BUG:
260 - recent-files overwrites the recent-files-save-file
261 unconditionally when Emacs exits. If you have two Emacs
262 processes running, the one exiting later will overwrite the
263 file without merging in the new entries from the other Emacs
264 process. This can be avoided by disabling the save on exit from
265 the menu."
266 :title "Recent Files Menu"
267 :enable 'recent-files-initialize)
268
269 (define-behavior 'filladapt
270 "These functions enhance the default behavior of Emacs' Auto Fill
271 mode and the commands `fill-paragraph', `lisp-fill-paragraph',
272 `fill-region-as-paragraph' and `fill-region'.
273
274 The chief improvement is that the beginning of a line to be
275 filled is examined and, based on information gathered, an
276 appropriate value for fill-prefix is constructed. Also the
277 boundaries of the current paragraph are located. This occurs
278 only if the fill prefix is not already non-nil.
279
280 The net result of this is that blurbs of text that are offset
281 from left margin by asterisks, dashes, and/or spaces, numbered
282 examples, included text from USENET news articles, etc. are
283 generally filled correctly with no fuss."
284 :title "Adaptive Filling"
285 :require 'filladapt
286 :enable #'(lambda ()
287 (setq-default filladapt-mode t)
288 (mapc #'(lambda (buffer)
289 (with-current-buffer buffer
290 (unless filladapt-mode
291 (filladapt-mode 1))))
292 (buffer-list)))
293 :disable #'(lambda ()
294 (setq-default filladapt-mode nil)
295 (mapc #'(lambda (buffer)
296 (with-current-buffer buffer
297 (when filladapt-mode
298 (filladapt-mode -1))))
299 (buffer-list))))