462
+ − 1 ;; -*- Mode: Emacs-Lisp -*-
+ − 2
+ − 3 ;; Copyright (C) 2000, 2001 Ben Wing.
+ − 4
+ − 5 ;; Author: Mostly Ben Wing <ben@xemacs.org>
+ − 6 ;; Maintainer: XEmacs Development Team
+ − 7 ;; Keywords: sample, initialization
+ − 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, Inc., 59 Temple Place - Suite 330,
+ − 24 ;; Boston, MA 02111-1307, USA.
+ − 25
+ − 26 ;; #### to do:
+ − 27 ;; -- #### figure out how init.el and custom.el interact and put
+ − 28 ;; documentation about it here. (perhaps it already exists
+ − 29 ;; elsewhere?)
+ − 30
+ − 31 ;;; This is a sample init.el file. It can be used without
+ − 32 ;;; modification as your init.el or .emacs. In older versions of
+ − 33 ;;; XEmacs, this file was called .emacs and placed in your home
+ − 34 ;;; directory. (Under MS Windows, that directory is controlled by the
+ − 35 ;;; HOME environment variable and defaults to C:\. You can find out
+ − 36 ;;; where XEmacs thinks your home directory is using
+ − 37 ;;;
+ − 38 ;;; ESC : (expand-file-name "~")
+ − 39 ;;;
+ − 40 ;;; . This means type ESC, then colon, then the following text, then hit
+ − 41 ;;; return.) In more recent versions of XEmacs, this file has migrated to
+ − 42 ;;; the .xemacs/ subdirectory and is called init.el. Other files are
+ − 43 ;;; also located here, such as custom.el (the auto-generated file
+ − 44 ;;; containing Customization options that you saved when using
+ − 45 ;;; Options->Save Options).
+ − 46
+ − 47 ;;; Changes to your init.el file will not take effect until the next
+ − 48 ;;; time you start up XEmacs, unless you load it explicitly with
+ − 49 ;;;
+ − 50 ;;; M-x load-file RET ~/.xemacs/init.el RET
+ − 51
+ − 52 ;;; The language that this file (and most other XEmacs init files) is
+ − 53 ;;; written in is called "XEmacs Lisp" or more commonly "Elisp".
+ − 54
+ − 55 ;;; There are many sources of further information:
+ − 56
+ − 57 ;;; -- the XEmacs User's Manual (Access using the online Info browser:
+ − 58 ;;; Use `Help->Info (Online Docs)->XEmacs User's Manual' (if
+ − 59 ;;; there is such an entry); or get to the Info contents page
+ − 60 ;;; using `Help->Info Contents' or `C-h i', and then
+ − 61 ;;; *middle-click* the XEmacs link or move the cursor into the
+ − 62 ;;; link and hit ENTER. This manual contains a great deal of
+ − 63 ;;; documentation on customization: Scroll down to the
+ − 64 ;;; Customization link and select it in the same fashion as for
+ − 65 ;;; the XEmacs link just mentioned.)
+ − 66
+ − 67 ;;; -- the XEmacs FAQ (`C-h F' for the local version; get either the
+ − 68 ;;; local version or the very latest version off the net using
+ − 69 ;;; the Help menu)
+ − 70
+ − 71 ;;; -- the XEmacs Lisp Reference Manual, containing detailed
+ − 72 ;;; documentation on Elisp. (Access using Info, just like for the
+ − 73 ;;; XEmacs User's Manual.)
+ − 74
+ − 75 ;;; -- the documentation strings for specific commands, functions,
+ − 76 ;;; key sequences, and variables. NOTE: This is *not* the same
+ − 77 ;;; information as in the XEmacs User's Manual or XEmacs Lisp
+ − 78 ;;; Reference Manual! In general, the doc strings are more
+ − 79 ;;; terse and more up-to-date than what is found in the manuals.
+ − 80 ;;; Once you understand the general concepts, these doc strings
+ − 81 ;;; should be your first point of reference for further
+ − 82 ;;; info. (Access using menu entries under `Help->Commands,
+ − 83 ;;; Variables, Keys' or using the keyboard: `C-h k' for a key
+ − 84 ;;; sequence, `C-h f' for a named command or Elisp function,
+ − 85 ;;; `C-h v' for a variable. There is various other useful
+ − 86 ;;; information accessible similarly, such as `C-h a'
+ − 87 ;;; ["Apropos", i.e. search for a command, function, or variable
+ − 88 ;;; by name]; `C-h C-a' ["Apropos Docs", i.e. search through the
+ − 89 ;;; text of the doc strings]; `C-h b' to list all key bindings;
+ − 90 ;;; `C-h m' to describe the current major and minor modes; etc.
+ − 91 ;;; Type `C-h ? ?' for a complete list.)
+ − 92
+ − 93 ;;; -- Getting Started with XEmacs [aka the "New User's Guide"], a
+ − 94 ;;; more introductory manual than the XEmacs User's Manual.
+ − 95 ;;; (Access using Info, just like for the XEmacs User's Manual.
+ − 96 ;;; There are some sections on customization here.)
+ − 97
+ − 98 ;;; -- the XEmacs tutorial, a very simple introduction to XEmacs for
+ − 99 ;;; total beginners. (`C-h t' for English; get the version in
+ − 100 ;;; various languages from the Help menu)
+ − 101
+ − 102 ;;; -- the XEmacs web site, www.xemacs.org.
+ − 103
+ − 104 ;;; -- the XEmacs mailing lists (xemacs-FOO@xemacs.org;
+ − 105 ;;; see http://www.xemacs.org/Lists/ for more info. Before
+ − 106 ;;; posting, consider looking through the archives -- they go back
+ − 107 ;;; years and there is a powerful searching interface. Currently
+ − 108 ;;; the archives are at http://list-archive.xemacs.org/, but if
+ − 109 ;;; this doesn't work, you can always access them through
+ − 110 ;;; www.xemacs.org.)
+ − 111
+ − 112 ;;; -- the XEmacs newsgroup, comp.emacs.xemacs. This is
+ − 113 ;;; bi-directionally gatewayed with xemacs@xemacs.org. WARNING:
+ − 114 ;;; The developers do not normally hang out on this newsgroup. If
+ − 115 ;;; you need to contact them, use xemacs-beta@xemacs.org.
+ − 116
+ − 117 ;;; -- the XEmacs internals manual, for those interested in working on
+ − 118 ;;; the XEmacs C code. (Available through Info.)
+ − 119
+ − 120 ;;; -- `Help->About XEmacs' to find out who the maintainers are.
+ − 121
+ − 122
+ − 123 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+ − 124 ;; Basic Customization ;;
+ − 125 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+ − 126
+ − 127 ;; TIP: Control-L characters are ignored in Lisp files and are the
+ − 128 ;; standard way of indicating major section divisions. You can enter
+ − 129 ;; such a character using C-q C-l.
+ − 130
+ − 131 ;; Define a variable to indicate whether we're running XEmacs/Lucid
+ − 132 ;; Emacs. (You do not have to defvar a global variable before using
+ − 133 ;; it -- you can just call `setq' directly. It's clearer this way,
+ − 134 ;; though. Note also how we check if this variable already exists
+ − 135 ;; using `boundp', because it's defined in recent versions of
+ − 136 ;; XEmacs.)
+ − 137
+ − 138 (or (boundp 'running-xemacs)
+ − 139 (defvar running-xemacs (string-match "XEmacs\\|Lucid" emacs-version)))
+ − 140
+ − 141 ;; Define a function to make it easier to check which version we're
+ − 142 ;; running. This function already exists in recent XEmacs versions,
+ − 143 ;; and in fact all we've done is copied the definition. Note again
+ − 144 ;; how we check to avoid clobbering an existing definition. (It's good
+ − 145 ;; style to do this, in case some improvement was made to the
+ − 146 ;; already-existing function -- otherwise we might subsitute an older
+ − 147 ;; definition and possibly break some code elsewhere.)
+ − 148 ;;
+ − 149 ;; NOTE ALSO: It is in general *NOT* a good idea to do what we're
+ − 150 ;; doing -- i.e. provide a definition of a function that is present in
+ − 151 ;; newer versions of XEmacs but not older ones. The reason is that it
+ − 152 ;; may confuse code that notices the presence of the function and
+ − 153 ;; proceeds to use it and other functionality that goes along with it
+ − 154 ;; -- but which we may not have defined. What's better is to create
+ − 155 ;; the function with a different name -- typically, prefix it with the
+ − 156 ;; name of your module, which in this case might be `Init-'. For
+ − 157 ;; `emacs-version>=' we make an exception because (a) the function has
+ − 158 ;; been around a long time, (b) there isn't really any other
+ − 159 ;; functionality that is paired with it, (c) it's definition hasn't
+ − 160 ;; changed and isn't likely to, and (d) the calls to `emacs-version>='
+ − 161 ;; or its renamed replacement would be scattered throughout the code
+ − 162 ;; below, and with a replacement name the code would become
+ − 163 ;; significantly less portable into someone else's init.el file. (BUT
+ − 164 ;; NOTE BELOW: We do follow the procedure outlined above with renaming
+ − 165 ;; in a different case where the specifics are much different.)
+ − 166 ;;
+ − 167 ;; TIP: At this point you may be wondering how I wrote all these nice,
+ − 168 ;; long, nicely-justified textual stretches -- didn't I go crazy
+ − 169 ;; sticking in the semicolons everywhere and having to delete them and
+ − 170 ;; rearrange everything whenever I wanted to make any corrections to
+ − 171 ;; the text? The answer is -- of course not! Use M-q. This does all
+ − 172 ;; the magic for you, justifying and breaking lines appropriately and
+ − 173 ;; putting any necessary semicolons or whatever at the left (it
+ − 174 ;; figures out what this ought to be by looking in a very clever
+ − 175 ;; fashion at what's already at the beginning of each line in the
+ − 176 ;; paragraph). You may need `filladapt' set up (it's done below in
+ − 177 ;; this file) in order for this to work properly. Finally, if you
+ − 178 ;; want to turn on automatic filling (like in a word processor, but
+ − 179 ;; not quite as automatic), use M-x auto-fill-mode or the binding set
+ − 180 ;; up below in this file (Meta-F9).
+ − 181
+ − 182 (or (fboundp 'emacs-version>=)
+ − 183 (defun emacs-version>= (major &optional minor patch)
+ − 184 "Return true if the Emacs version is >= to the given MAJOR, MINOR,
+ − 185 and PATCH numbers.
+ − 186 The MAJOR version number argument is required, but the other arguments
+ − 187 argument are optional. Only the Non-nil arguments are used in the test."
+ − 188 (let ((emacs-patch (or emacs-patch-level emacs-beta-version -1)))
+ − 189 (cond ((> emacs-major-version major))
+ − 190 ((< emacs-major-version major) nil)
+ − 191 ((null minor))
+ − 192 ((> emacs-minor-version minor))
+ − 193 ((< emacs-minor-version minor) nil)
+ − 194 ((null patch))
+ − 195 ((>= emacs-patch patch))))))
+ − 196
+ − 197 ;; 19.13 was released ages ago (Sep. 1995), and lots of graphic and
+ − 198 ;; window-system stuff doesn't work before then.
+ − 199
+ − 200 (or (not running-xemacs)
+ − 201 (emacs-version>= 19 13)
+ − 202 (error "This init file does not support XEmacs before 19.13"))
+ − 203
+ − 204 ;; Here are some example code snippets that you can use if you need to
+ − 205 ;; conditionalize on a particular version of Emacs (in general, though,
+ − 206 ;; it is much better to use `fboundp', `featurep', or other such
+ − 207 ;; feature-specific checks rather than version-specific checks):
+ − 208
+ − 209 ; (cond ((and running-xemacs
+ − 210 ; (emacs-version>= 21 2))
+ − 211 ; ;;
+ − 212 ; ;; Code requiring XEmacs version 21.2 or newer goes here
+ − 213 ; ;;
+ − 214 ; ))
+ − 215
+ − 216 ; (cond ((emacs-version >= 19 0)
+ − 217 ; ;;
+ − 218 ; ;; Code for any vintage-19 Emacs goes here
+ − 219 ; ;;
+ − 220 ; ))
+ − 221
+ − 222 ; (cond ((and (not running-xemacs)
+ − 223 ; (emacs-version>= 20 0))
+ − 224 ; ;;
+ − 225 ; ;; Code specific to GNU Emacs 20 or newer (not XEmacs) goes here
+ − 226 ; ;;
+ − 227 ; ))
+ − 228
558
+ − 229 (defun Init-safe-require (feat)
+ − 230 "Try to REQUIRE the specified feature. Errors occurring are silenced.
+ − 231 \(Perhaps in the future there will be a way to get at the error.)
+ − 232 Returns t if the feature was successfully required."
+ − 233 (condition-case nil
+ − 234 (progn (require feat) t)
+ − 235 (error nil)))
+ − 236
462
+ − 237
+ − 238 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+ − 239 ;; Key Definitions ;;
+ − 240 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+ − 241
+ − 242 ;;; Set up the function keys to do common tasks to reduce Emacs pinky
+ − 243 ;;; and such.
+ − 244
+ − 245 ;; You can set a key sequence either to a command or to another key
+ − 246 ;; sequence. (Use `C-h k' to map a key sequence to its command. Use
+ − 247 ;; `C-h w' to go the other way.) In general, however, it works better
+ − 248 ;; to specify the command name. For example, it does not currently
+ − 249 ;; work to say
+ − 250
+ − 251 ;; (global-set-key 'f5 "\C-x\C-f")
+ − 252
+ − 253 ;; The reason is that macros (which is what the string on the right
+ − 254 ;; really is) can't currently use the minibuffer. This is an
+ − 255 ;; extremely longstanding bug in Emacs. Eventually, it will be
+ − 256 ;; fixed. (Hopefully ..)
+ − 257
+ − 258 ;; Note also that you may sometimes see the idiom
+ − 259
+ − 260 ;; (define-key global-map ...)
+ − 261
+ − 262 ;; in place of (global-set-key ...). These are exactly the same.
+ − 263
+ − 264 ;; Here I've tried to put all the most common commands on simple
+ − 265 ;; non-modifier function keys to take the pressure off your modifier
+ − 266 ;; fingers. Furthermore, on my keyboard at least, the function keys
+ − 267 ;; are grouped into three groups of four with spaces between them, and
+ − 268 ;; so it's easier to hit the keys at the edge of the groups --
+ − 269 ;; i.e. f1, f4, f5, f8, f9, and f12. Finally, you may note that f9,
+ − 270 ;; f11, and f12 are purposely left blank. [F6 is defined below.]
+ − 271 ;; That's because I use them for _, {, and } -- see below.
+ − 272
+ − 273 (global-set-key 'f1 'advertised-undo) ;; Undo
+ − 274 (global-set-key 'f2 'kill-primary-selection) ;; Cut
+ − 275 (global-set-key 'f3 'copy-primary-selection) ;; Copy
+ − 276 (global-set-key 'f4 'yank-clipboard-selection) ;; Paste
+ − 277 (global-set-key 'f5 'find-file) ;; C-x C-f
+ − 278 (global-set-key 'f7 'save-buffer) ;; C-x C-s
+ − 279
+ − 280 ;; I considered having this retain the current column after killing
+ − 281 ;; the line, but that messes up the common idiom `f8 move-cursor f4'.
+ − 282
+ − 283 (defun Init-kill-entire-line (&optional arg)
464
+ − 284 "Kill the entire line.
+ − 285 With prefix argument, kill that many lines from point. Negative
+ − 286 arguments kill lines backward.
+ − 287
+ − 288 When calling from a program, nil means \"no arg\",
+ − 289 a number counts as a prefix arg."
462
+ − 290 (interactive "*P")
+ − 291 (let ((kill-whole-line t))
+ − 292 (beginning-of-line)
+ − 293 (call-interactively 'kill-line)))
+ − 294
+ − 295 (global-set-key 'f8
+ − 296 (if (fboundp 'kill-entire-line) 'kill-entire-line 'Init-kill-entire-line))
+ − 297
+ − 298 ;; A keystroke repeated incredible amounts of times. We need to patch
+ − 299 ;; into the isearch keymap so that repeat searches while in isearch
+ − 300 ;; mode still work. Here we show how to make a key in a keymap have the
+ − 301 ;; same binding as another key in the keymap, without knowing what the
+ − 302 ;; binding is in advance; instead, we find it with `lookup-key'. This
+ − 303 ;; way, if the binding of C-s changes (e.g. to a different function) but
+ − 304 ;; the meaning is basically the same, we automatically do the right thing.
+ − 305 ;; If we put in the actual binding, which is 'isearch-repeat-forward,
+ − 306 ;; this automatic tracking wouldn't happen.
+ − 307 ;;
+ − 308 ;; TIP: To find out what the (lookup-key ...) expression evaluates to,
+ − 309 ;; move just to the right of the closing paren and type C-x C-e.
+ − 310
+ − 311 (global-set-key 'f10 'isearch-forward)
+ − 312 (define-key isearch-mode-map 'f10 (lookup-key isearch-mode-map "\C-s"))
+ − 313 (define-key minibuffer-local-isearch-map 'f10
+ − 314 (lookup-key minibuffer-local-isearch-map "\C-s"))
+ − 315 (global-set-key '(shift f10) 'isearch-backward)
+ − 316 (define-key isearch-mode-map '(shift f10) (lookup-key isearch-mode-map "\C-r"))
+ − 317 (define-key minibuffer-local-isearch-map '(shift f10)
+ − 318 (lookup-key minibuffer-local-isearch-map "\C-r"))
+ − 319
+ − 320 ;; Here we define our own function and then bind a key to it.
+ − 321
+ − 322 (defun start-or-end-kbd-macro ()
+ − 323 ;; A doc string. This is optional.
+ − 324 "Start defining a keyboard macro, or stop if we're already defining."
+ − 325 ;; IMPORTANT: Any function bound to a key MUST have an interactive spec,
+ − 326 ;; usually just the following line:
+ − 327 (interactive)
+ − 328 (if defining-kbd-macro
+ − 329 (end-kbd-macro)
+ − 330 (start-kbd-macro nil)))
+ − 331
+ − 332 ;; The macros used to have their place in the function keys, but I
+ − 333 ;; find that I use them significantly less than the really basic
+ − 334 ;; things on the function keys. When using a macro, you call the
+ − 335 ;; macro much more than define it, so the setup below makes some
+ − 336 ;; sense.
+ − 337
+ − 338 (global-set-key '(shift kp-multiply) 'start-or-end-kbd-macro)
+ − 339 (global-set-key 'kp-multiply 'call-last-kbd-macro) ;; C-x e
+ − 340
+ − 341 ;; Note that you can refer to a key sequence either using an ASCII
+ − 342 ;; string or the "long way", with vectors and conses. You saw above
+ − 343 ;; (in a comment) the string form for specifying the key sequence `C-x
+ − 344 ;; C-f', which is "\C-x\C-f". (For those curious, \C-x is just an
+ − 345 ;; escape sequence that puts a ^X character into the string. Thus,
+ − 346 ;; the string just mentioned really just contains two characters, a ^X
+ − 347 ;; and a ^F.) The long way to specify the sequence `C-x C-f' would be
+ − 348 ;;
+ − 349 ;; [(control x) (control f)]
+ − 350 ;;
+ − 351 ;; The long format lets you specify all possible key sequences, while the
+ − 352 ;; string form only lets you specify sequences involving ASCII characters
+ − 353 ;; and/or modifiers and in fact only a subset of them.
+ − 354 ;;
+ − 355 ;; Other examples are:
+ − 356 ;;
+ − 357 ;; [(control x) n]
+ − 358 ;;
+ − 359 ;; (You can leave out the parens when there is no modifier specified in
+ − 360 ;; the keystroke, and that's normally done.)
+ − 361 ;;
+ − 362 ;; [(shift control meta left)]
+ − 363 ;;
+ − 364 ;; (You can put more than one modifier in a keystroke.)
+ − 365 ;;
+ − 366 ;; (shift control meta left)
+ − 367 ;;
+ − 368 ;; (This is the same as the previous. when there's only one keystroke in
+ − 369 ;; the sequence, you can leave out the brackets, and that's normally
+ − 370 ;; done.)
+ − 371 ;;
+ − 372 ;; [(control x) (shift button3)]
+ − 373 ;;
+ − 374 ;; (You can refer to mouse buttons just like keys -- apply modifiers,
+ − 375 ;; intermingle them in key sequences, etc. But there's only problem
+ − 376 ;; here, which is that with the mouse you don't just have one possible
+ − 377 ;; gesture, like with keys. You'd really like to control button-down,
+ − 378 ;; button-up, button-click (down and up without selecting anything),
+ − 379 ;; button drag, button double-click, etc. This is normally done by
+ − 380 ;; binding your key sequence to `mouse-track', and then putting hooks
+ − 381 ;; onto `mouse-track-click-hook', `mouse-track-drag-up-hook', etc. to
+ − 382 ;; customize the specific behavior.)
+ − 383 ;;
+ − 384 ;; 'left
+ − 385 ;;
+ − 386 ;; (Ultimate reductionism -- no brackets, no parens. This is the form, in
+ − 387 ;; that, that the 'f1, 'f2, etc. took, which where in fact "long"
+ − 388 ;; forms.)
+ − 389 ;;
+ − 390 ;; '(control C)
+ − 391 ;;
+ − 392 ;; (You cannot use '(control shift c) here. This applies whenever Shift +
+ − 393 ;; key translates to a single character. Note also that you can't use
+ − 394 ;; "\C-C" either; this refers to the non-shifted C-c, just like "\C-c"
+ − 395 ;; would.)
+ − 396 ;;
+ − 397 ;; '(control \()
+ − 398 ;; (Put a backslash in front of characters used in Lisp syntax.)
+ − 399 ;;
+ − 400 ;; Also, you can find out the name of a key using C-h c. WARNING:
+ − 401 ;; This does not report the correct name of the keys named `delete',
+ − 402 ;; `backspace', `return', `tab', `space', `escape', and `linefeed'!
+ − 403 ;; (More correct results can be achieved using
+ − 404 ;;
+ − 405 ;; ESC : (read-key-sequence "foo: ")
+ − 406 ;;
+ − 407 ;; .)
+ − 408
+ − 409 ;;;;;;;;;;;;;;;;;;;;;;;;
+ − 410
+ − 411 ;; Keystrokes to conveniently switch buffers.
+ − 412
+ − 413 ;; F6 is invaluable for flipping back and forth between two buffers
+ − 414 ;; you're working with.
+ − 415
+ − 416 (global-set-key 'f6 'switch-to-other-buffer) ;; M-C-l
+ − 417 (global-set-key '(meta n) 'switch-to-next-buffer-in-group)
+ − 418 (global-set-key '(meta p) 'switch-to-previous-buffer-in-group)
+ − 419 (global-set-key '(meta N) 'switch-to-next-buffer)
+ − 420 (global-set-key '(meta P) 'switch-to-previous-buffer)
+ − 421
+ − 422 ;; Define our own function to deal with the possibility that the newer
+ − 423 ;; stuff in the gutter code may not be present -- i.e. we're running
+ − 424 ;; an older XEmacs. Note that we avoid trying to "helpfully" define a
+ − 425 ;; function that is present in new versions of XEmacs, but not in
+ − 426 ;; older ones. That can very easily screw up code trying to determine
+ − 427 ;; what functionality is present using `fboundp' checks. See above,
+ − 428 ;; near `emacs-version>=', for a full discussion of this.
+ − 429
+ − 430 (defun Init-buffers-tab-omit (buf)
+ − 431 ;; a function specifying the buffers to omit from the buffers tab.
+ − 432 ;; This is passed a buffer and should return non-nil if the buffer
+ − 433 ;; should be omitted. If the standard buffers-tab functionality is
+ − 434 ;; there, we just call it to do things "right". Otherwise we just
+ − 435 ;; omit invisible buffers, snarfing the code from
+ − 436 ;; `buffers-menu-omit-invisible-buffers'.
+ − 437 (if (boundp 'buffers-tab-omit-function)
+ − 438 (funcall buffers-tab-omit-function buf)
+ − 439 (not (null (string-match "\\` " (buffer-name buf))))))
+ − 440
+ − 441 (defun switch-to-next-buffer (&optional n)
+ − 442 "Switch to the next-most-recent buffer.
+ − 443 This essentially rotates the buffer list forward.
+ − 444 N (interactively, the prefix arg) specifies how many times to rotate
+ − 445 forward, and defaults to 1. Buffers whose name begins with a space
+ − 446 \(i.e. \"invisible\" buffers) are ignored."
+ − 447 ;; Here is a different interactive spec. Look up the function
+ − 448 ;; `interactive' (i.e. `C-h f interactive') to understand how this
+ − 449 ;; all works.
+ − 450 (interactive "p")
+ − 451 (dotimes (n (or n 1))
+ − 452 (loop
+ − 453 do (bury-buffer (car (buffer-list)))
+ − 454 while (Init-buffers-tab-omit (car (buffer-list))))
+ − 455 (switch-to-buffer (car (buffer-list)))))
+ − 456
+ − 457 (defun buffers-menu-omit-invisible-buffers (buf)
+ − 458 "For use as a value of `buffers-menu-omit-function'.
+ − 459 Omits normally invisible buffers (those whose name begins with a space)."
+ − 460 (not (null (string-match "\\` " (buffer-name buf)))))
+ − 461
+ − 462 (defvar Init-buffers-tab-grouping-regexp
+ − 463 '("^\\(gnus-\\|message-mode\\|mime/viewer-mode\\)"
+ − 464 "^\\(emacs-lisp-\\|lisp-\\)")
+ − 465 ;; If non-nil, a list of regular expressions for buffer grouping.
+ − 466 ;; Each regular expression is applied to the current major-mode symbol
+ − 467 ;; name and mode-name, if it matches then any other buffers that match
+ − 468 ;; the same regular expression be added to the current group. This is
+ − 469 ;; a copy of `buffers-tab-grouping-regexp'.
+ − 470 )
+ − 471
+ − 472 (defun Init-select-buffers-tab-buffers (buffer-to-select buf1)
+ − 473 ;; Specifies the buffers to select from the buffers tab. This is
+ − 474 ;; passed two buffers and should return non-nil if the second buffer
+ − 475 ;; should be selected. If the standard buffers-tab functionality is
+ − 476 ;; there, we just call it to do things "right". Otherwise, we group
+ − 477 ;; buffers by major mode and by `Init-buffers-tab-grouping-regexp'.
+ − 478 ;; [We've copied `select-buffers-tab-buffers-by-mode' and
+ − 479 ;; `buffers-tab-grouping-regexp'.]
+ − 480 (if (boundp 'buffers-tab-selection-function)
+ − 481 (funcall buffers-tab-selection-function buffer-to-select buf1)
+ − 482 (let ((mode1 (symbol-name (symbol-value-in-buffer 'major-mode buf1)))
+ − 483 (mode2 (symbol-name (symbol-value-in-buffer 'major-mode
+ − 484 buffer-to-select)))
+ − 485 (modenm1 (symbol-value-in-buffer 'mode-name buf1))
+ − 486 (modenm2 (symbol-value-in-buffer 'mode-name buffer-to-select)))
+ − 487 (cond ((or (eq mode1 mode2)
+ − 488 (eq modenm1 modenm2)
+ − 489 (and (string-match "^[^-]+-" mode1)
+ − 490 (string-match
+ − 491 (concat "^" (regexp-quote
+ − 492 (substring mode1 0 (match-end 0))))
+ − 493 mode2))
+ − 494 (and Init-buffers-tab-grouping-regexp
+ − 495 (find-if #'(lambda (x)
+ − 496 (or
+ − 497 (and (string-match x mode1)
+ − 498 (string-match x mode2))
+ − 499 (and (string-match x modenm1)
+ − 500 (string-match x modenm2))))
+ − 501 Init-buffers-tab-grouping-regexp)))
+ − 502 t)
+ − 503 (t nil)))))
+ − 504
+ − 505 (defun switch-to-previous-buffer (&optional n)
+ − 506 "Switch to the previously most-recent buffer.
+ − 507 This essentially rotates the buffer list backward.
+ − 508 N (interactively, the prefix arg) specifies how many times to rotate
+ − 509 backward, and defaults to 1. Buffers whose name begins with a space
+ − 510 \(i.e. \"invisible\" buffers) are ignored."
+ − 511 (interactive "p")
+ − 512 (dotimes (n (or n 1))
+ − 513 (loop
+ − 514 do (switch-to-buffer (car (last (buffer-list))))
+ − 515 while (Init-buffers-tab-omit (car (buffer-list))))))
+ − 516
+ − 517 (defun switch-to-next-buffer-in-group (&optional n)
+ − 518 "Switch to the next-most-recent buffer in the current group.
+ − 519 This essentially rotates the buffer list forward.
+ − 520 N (interactively, the prefix arg) specifies how many times to rotate
+ − 521 forward, and defaults to 1. Buffers whose name begins with a space
+ − 522 \(i.e. \"invisible\" buffers) are ignored."
+ − 523 (interactive "p")
+ − 524 (dotimes (n (or n 1))
+ − 525 (let ((curbuf (car (buffer-list))))
+ − 526 (loop
+ − 527 do (bury-buffer (car (buffer-list)))
+ − 528 while (or (Init-buffers-tab-omit (car (buffer-list)))
+ − 529 (not (Init-select-buffers-tab-buffers
+ − 530 curbuf (car (buffer-list)))))))
+ − 531 (switch-to-buffer (car (buffer-list)))))
+ − 532
+ − 533 (defun switch-to-previous-buffer-in-group (&optional n)
+ − 534 "Switch to the previously most-recent buffer in the current group.
+ − 535 This essentially rotates the buffer list backward.
+ − 536 N (interactively, the prefix arg) specifies how many times to rotate
+ − 537 backward, and defaults to 1. Buffers whose name begins with a space
+ − 538 \(i.e. \"invisible\" buffers) are ignored."
+ − 539 (interactive "p")
+ − 540 (dotimes (n (or n 1))
+ − 541 (let ((curbuf (car (buffer-list))))
+ − 542 (loop
+ − 543 do (switch-to-buffer (car (last (buffer-list))))
+ − 544 while (or (Init-buffers-tab-omit (car (buffer-list)))
+ − 545 (not (Init-select-buffers-tab-buffers
+ − 546 curbuf (car (buffer-list)))))))))
+ − 547
+ − 548 ;;;;;;;;;;;;;;;;;;;;;;;;
+ − 549
+ − 550 ;; Other text keystrokes.
+ − 551
+ − 552 ;; Make a keystroke to insert a literal TAB character. (`C-q TAB' is
+ − 553 ;; annoying because difficult to repeat.) Note that this does not work
+ − 554 ;; in TTY frames, where TAB and Shift-TAB are indistinguishable.
+ − 555 (define-key global-map '(shift tab) 'tab-to-tab-stop)
+ − 556
+ − 557 ;; Toggle auto-filling. Useful with text but annoying with code. You
+ − 558 ;; can manually fill with M-q.
+ − 559 (global-set-key '(meta f9) 'auto-fill-mode)
+ − 560
+ − 561 ;; You cannot say '(meta shift t) here -- see above.
+ − 562 (if (fboundp 'transpose-line-down)
+ − 563 (global-set-key '(meta T) 'transpose-line-down))
+ − 564 (if (fboundp 'transpose-line-up)
+ − 565 (global-set-key '(control T) 'transpose-line-up))
+ − 566
+ − 567 ;;;;;;;;;;;;;;;;;;;;;;;;
+ − 568
+ − 569 ;; Rearrange some inconvenient bindings.
+ − 570
+ − 571 ;; ESC ESC ESC is a useful command, but too long. ESC ESC would be
+ − 572 ;; much more logical, but interferes with Meta + keypad/arrow keys on
+ − 573 ;; TTY's. But most people only use window systems and no such problem
+ − 574 ;; exists there, so set up the more logical binding there.
+ − 575 ;;
+ − 576 ;; Note also the use of if vs. cond/when/unless/or/and to express
+ − 577 ;; conditional statements. The difference is purely stylistic.
+ − 578
+ − 579 (when (console-on-window-system-p)
+ − 580 (global-set-key '(meta escape) 'keyboard-escape-quit)
+ − 581 (define-key isearch-mode-map '(meta escape) 'isearch-cancel))
+ − 582
+ − 583 ;; The standard definition of C-z causes iconification on window
+ − 584 ;; systems, which is both useless and annoying. Instead, bind it to a
+ − 585 ;; useful command that's not on any keys. (This also makes a neat
+ − 586 ;; parallelism with M-z, which does zap-to-char.) Don't override the
+ − 587 ;; TTY binding, which does "Suspend". If you want this new binding on
+ − 588 ;; TTY's, and can train yourself to use C-x C-z to suspend, then
+ − 589 ;; remove or comment out the `when' statement. (Here's the proper way
+ − 590 ;; to comment out such a statement:
+ − 591 ;;
+ − 592 ;; ;(when (console-on-window-system-p)
+ − 593 ;; (global-set-key "\C-z" 'zap-up-to-char)
+ − 594 ;; ; )
+ − 595 ;;
+ − 596 ;; To do this, I first moved the closing paren to a new line,
+ − 597 ;; reindented with TAB, then added the semicolons.)
+ − 598
+ − 599 (when (console-on-window-system-p)
+ − 600 (global-set-key "\C-z" 'zap-up-to-char))
+ − 601
+ − 602 ;; When not on a TTY, remove the binding of C-x C-c, which normally
+ − 603 ;; exits XEmacs. It's easy to hit this by mistake, and that can be
+ − 604 ;; annoying. You can always quit with the "Exit XEmacs" option on the
+ − 605 ;; File menu.
+ − 606
+ − 607 (when (console-on-window-system-p)
+ − 608 (global-set-key "\C-x\C-c" nil))
+ − 609
+ − 610 ;; Make C-k always delete the whole line, which is what most people want,
+ − 611 ;; anyway.
+ − 612 (setq kill-whole-line 'always)
+ − 613 ;; M-k does the old behavior (kill to end of line).
+ − 614 (global-set-key '(meta k) #'(lambda ()
+ − 615 (interactive)
+ − 616 (if (fboundp 'historical-kill-line)
+ − 617 (call-interactively #'historical-kill-line)
+ − 618 (let ((kill-whole-line nil))
+ − 619 (call-interactively #'kill-line)))))
+ − 620 ;; and Meta-Shift-K does what used to be on M-k, and should
+ − 621 ;; (hopefully) even work under TTY's.
+ − 622 (global-set-key '(meta K) 'kill-sentence)
+ − 623
+ − 624 ;; Make sure we get Windows-like shifted-motion key selection behavior
+ − 625 ;; on recent XEmacs versions.
558
+ − 626 (cond ((boundp 'shifted-motion-keys-select-region)
+ − 627 (setq shifted-motion-keys-select-region t))
+ − 628 ;; otherwise, try the pc-select package --
+ − 629 ((Init-safe-require 'pc-select)
+ − 630 (pc-select-mode 1)))
462
+ − 631
+ − 632 ;; The following commented-out code rearranges the keymap in an
+ − 633 ;; unconventional but extremely useful way for programmers. Parens
+ − 634 ;; and braces are both available without using the shift key (using
+ − 635 ;; the bracket keys and f11/f12, respectively). Brackets (much less
+ − 636 ;; used) are the shifted versions of the new paren keys (i.e. where
+ − 637 ;; the braces normally are).
+ − 638 ;;
+ − 639 ;; The idea for this comes from Jamie Zawinski.
+ − 640 ;;
+ − 641 ;; Also make a convenient keystroke for _, used constantly in C code.
+ − 642 ;;
+ − 643 ;; NOTE: you can (semi-) conveniently uncomment a region using
+ − 644 ;; C-u M-x comment-region, or the "Uncomment Region" menu item on the
+ − 645 ;; Lisp menu in new enough versions of XEmacs.
+ − 646
+ − 647 ;(keyboard-translate ?[ ?()
+ − 648 ;(keyboard-translate ?] ?))
+ − 649 ;(keyboard-translate ?{ ?[)
+ − 650 ;(keyboard-translate ?} ?])
+ − 651 ;;; We don't use `keyboard-translate' for these because it messes up
+ − 652 ;;; bindings for M-F9 and the like.
+ − 653 ;(define-key key-translation-map 'f11 "{")
+ − 654 ;(define-key key-translation-map 'f12 "}")
+ − 655 ;(define-key key-translation-map 'f9 "_")
+ − 656
+ − 657
+ − 658 ;;;;;;;;;;;;;;;;;;;;;;;;
+ − 659
+ − 660 ;; Useful programming-related keystrokes.
+ − 661
+ − 662 (defun describe-foo-at-point ()
464
+ − 663 "Show the documentation of the Elisp function and variable near point.
+ − 664 This checks in turn:
+ − 665
+ − 666 -- for a function name where point is
+ − 667 -- for a variable name where point is
+ − 668 -- for a surrounding function call
+ − 669 "
462
+ − 670 (interactive)
+ − 671 (let (sym)
+ − 672 ;; sigh, function-at-point is too clever. we want only the first half.
+ − 673 (cond ((setq sym (ignore-errors
+ − 674 (with-syntax-table emacs-lisp-mode-syntax-table
+ − 675 (save-excursion
+ − 676 (or (not (zerop (skip-syntax-backward "_w")))
+ − 677 (eq (char-syntax (char-after (point))) ?w)
+ − 678 (eq (char-syntax (char-after (point))) ?_)
+ − 679 (forward-sexp -1))
+ − 680 (skip-chars-forward "`'")
+ − 681 (let ((obj (read (current-buffer))))
+ − 682 (and (symbolp obj) (fboundp obj) obj))))))
+ − 683 (describe-function sym))
+ − 684 ((setq sym (variable-at-point)) (describe-variable sym))
+ − 685 ;; now let it operate fully -- i.e. also check the
+ − 686 ;; surrounding sexp for a function call.
+ − 687 ((setq sym (function-at-point)) (describe-function sym)))))
+ − 688
+ − 689 (global-set-key '(shift f4) 'next-error) ;; C-x `
+ − 690 (global-set-key '(control f4) 'previous-error)
+ − 691 (global-set-key '(shift f5) 'find-library)
+ − 692 (global-set-key '(control f5) 'find-function)
+ − 693 (global-set-key '(meta f5) 'find-variable)
+ − 694 (global-set-key '(shift f11) 'describe-foo-at-point)
+ − 695 (global-set-key '(control f11) 'eval-last-sexp)
+ − 696 ;; Edebug is a source-level debugger for Emacs Lisp programs. Put
+ − 697 ;; the cursor at the end of a function definition and "instrument" it
+ − 698 ;; with this command; then, you can single step through it the next
+ − 699 ;; time it's run.
+ − 700 (global-set-key '(meta f11) 'edebug-defun)
+ − 701 (global-set-key '(meta f12) 'add-change-log-entry)
+ − 702
+ − 703 ;; This nicely parallels M-*, which pops the tag stack. See below for
+ − 704 ;; how to set up tags.
+ − 705 (global-set-key '(control *) 'find-tag-at-point)
+ − 706
+ − 707 ;; Define a function to conveniently determine where time is being
+ − 708 ;; spent when executing commands or Lisp code.
+ − 709 (defun toggle-profiling ()
+ − 710 "Start profiling, or stop it and print results.
+ − 711 This lets you figure out where time is being spent when executing Lisp code."
+ − 712 (interactive)
+ − 713 (if (profiling-active-p)
+ − 714 (progn
+ − 715 (stop-profiling)
+ − 716 (message "...Finished profiling")
+ − 717 (profile-results))
+ − 718 (message "Profiling...")
+ − 719 (clear-profiling-info)
+ − 720 (start-profiling)))
+ − 721
+ − 722 ;; Note that sequences of C-c plus a letter are specifically
+ − 723 ;; reserved for users and should never be bound by any packages.
+ − 724
+ − 725 (global-set-key "\C-cp" 'toggle-profiling)
+ − 726
+ − 727 ;; LISPM bindings of Control-Shift-C and Control-Shift-E.
+ − 728 ;; See comment above about bindings like this.
+ − 729 (define-key emacs-lisp-mode-map '(control C) 'compile-defun)
+ − 730 (define-key emacs-lisp-mode-map '(control E) 'eval-defun)
+ − 731
+ − 732 ;;;;;;;;;;;;;;;;;;;;;;;;
+ − 733
+ − 734 ;; Numeric keypad.
+ − 735
+ − 736 ;; The numeric keypad as a whole is underused, and it's a good source
+ − 737 ;; of keys to bind to commands. Here we add some useful bindings.
+ − 738 ;; Because this is a sample file and I want to avoid unpleasant
+ − 739 ;; surprises for novices, I don't actually bind the shared
+ − 740 ;; numeric/cursor-motion keys because
+ − 741 ;;
+ − 742 ;; (a) someone keypads don't have separate motion keys (e.g. laptops?), and
+ − 743 ;; (b) TTY's and some X servers might not distinguish the regular and
+ − 744 ;; numeric-keypad motion keys.
+ − 745
+ − 746 ;; `kill-current-buffer' (defined below) deletes the current
+ − 747 ;; buffer. (Don't worry, you will be prompted to save if it's
+ − 748 ;; modified.) By repeatedly pressing keypad-minus, you can
+ − 749 ;; conveniently reduce the number of open buffers to a manageable size
+ − 750 ;; after you've opened a whole bunch of files and finished working on
+ − 751 ;; them. Shift plus keypad-minus kills both the current buffer and
+ − 752 ;; its window, and Control plus keypad-minus kills just the current
+ − 753 ;; window.
+ − 754
+ − 755 (global-set-key 'kp-subtract 'kill-current-buffer)
+ − 756 (global-set-key '(shift kp-subtract) 'kill-current-buffer-and-window)
+ − 757 (global-set-key '(control kp-subtract) 'delete-window)
+ − 758 ;; Ugh, modes that use `suppress-keymap' and are dumped with XEmacs will
+ − 759 ;; need their own definition. There is no easy way to fix this.
+ − 760 (define-key help-mode-map 'kp-subtract 'kill-current-buffer)
+ − 761 (define-key help-mode-map '(shift kp-subtract)
+ − 762 'kill-current-buffer-and-window)
+ − 763 (define-key list-mode-map 'kp-subtract 'kill-current-buffer)
+ − 764 (define-key list-mode-map '(shift kp-subtract)
+ − 765 'kill-current-buffer-and-window)
+ − 766
+ − 767 (defun kill-current-buffer ()
464
+ − 768 "Kill the current buffer (prompting if it is modified)."
462
+ − 769 (interactive)
+ − 770 (kill-buffer (current-buffer)))
+ − 771
+ − 772 (defun kill-current-buffer-and-window ()
464
+ − 773 "Kill the current buffer (prompting if it is modified) and its window."
462
+ − 774 (interactive)
+ − 775 (kill-buffer (current-buffer))
+ − 776 (delete-window))
+ − 777
464
+ − 778 (defvar grep-all-files-history nil)
+ − 779
+ − 780 (defvar grep-all-files-omitted-expressions
+ − 781 '("*~" "#*" ".#*" ",*" "*.elc" "*.obj" "*.o" "*.exe" "*.dll" "*.lib" "*.a"
+ − 782 "*.dvi" "*.class" "*.bin")
+ − 783 "List of expressions matching files to be omitted in `grep-all-files-...'.
+ − 784 Each entry should be a simple name or a shell wildcard expression.")
+ − 785
+ − 786 (defvar grep-all-files-omitted-directories '("CVS" "RCS" "SCCS")
+ − 787 "List of directories not to recurse into in `grep-all-files-...'.
+ − 788 Each entry should be a simple name or a shell wildcard expression.")
+ − 789
+ − 790 (defun construct-grep-all-files-command (find-segment grep-segment)
+ − 791 (let ((omit-annoying
+ − 792 (mapconcat #'(lambda (wildcard)
+ − 793 (concat "-name '" wildcard "' -or "))
+ − 794 grep-all-files-omitted-expressions
+ − 795 "")))
+ − 796 (cond ((eq grep-find-use-xargs 'gnu)
+ − 797 (format "find . %s %s -type f -print0 | xargs -0 -e %s"
+ − 798 find-segment omit-annoying grep-segment))
+ − 799 (grep-find-use-xargs
+ − 800 (format "find . %s %s -type f -print | xargs %s"
+ − 801 find-segment omit-annoying grep-segment))
+ − 802 (t
+ − 803 (format "find . %s %s -type f -exec %s {} /dev/null \\;"
+ − 804 find-segment omit-annoying grep-segment)))))
462
+ − 805
464
+ − 806 (defun grep-all-files-in-current-directory (command)
+ − 807 "Run `grep' in all non-annoying files in the current directory.
+ − 808 `Non-annoying' excludes backup files, autosave files, CVS merge files, etc.
+ − 809 More specifically, this is controlled by `grep-all-files-omitted-expressions'.
+ − 810
+ − 811 This function does not recurse into subdirectories. If you want this,
+ − 812 use \\[grep-all-files-in-current-directory-and-below]."
+ − 813 (interactive
+ − 814 (progn
+ − 815 (require 'compile)
+ − 816 (list (read-shell-command "Run grep (like this): "
+ − 817 grep-command 'grep-all-files-history))))
462
+ − 818 (require 'compile)
464
+ − 819 (grep (construct-grep-all-files-command
+ − 820 "-name . -or -type d -prune -or" command)))
+ − 821
479
+ − 822 (defun grep-all-files-in-current-directory-and-below (command)
464
+ − 823 "Run `grep' in all non-annoying files in the current directory and below.
+ − 824 `Non-annoying' excludes backup files, autosave files, CVS merge files, etc.
+ − 825 More specifically, this is controlled by `grep-all-files-omitted-expressions'.
462
+ − 826
464
+ − 827 This function recurses into subdirectories. If you do not want this,
+ − 828 use \\[grep-all-files-in-current-directory]."
+ − 829 (interactive
+ − 830 (progn
+ − 831 (require 'compile)
+ − 832 (list (read-shell-command "Run grep (like this): "
+ − 833 grep-command 'grep-all-files-history))))
+ − 834 (require 'compile)
+ − 835 (grep (construct-grep-all-files-command
+ − 836 ;; prune all specified directories.
+ − 837 (mapconcat #'(lambda (wildcard)
+ − 838 (concat "-name '" wildcard "' -prune -or "))
+ − 839 grep-all-files-omitted-directories
+ − 840 "")
+ − 841 command)))
462
+ − 842
+ − 843 (defun clear-select ()
464
+ − 844 "Repeatedly select ever larger balanced expressions around the cursor.
+ − 845 Once you have such an expression marked, you can expand to the end of
+ − 846 the following expression with \\[mark-sexp] and to the beginning of the
+ − 847 previous with \\[backward-sexp]."
462
+ − 848 (interactive "_") ;this means "preserve the active region after this command"
+ − 849 (backward-up-list 1)
+ − 850 (let ((end (save-excursion (forward-sexp) (point))))
+ − 851 (push-mark end nil t)))
+ − 852
+ − 853 ;; #### no kp-divide because it doesn't (currently) work on MS Windows
+ − 854 ;; -- always reports as /. #### this should be fixable.
+ − 855 (global-set-key 'kp-add 'query-replace)
+ − 856 (global-set-key '(shift kp-add) 'query-replace-regexp)
464
+ − 857 (global-set-key '(control kp-add) 'grep-all-files-in-current-directory)
+ − 858 (global-set-key '(meta kp-add) 'grep-all-files-in-current-directory-and-below)
462
+ − 859 (global-set-key 'clear 'clear-select)
+ − 860 ;; Note that you can use a "lambda" expression (an anonymous function)
+ − 861 ;; in place of a function name. This function would be called
+ − 862 ;; `pop-local-mark' and lets you repeatedly cycle back through recent
+ − 863 ;; marks (marks are set whenever you begin a selection, begin a
+ − 864 ;; successful search, are about to jump to the beginning or end of the
+ − 865 ;; buffer, etc.).
+ − 866 (global-set-key 'kp-enter (lambda () (interactive) (set-mark-command t)))
+ − 867 (global-set-key '(shift kp-enter) 'repeat-complex-command)
464
+ − 868 (global-set-key 'pause 'repeat-complex-command) ;; useful on Windows-style kbds
462
+ − 869 (global-set-key '(control kp-enter) 'eval-expression)
+ − 870
+ − 871 ;;;;;;;;;;;;;;;;;;;;;;;;
+ − 872
+ − 873 ;; Misc.
+ − 874
+ − 875 ;; If you want button2 to insert the selected text
+ − 876 ;; at point (where the text cursor is), instead of at the
+ − 877 ;; position clicked, uncomment the following:
+ − 878
+ − 879 ;(setq mouse-yank-at-point t)
+ − 880
+ − 881 ;; If you like the FSF Emacs binding of button3 (single-click
+ − 882 ;; extends the selection, double-click kills the selection),
+ − 883 ;; uncomment the following:
+ − 884
+ − 885 ;(define-key global-map 'button3 'mouse-track-adjust)
+ − 886
+ − 887 ;(add-hook 'mouse-track-click-hook
+ − 888 ; (lambda (event count)
+ − 889 ; (if (or (/= (event-button event) 3)
+ − 890 ; (/= count 2))
+ − 891 ; nil ;; do the normal operation
+ − 892 ; (kill-region (point) (mark))
+ − 893 ; t ;; don't do the normal operations.
+ − 894 ; )))
+ − 895
+ − 896 ;; Uncomment this to enable "sticky modifier keys". With sticky
+ − 897 ;; modifier keys enabled, you can press and release a modifier key
+ − 898 ;; before pressing the key to be modified, like how the ESC key works
+ − 899 ;; always. If you hold the modifier key down, however, you still get
+ − 900 ;; the standard behavior. I personally think this is the best thing
+ − 901 ;; since sliced bread (and a *major* win when it comes to reducing
+ − 902 ;; Emacs pinky), but it's disorienting at first so I'm not enabling it
+ − 903 ;; here by default.
+ − 904
+ − 905 ;(setq modifier-keys-are-sticky t)
+ − 906
+ − 907 ;; Enable the command `narrow-to-region' ("C-x n n"). It's a useful
+ − 908 ;; command, but possibly confusing to a new user, so it's disabled by
+ − 909 ;; default.
+ − 910 (put 'narrow-to-region 'disabled nil)
+ − 911
+ − 912 ;; Enable obvious hyperlink following with button1.
+ − 913 (setq Info-button1-follows-hyperlink t)
+ − 914
+ − 915
+ − 916 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+ − 917 ;; Change Some Basic Behaviors ;;
+ − 918 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+ − 919
+ − 920 ;; Change the values of some variables.
+ − 921 ;; (t means true; nil means false.)
+ − 922 ;;
+ − 923 ;; Use C-h v or `Help->Commands, Variables, Keys->Describe Variable...'
+ − 924 ;; to find out what these variables mean.
+ − 925 (setq
+ − 926 find-file-compare-truenames t
+ − 927 minibuffer-max-depth nil
+ − 928 )
+ − 929
+ − 930 ;; When running ispell, consider all 1-3 character words as correct.
+ − 931 (setq ispell-extra-args '("-W" "3"))
+ − 932
+ − 933 ;;; pending-delete-mode causes typed text to replace a selection,
+ − 934 ;;; rather than append -- standard behavior under all window systems
+ − 935 ;;; nowadays.
+ − 936
558
+ − 937 (if (fboundp 'pending-delete-mode)
+ − 938 (pending-delete-mode 1))
462
+ − 939
+ − 940 ;;; NOTE: In this context, `windows-nt' actually refers to all MS
+ − 941 ;;; Windows operating systems!
+ − 942 (when (eq system-type 'windows-nt)
+ − 943 ;; Get mail working under Windows.
+ − 944 (setq send-mail-function 'smtpmail-send-it)
+ − 945 (setq smtpmail-debug-info t)
+ − 946 ;; Substitute your info here.
+ − 947 ;(setq user-mail-address "ben@xemacs.org")
+ − 948 ;(setq user-full-name "Ben Wing")
+ − 949 ;(setq smtpmail-smtp-server "pop.tcsn.uswest.net")
+ − 950
464
+ − 951 ;; Make Meta+accelerator traverse to the menu in new enough XEmacs
462
+ − 952 ;; versions. Note that this only overrides Meta bindings that would
464
+ − 953 ;; actually invoke a menu, and the most common commands that are
+ − 954 ;; overridden have preferred alternative bindings using the arrow
+ − 955 ;; keys. You can always access the overridden ones using
+ − 956 ;; Shift+Meta+Key. (Note that "Alt" and "Meta" normally refer to the
+ − 957 ;; same key, except on some Sun keyboards [where "Meta" is actually
+ − 958 ;; labelled with a diamond] or if you have explicitly made them
+ − 959 ;; different under X Windows using `xmodmap'.)
+ − 960 ;;
+ − 961 ;; More specifically, the following bindings are overridden:
+ − 962 ;;
+ − 963 ;; M-f (use C-right or Sh-M-f instead)
+ − 964 ;; M-e (use M-C-right or Sh-M-e instead)
+ − 965 ;; M-v (use Prior aka PgUp or Sh-M-v instead)
+ − 966 ;; M-m (use Sh-M-m instead)
+ − 967 ;; M-t (use Sh-M-t instead)
+ − 968 ;; M-o (normally undefined)
+ − 969 ;; M-b (use C-left or Sh-M-b instead)
+ − 970 ;; M-h (use M-e h or Sh-M-h instead)
+ − 971 ;; in Lisp mode, M-l (use Sh-M-l instead)
+ − 972 ;; in C mode, M-c (use Sh-M-c instead)
+ − 973
462
+ − 974 (setq menu-accelerator-enabled 'menu-force)
+ − 975
+ − 976 ;; Make Cygwin `make' work inside a shell buffer.
558
+ − 977 (if (boundp 'setenv) (setenv "MAKE_MODE" "UNIX")))
462
+ − 978
+ − 979 ;; This shows how to set up the XEmacs side of tags. (To create the
+ − 980 ;; TAGS table, use the `etags' program found in the XEmacs bin
+ − 981 ;; directory. Run it in the root directory of your source tree and
+ − 982 ;; specify all source and include files on the command line.)
+ − 983 ;(setq tag-table-alist
+ − 984 ; '(
+ − 985 ; ;; Everywhere in the /src/xemacs/gui/ source tree will use the TAGS
+ − 986 ; ;; file in /src/xemacs/gui/.
+ − 987 ; ("/src/xemacs/gui/" . "/src/xemacs/gui/")
+ − 988 ; ;; Everywhere in the /src/xemacs/mule/ source tree will use the TAGS
+ − 989 ; ;; file in /src/xemacs/mule/.
+ − 990 ; ("/src/xemacs/mule/" . "/src/xemacs/mule/")
+ − 991 ; ;; etc.
+ − 992 ; ("/src/xemacs/fixup/" . "/src/xemacs/fixup/")
+ − 993 ; ("/src/emacs/emacs-20.6/" . "/src/emacs/emacs-20.6/")
+ − 994 ; ("/src/xemacs/latest/" . "/src/xemacs/latest/")
+ − 995 ; ;; Everywhere else will use the TAGS file in
+ − 996 ; ;; /src/xemacs/fixup/.
+ − 997 ; ("" . "/src/xemacs/fixup/")
+ − 998 ; ))
+ − 999
+ − 1000
+ − 1001 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+ − 1002 ;; Change Some Aspects of GUI Appearance ;;
+ − 1003 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+ − 1004
+ − 1005 ;; Changes the text in the window title bar, to switch to MS Windows
+ − 1006 ;; format (filename goes first, for best identification in icons) and
+ − 1007 ;; add the version and full executable path. (However, it is not
+ − 1008 ;; changed unless it currently has the default value, to avoid
+ − 1009 ;; interfering with a -wn command line argument I may have started
+ − 1010 ;; XEmacs with.)
+ − 1011
+ − 1012 (if (or (equal frame-title-format "%S: %b")
+ − 1013 (equal frame-title-format "%b - XEmacs"))
+ − 1014 (setq frame-title-format
+ − 1015 (concat "%b - XEmacs "
+ − 1016 (progn (string-match "\\(.*?\\)\\( XEmacs Lucid\\)?$"
+ − 1017 emacs-version)
+ − 1018 (match-string 1 emacs-version))
+ − 1019 " [" invocation-directory invocation-name "]")))
+ − 1020
+ − 1021 ;; Load some nifty sounds that will replace the default beep.
+ − 1022 ;;
+ − 1023 ;; (Note that sampled sounds only work if XEmacs was compiled with
+ − 1024 ;; sound support and we're running on MS Windows, on a machine which
+ − 1025 ;; has a NetAudio or ESD server, or on the console of a Linux, Sparc,
+ − 1026 ;; HP, or SGI machine. Otherwise, you just get the standard beep.)
+ − 1027
558
+ − 1028 (cond ((and (fboundp 'load-default-sounds)
+ − 1029 (or (and (getenv "DISPLAY")
+ − 1030 (string-match ":0" (getenv "DISPLAY")))
+ − 1031 (and (eq (console-type) 'mswindows)
+ − 1032 (device-sound-enabled-p))))
+ − 1033 (condition-case nil
+ − 1034 (progn
+ − 1035 (load-default-sounds)
+ − 1036 ;; On Windows, at least, the sound "quiet-beep", which is normally
+ − 1037 ;; given the symbolic name `quiet' and is used for Quit and such,
+ − 1038 ;; is just totally disgusting. So make this name correspond to a
+ − 1039 ;; more innocuous sound.
+ − 1040 (load-sound-file "drum-beep" 'quiet 80))
+ − 1041 (error nil)))
462
+ − 1042 (t
+ − 1043 (setq bell-volume 40)
+ − 1044 (setq sound-alist
+ − 1045 (append sound-alist '((no-completion :pitch 500))))
+ − 1046 ))
+ − 1047
+ − 1048 ;; Change the continuation glyph face so it stands out more
+ − 1049 (make-face-bold (glyph-face continuation-glyph))
+ − 1050
+ − 1051 ;; Change the pointer used during garbage collection.
+ − 1052 ;;
+ − 1053 ;; Note that this pointer image is rather large as pointers go,
+ − 1054 ;; and so it won't work on some X servers (such as the MIT
+ − 1055 ;; R5 Sun server) because servers may have lamentably small
+ − 1056 ;; upper limits on pointer size.
+ − 1057 ;;(if (featurep 'xpm)
+ − 1058 ;; (set-glyph-image gc-pointer-glyph
+ − 1059 ;; (expand-file-name "trash.xpm" data-directory)))
+ − 1060
+ − 1061 ;; Here's another way to do that: it first tries to load the
+ − 1062 ;; pointer once and traps the error, just to see if it's
+ − 1063 ;; possible to load that pointer on this system; if it is,
+ − 1064 ;; then it sets gc-pointer-glyph, because we know that
+ − 1065 ;; will work. Otherwise, it doesn't change that variable
+ − 1066 ;; because we know it will just cause some error messages.
+ − 1067 (if (featurep 'xpm)
+ − 1068 (let ((file (expand-file-name "recycle.xpm" data-directory)))
+ − 1069 (if (condition-case nil
+ − 1070 ;; check to make sure we can use the pointer.
+ − 1071 (make-image-instance file nil
+ − 1072 '(pointer))
+ − 1073 (error nil)) ; returns nil if an error occurred.
+ − 1074 (set-glyph-image gc-pointer-glyph file))))
+ − 1075
+ − 1076 ;(when (featurep 'menubar)
+ − 1077 ; ;; Add `dired' to the File menu
+ − 1078 ; (add-menu-button '("File") ["Edit Directory" dired])
+ − 1079
+ − 1080 ; ;; Here's a way to add scrollbar-like buttons to the menubar
+ − 1081 ; (add-menu-button nil ["Top" beginning-of-buffer])
+ − 1082 ; (add-menu-button nil ["<<<" scroll-down])
+ − 1083 ; (add-menu-button nil [" . " recenter])
+ − 1084 ; (add-menu-button nil [">>>" scroll-up])
+ − 1085 ; (add-menu-button nil ["Bot" end-of-buffer]))
+ − 1086
+ − 1087 ;; Here's a cute hack that shows how to programmatically change some
+ − 1088 ;; text colors. It changes the background color of the window if it's
+ − 1089 ;; not on the local machine, or if it's running as root:
+ − 1090
+ − 1091 ;; local emacs background: whitesmoke [i.e. the default color]
+ − 1092 ;; remote emacs background: palegreen1
+ − 1093 ;; root emacs background: coral2
+ − 1094
+ − 1095 ;; Uncomment to enable.
+ − 1096
+ − 1097 ;(cond
+ − 1098 ; ((and running-xemacs
+ − 1099 ; (console-on-window-system-p)
+ − 1100 ; ;; this does not make much sense on Windows.
+ − 1101 ; (not (eq system-type 'windows-nt)))
+ − 1102 ; (let* ((root-p (eq 0 (user-uid)))
+ − 1103 ; (dpy (or (getenv "DISPLAY") ""))
+ − 1104 ; (remote-p (not
+ − 1105 ; (or (string-match "^\\(\\|unix\\|localhost\\):" dpy)
+ − 1106 ; (let ((s (system-name)))
+ − 1107 ; (if (string-match "\\.\\(netscape\\|mcom\\)\\.com" s)
+ − 1108 ; (setq s (substring s 0 (match-beginning 0))))
+ − 1109 ; (string-match (concat "^" (regexp-quote s)) dpy)))))
+ − 1110 ; (bg (cond (root-p "coral2")
+ − 1111 ; (remote-p "palegreen1")
+ − 1112 ; (t nil))))
+ − 1113 ; (cond (bg
+ − 1114 ; (let ((def (color-name (face-background 'default)))
+ − 1115 ; (faces (face-list)))
+ − 1116 ; (while faces
+ − 1117 ; (let ((obg (face-background (car faces))))
+ − 1118 ; (if (and obg (equal def (color-name obg)))
+ − 1119 ; (set-face-background (car faces) bg)))
+ − 1120 ; (setq faces (cdr faces)))))))))
+ − 1121
+ − 1122
+ − 1123 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+ − 1124 ;; Changing the Modeline ;;
+ − 1125 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+ − 1126
+ − 1127 ;; Enable line numbers and column numbers. This is done in C code now
+ − 1128 ;; and is very fast.
+ − 1129 (line-number-mode 1)
+ − 1130 (column-number-mode 1)
+ − 1131
+ − 1132 ;; Rearrange the modeline so that everything is to the left of the
+ − 1133 ;; long list of minor modes, which is relatively unimportant but takes
+ − 1134 ;; up so much room that anything to the right is obliterated.
+ − 1135
+ − 1136 (setq-default
+ − 1137 modeline-format
+ − 1138 (list
+ − 1139 ""
+ − 1140 (if (boundp 'modeline-multibyte-status) 'modeline-multibyte-status "")
+ − 1141 (cons modeline-modified-extent 'modeline-modified)
+ − 1142 (cons modeline-buffer-id-extent
+ − 1143 (list (cons modeline-buffer-id-left-extent
+ − 1144 (cons 15 (list
+ − 1145 (list 'line-number-mode "L%l ")
+ − 1146 (list 'column-number-mode "C%c ")
+ − 1147 (cons -3 "%p"))))
+ − 1148 (cons modeline-buffer-id-right-extent "%17b")))
+ − 1149 " "
+ − 1150 'global-mode-string
+ − 1151 " %[("
+ − 1152 (cons modeline-minor-mode-extent
+ − 1153 (list "" 'mode-name 'minor-mode-alist))
+ − 1154 (cons modeline-narrowed-extent "%n")
+ − 1155 'modeline-process
+ − 1156 ")%]----"
+ − 1157 "%-"
+ − 1158 ))
+ − 1159
+ − 1160 ;; Get rid of modeline information taking up too much space -- in
+ − 1161 ;; particular, minor modes that are always enabled.
+ − 1162 (setq pending-delete-modeline-string "")
+ − 1163 (setq filladapt-mode-line-string "")
+ − 1164 ;; lazy-lock doesn't have a variable for its modeline name, so we have
+ − 1165 ;; to do a bit of surgery.
+ − 1166 (and (assoc 'lazy-lock-mode minor-mode-alist)
+ − 1167 (setcdr (cdr (cadr (assoc 'lazy-lock-mode minor-mode-alist))) ""))
+ − 1168
+ − 1169
+ − 1170
+ − 1171 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+ − 1172 ;; Customization of Specific Packages ;;
+ − 1173 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+ − 1174
+ − 1175
+ − 1176 ;;; ********************
+ − 1177 ;;; Load gnuserv, which will allow you to connect to XEmacs sessions
+ − 1178 ;;; using `gnuclient'.
+ − 1179
+ − 1180 ;; If you never run more than one XEmacs at a time, you might want to
+ − 1181 ;; always start gnuserv. Otherwise it is preferable to specify
+ − 1182 ;; `-f gnuserv-start' on the command line to one of the XEmacsen.
+ − 1183 ; (gnuserv-start)
+ − 1184
+ − 1185
+ − 1186 ;;; ********************
+ − 1187 ;;; Load efs, which uses the FTP protocol as a pseudo-filesystem.
+ − 1188 ;;; When this is loaded, the pathname syntax /user@host:/remote/path
+ − 1189 ;;; refers to files accessible through ftp.
+ − 1190 ;;;
558
+ − 1191 (Init-safe-require 'dired)
462
+ − 1192
558
+ − 1193 (or (Init-safe-require 'efs-auto) (Init-safe-require 'ange-ftp))
462
+ − 1194
+ − 1195 ;;; ********************
+ − 1196 ;;; Load the default-dir.el package which installs fancy handling of
+ − 1197 ;;; the initial contents in the minibuffer when reading file names.
558
+ − 1198 ;; #### but it seems to cause some breakage.
+ − 1199 ;(Init-safe-require 'default-dir))
462
+ − 1200
+ − 1201 ;;; ********************
+ − 1202 ;;; Put all of your autosave files in one place, instead of scattering
+ − 1203 ;;; them around the file system. This has many advantages -- e.g. it
+ − 1204 ;;; will eliminate slowdowns caused by editing files on a slow NFS
+ − 1205 ;;; server. (*Provided* that your home directory is local or on a
+ − 1206 ;;; fast server! If not, pick a value for `auto-save-directory' that
+ − 1207 ;;; is fast fast fast!)
+ − 1208 ;;;
+ − 1209 ;;; Unfortunately, the code that implements this (auto-save.el) is
558
+ − 1210 ;;; broken on Windows prior to 21.4.
462
+ − 1211 (unless (and (eq system-type 'windows-nt)
558
+ − 1212 (not (emacs-version>= 21 4)))
462
+ − 1213 (setq auto-save-directory (expand-file-name "~/.autosave/")
+ − 1214 auto-save-directory-fallback auto-save-directory
+ − 1215 auto-save-hash-p nil
+ − 1216 efs-auto-save t
+ − 1217 efs-auto-save-remotely nil
+ − 1218 ;; now that we have auto-save-timeout, let's crank this up
+ − 1219 ;; for better interactive response.
+ − 1220 auto-save-interval 2000
+ − 1221 )
+ − 1222 )
+ − 1223
+ − 1224
+ − 1225 ;;; ********************
+ − 1226 ;;; cc-mode (the mode you're in when editing C, C++, and Objective C files)
+ − 1227
+ − 1228 ;; Tell cc-mode not to check for old-style (K&R) function declarations.
+ − 1229 ;; This speeds up indenting a lot.
+ − 1230 (setq c-recognize-knr-p nil)
+ − 1231
+ − 1232 ;; Change the indentation amount to 4 spaces instead of 2.
+ − 1233 ;; You have to do it in this complicated way because of the
+ − 1234 ;; strange way the cc-mode initializes the value of `c-basic-offset'.
+ − 1235 ;; (add-hook 'c-mode-hook (lambda () (setq c-basic-offset 4)))
+ − 1236
+ − 1237
+ − 1238 ;;; ********************
+ − 1239 ;;; Load a partial-completion mechanism, which makes minibuffer completion
+ − 1240 ;;; search multiple words instead of just prefixes; for example, the command
+ − 1241 ;;; `M-x byte-compile-and-load-file RET' can be abbreviated as `M-x b-c-a RET'
+ − 1242 ;;; because there are no other commands whose first three words begin with
+ − 1243 ;;; the letters `b', `c', and `a' respectively.
+ − 1244 ;;;
558
+ − 1245 (Init-safe-require 'completer)
462
+ − 1246
+ − 1247
+ − 1248 ;;; ********************
+ − 1249 ;;; Load crypt, which is a package for automatically decoding and reencoding
+ − 1250 ;;; files by various methods - for example, you can visit a .Z or .gz file,
+ − 1251 ;;; edit it, and have it automatically re-compressed when you save it again.
+ − 1252 ;;;
+ − 1253 (setq crypt-encryption-type 'pgp ; default encryption mechanism
+ − 1254 crypt-confirm-password t ; make sure new passwords are correct
+ − 1255 ;crypt-never-ever-decrypt t ; if you don't encrypt anything, set this to
+ − 1256 ; tell it not to assume that "binary" files
+ − 1257 ; are encrypted and require a password.
+ − 1258 )
558
+ − 1259 (Init-safe-require 'crypt)
462
+ − 1260
+ − 1261
+ − 1262 ;;; ********************
+ − 1263 ;;; Filladapt is a syntax-highlighting package. When it is enabled it
+ − 1264 ;;; makes filling (e.g. using M-q) much much smarter about paragraphs
+ − 1265 ;;; that are indented and/or are set off with semicolons, dashes, etc.
+ − 1266
558
+ − 1267 (Init-safe-require 'filladapt)
462
+ − 1268 (setq-default filladapt-mode t)
558
+ − 1269 (when (fboundp 'turn-off-filladapt-mode)
+ − 1270 (add-hook 'c-mode-hook 'turn-off-filladapt-mode)
+ − 1271 (add-hook 'outline-mode-hook 'turn-off-filladapt-mode))
462
+ − 1272
+ − 1273
+ − 1274 ;;; ********************
+ − 1275 ;;; Font-Lock is a syntax-highlighting package. When it is enabled and you
+ − 1276 ;;; are editing a program, different parts of your program will appear in
+ − 1277 ;;; different fonts or colors. For example, with the code below, comments
+ − 1278 ;;; appear in red italics, function names in function definitions appear in
+ − 1279 ;;; blue bold, etc. The code below will cause font-lock to automatically be
+ − 1280 ;;; enabled when you edit C, C++, Emacs-Lisp, and many other kinds of
+ − 1281 ;;; programs.
+ − 1282 ;;;
+ − 1283 ;;; The "Options" menu has some commands for controlling this as well.
+ − 1284 ;;;
+ − 1285 (cond (running-xemacs
+ − 1286
+ − 1287 ;; The commented-out code below is an example of setting up custom
+ − 1288 ;; font-lock colors.
+ − 1289
+ − 1290 ; ;; If you want the default colors, you could do this:
+ − 1291 ; ;; (setq font-lock-use-default-fonts nil)
+ − 1292 ; ;; (setq font-lock-use-default-colors t)
+ − 1293 ; ;; but I want to specify my own colors, so I turn off all
+ − 1294 ; ;; default values.
+ − 1295 ; (setq font-lock-use-default-fonts nil)
+ − 1296 ; (setq font-lock-use-default-colors nil)
+ − 1297
558
+ − 1298 (Init-safe-require 'font-lock)
462
+ − 1299
+ − 1300 ; ;; Mess around with the faces a bit. Note that you have
+ − 1301 ; ;; to change the font-lock-use-default-* variables *before*
+ − 1302 ; ;; loading font-lock, and wait till *after* loading font-lock
+ − 1303 ; ;; to customize the faces.
+ − 1304
+ − 1305 ; ;; string face is green
+ − 1306 ; (set-face-foreground 'font-lock-string-face "forest green")
+ − 1307
+ − 1308 ; ;; comments are italic and red; doc strings are italic
+ − 1309 ; (set-face-font 'font-lock-comment-face [italic])
+ − 1310 ; ;; Underlining comments looks terrible on tty's
+ − 1311 ; (set-face-underline-p 'font-lock-comment-face nil 'global 'tty)
+ − 1312 ; (set-face-highlight-p 'font-lock-comment-face t 'global 'tty)
+ − 1313 ; (copy-face 'font-lock-comment-face 'font-lock-doc-string-face)
+ − 1314 ; (set-face-foreground 'font-lock-comment-face "red")
+ − 1315
+ − 1316 ; ;; function names are bold and blue
+ − 1317 ; (set-face-font 'font-lock-function-name-face [bold])
+ − 1318 ; (set-face-foreground 'font-lock-function-name-face "blue")
+ − 1319
+ − 1320 ; ;; misc. faces
+ − 1321 ; (set-face-font 'font-lock-preprocessor-face [bold])
+ − 1322 ; (set-face-font 'font-lock-type-face [italic])
+ − 1323 ; (set-face-font 'font-lock-keyword-face [bold])
+ − 1324 ))
+ − 1325
+ − 1326
+ − 1327 ;;; ********************
+ − 1328 ;;; lazy-lock is a package which speeds up the highlighting of files
+ − 1329 ;;; by doing it "on-the-fly" -- only the visible portion of the
+ − 1330 ;;; buffer is fontified. The results may not always be quite as
+ − 1331 ;;; accurate as using full font-lock or fast-lock, but it's *much*
+ − 1332 ;;; faster. No more annoying pauses when you load files.
+ − 1333
558
+ − 1334 (if (fboundp 'turn-on-lazy-lock)
+ − 1335 (add-hook 'font-lock-mode-hook 'turn-on-lazy-lock))
+ − 1336
462
+ − 1337 ;; I personally don't like "stealth mode" (where lazy-lock starts
+ − 1338 ;; fontifying in the background if you're idle for 30 seconds)
558
+ − 1339 ;; because it takes too long to wake up again.
462
+ − 1340 (setq lazy-lock-stealth-time nil)
+ − 1341
+ − 1342
+ − 1343 ;;; ********************
+ − 1344 ;;; func-menu is a package that scans your source file for function
+ − 1345 ;;; definitions and makes a menubar entry that lets you jump to any
+ − 1346 ;;; particular function definition by selecting it from the menu. The
+ − 1347 ;;; following code turns this on for all of the recognized languages.
+ − 1348 ;;; Scanning the buffer takes some time, but not much.
+ − 1349 ;;;
+ − 1350 ;;; Send bug reports, enhancements etc to:
+ − 1351 ;;; David Hughes <ukchugd@ukpmr.cs.philips.nl>
+ − 1352 ;;;
558
+ − 1353 (cond ((and running-xemacs (Init-safe-require 'func-menu))
462
+ − 1354 (global-set-key '(shift f12) 'function-menu)
+ − 1355 (add-hook 'find-file-hooks 'fume-add-menubar-entry)
+ − 1356 (global-set-key "\C-cl" 'fume-list-functions)
+ − 1357 (global-set-key "\C-cg" 'fume-prompt-function-goto)
+ − 1358
+ − 1359 ;; The Hyperbole information manager package uses (shift button2) and
+ − 1360 ;; (shift button3) to provide context-sensitive mouse keys. If you
+ − 1361 ;; use this next binding, it will conflict with Hyperbole's setup.
+ − 1362 ;; Choose another mouse key if you use Hyperbole.
+ − 1363 (global-set-key '(shift button3) 'mouse-function-menu)
+ − 1364
+ − 1365 ;; For descriptions of the following user-customizable variables,
+ − 1366 ;; type C-h v <variable>
+ − 1367 (setq fume-max-items 25
+ − 1368 fume-fn-window-position 3
+ − 1369 fume-auto-position-popup t
+ − 1370 fume-display-in-modeline-p t
+ − 1371 fume-menubar-menu-name
+ − 1372 (if (fboundp 'submenu-generate-accelerator-spec)
+ − 1373 "Function%_s" "Functions")
+ − 1374 fume-buffer-name "*Function List*"
+ − 1375 fume-no-prompt-on-valid-default nil)
+ − 1376 ))
+ − 1377
+ − 1378
+ − 1379 ;;; ********************
+ − 1380 ;;; MH is a mail-reading system from the Rand Corporation that relies on a
+ − 1381 ;;; number of external filter programs (which do not come with emacs.)
+ − 1382 ;;; Emacs provides a nice front-end onto MH, called "mh-e".
+ − 1383 ;;;
+ − 1384 ;; Bindings that let you send or read mail using MH
+ − 1385 ;(global-set-key "\C-xm" 'mh-smail)
+ − 1386 ;(global-set-key "\C-x4m" 'mh-smail-other-window)
+ − 1387 ;(global-set-key "\C-cr" 'mh-rmail)
+ − 1388
+ − 1389 ;; Customization of MH behavior.
+ − 1390 (setq mh-delete-yanked-msg-window t)
+ − 1391 (setq mh-yank-from-start-of-msg 'body)
+ − 1392 (setq mh-summary-height 11)
+ − 1393
+ − 1394 ;; Use lines like the following if your version of MH
+ − 1395 ;; is in a special place.
+ − 1396 ;(setq mh-progs "/usr/dist/pkgs/mh/bin.svr4/")
+ − 1397 ;(setq mh-lib "/usr/dist/pkgs/mh/lib.svr4/")
+ − 1398
+ − 1399
+ − 1400 ;;; ********************
+ − 1401 ;;; resize-minibuffer-mode makes the minibuffer automatically
+ − 1402 ;;; resize as necessary when it's too big to hold its contents.
+ − 1403
558
+ − 1404 (when (fboundp 'resize-minibuffer-mode)
+ − 1405 (resize-minibuffer-mode)
+ − 1406 (setq resize-minibuffer-window-exactly nil))
462
+ − 1407
+ − 1408
+ − 1409 ;;; ********************
+ − 1410 ;;; scroll-in-place is a package that keeps the cursor on the same line (and in the same column) when scrolling by a page using PgUp/PgDn.
+ − 1411
558
+ − 1412 (if (Init-safe-require 'scroll-in-place)
+ − 1413 (turn-on-scroll-in-place))
462
+ − 1414
+ − 1415
+ − 1416 ;;; ********************
+ − 1417 ;;; W3 is a browser for the World Wide Web, and takes advantage of the very
+ − 1418 ;;; latest redisplay features in XEmacs. You can access it simply by typing
+ − 1419 ;;; 'M-x w3'; however, if you're unlucky enough to be on a machine that is
+ − 1420 ;;; behind a firewall, you will have to do something like this first:
+ − 1421
+ − 1422 ;(setq w3-use-telnet t
+ − 1423 ; ;;
+ − 1424 ; ;; If the Telnet program you use to access the outside world is
+ − 1425 ; ;; not called "telnet", specify its name like this.
+ − 1426 ; w3-telnet-prog "itelnet"
+ − 1427 ; ;;
+ − 1428 ; ;; If your Telnet program adds lines of junk at the beginning
+ − 1429 ; ;; of the session, specify the number of lines here.
+ − 1430 ; w3-telnet-header-length 4
+ − 1431 ; )