Mercurial > hg > xemacs-beta

comparison etc/sample.emacs @ 151:59463afc5666 r20-3b2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b2
author cvs
date Mon, 13 Aug 2007 09:37:19 +0200
parents 9f59509498e1
children e45d5e7c476e
comparison
equal deleted inserted replaced
150:8ebb1c0f0f6f 151:59463afc5666
14 14
15 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 15 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
16 ;; Basic Customization ;; 16 ;; Basic Customization ;;
17 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 17 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
18 18
19 ;; Enable the commands `narrow-to-region' ("C-x n n") and 19 ;; Enable the command `narrow-to-region' ("C-x n n"), a useful
20 ;; `eval-expression' ("M-:", or "ESC :"). Both are useful 20 ;; command, but possibly confusing to a new user, so it's disabled by
21 ;; commands, but they can be confusing for a new user, so they're 21 ;; default.
22 ;; disabled by default.
23 (put 'narrow-to-region 'disabled nil) 22 (put 'narrow-to-region 'disabled nil)
24 (put 'eval-expression 'disabled nil)
25 23
26 ;;; Define a variable to indicate whether we're running XEmacs/Lucid Emacs. 24 ;;; Define a variable to indicate whether we're running XEmacs/Lucid Emacs.
27 ;;; (You do not have to defvar a global variable before using it -- 25 ;;; (You do not have to defvar a global variable before using it --
28 ;;; you can just call `setq' directly like we do for `emacs-major-version' 26 ;;; you can just call `setq' directly like we do for `emacs-major-version'
29 ;;; below. It's clearer this way, though.) 27 ;;; below. It's clearer this way, though.)
52 ;; Make F4 be "mark", F5 be "copy", F6 be "paste" 50 ;; Make F4 be "mark", F5 be "copy", F6 be "paste"
53 ;; Note that you can set a key sequence either to a command or to another 51 ;; Note that you can set a key sequence either to a command or to another
54 ;; key sequence. 52 ;; key sequence.
55 (global-set-key [f4] 'set-mark-command) 53 (global-set-key [f4] 'set-mark-command)
56 (global-set-key [f5] "\M-w") 54 (global-set-key [f5] "\M-w")
57 (global-set-key [f6]"\C-y") 55 (global-set-key [f6] "\C-y")
58 56
59 ;; Shift-F4 is "pop mark off of stack" 57 ;; Shift-F4 is "pop mark off of stack"
60 (global-set-key '(shift f4) (lambda () (interactive) (set-mark-command t))) 58 (global-set-key [(shift f4)] (lambda () (interactive) (set-mark-command t)))
61 59
62 ;; Make F7 be `save-buffer' 60 ;; Make F7 be `save-buffer'
63 (global-set-key [f7] 'save-buffer) 61 (global-set-key [f7] 'save-buffer)
64 62
65 ;; Make F8 be "start macro", F9 be "end macro", F10 be "execute macro" 63 ;; Make F8 be "start macro", F9 be "end macro", F10 be "execute macro"
348 346
349 347
350 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 348 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
351 ;; Customization of Specific Packages ;; 349 ;; Customization of Specific Packages ;;
352 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 350 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
351
352 ;;; Load gnuserv, which will allow you to connect to XEmacs sessions
353 ;;; using `gnuclient'.
354
355 ;; If you never run more than one XEmacs at a time, you might want to
356 ;; always start gnuserv. Otherwise it is preferable to specify
357 ;; `-f gnuserv-start' on the command line to one of the XEmacsen.
358 ; (gnuserv-start)
353 359
354 360
355 ;;; ******************** 361 ;;; ********************
356 ;;; Load efs, which uses the FTP protocol as a pseudo-filesystem. 362 ;;; Load efs, which uses the FTP protocol as a pseudo-filesystem.
357 ;;; When this is loaded, the pathname syntax /user@host:/remote/path 363 ;;; When this is loaded, the pathname syntax /user@host:/remote/path