xemacs-beta: etc/sample.init.el comparison

comparison etc/sample.init.el @ 558:ed498ef2108b

[xemacs-hg @ 2001-05-23 09:59:33 by ben] xemacs.mak: call `ver' to get the exact os version and put it in the installation; suggestion from adrian. behavior-defs.el: Add scroll-in-place, jka-compr, efs, fix up some things. pop.c: Remove BROKEN_CYGWIN. etc\sample.init.el: Rewrite to be much more careful about loading features -- now it decays gracefully even in the complete absence of packages. Also avoid doing obnoxious things when loading efs. configure.in: add some support for eventually turning on file coding by default. Fix numerous places where AC_MSG_WARN had quotes around its arg, which is bad. Replace with []. Same for AC_MSG_ERROR. s\cygwin32.h, s\mingw32.h: remove support for way old beta versions of cygwin. don't put -Wno-sign-compare in the system switches; this isn't a system issue. define BROKEN_SIGIO for cygwin to get C-g support. device-msw.c: signal an error rather than crash with an unavailable network printer (from Mike Alexander). event-msw.c: cleanup headers. fix (hopefully) an error with data corruption when sending to a network connection. fileio.c: Fix evil code that attempts to handle the ~user prefix by (a) always assuming we're referencing ourselves and not even verifying the user -- hence any file with a tilde as its first char is invalid! (b) if there wasn't a slash following the filename, the pointer was set *past* the end of file and we started reading from uninitialized memory. Now we simply treat these as files, always. optionally for 21.4 (doc fix): lread.c: cambia de pas_de_lache_ici -- al minimo usa la palabra certa. frame.c: fix warnings. emacs.c, nt.c, ntproc.c, process-nt.c, realpath.c, unexnt.c: rename MAX_PATH to standard PATH_MAX. process-nt.c, realpath.c: cleanup headers. process-unix.c, sysdep.c, systime.h, syswindows.h: kill BROKEN_CYGWIN and support for way old beta versions of cygwin. sysfile.h: use _MAX_PATH (Windows) preferentially for PATH_MAX if defined. include io.h on Cygwin (we need get_osfhandle()). include sys/fcntl.h always, since we were including it in various header files anyway. unexcw.c: fix up style to conform to standard. remove duplicate definition of PERROR. buffer.c: comment change. database.c, debug.h, device-tty.c, dired-msw.c, glyphs-msw.c: header cleanups (remove places that directly include a system header file, because we have our own layer to do this more cleanly and portably); indentation fixes.

author	ben
date	Wed, 23 May 2001 09:59:48 +0000
parents	52626a2f02ef
children	943eaba38521

comparison

equal deleted inserted replaced

-:f486da5f1a3b
+:ed498ef2108b
 ; 	    (emacs-version>= 20 0))
 ;        ;;
 ;        ;; Code specific to GNU Emacs 20 or newer (not XEmacs) goes here
 ;        ;;
 ;        ))
+(defun Init-safe-require (feat)
+"Try to REQUIRE the specified feature.  Errors occurring are silenced.
+\(Perhaps in the future there will be a way to get at the error.)
+Returns t if the feature was successfully required."
+(condition-case nil
+(progn (require feat) t)
+(error nil)))
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;;                          Key Definitions                         ;;
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; (hopefully) even work under TTY's.
 (global-set-key '(meta K) 'kill-sentence)
 ;; Make sure we get Windows-like shifted-motion key selection behavior
 ;; on recent XEmacs versions.
-(if (boundp 'shifted-motion-keys-select-region)
+(cond ((boundp 'shifted-motion-keys-select-region)
-(setq shifted-motion-keys-select-region t)
+(setq shifted-motion-keys-select-region t))
 ;; otherwise, try the pc-select package --
-(condition-case nil
+((Init-safe-require 'pc-select)
-(progn
+(pc-select-mode 1)))
-	(require 'pc-select)
-	(pc-select-mode 1))
-(error nil)))
 ;; The following commented-out code rearranges the keymap in an
 ;; unconventional but extremely useful way for programmers.  Parens
 ;; and braces are both available without using the shift key (using
 ;; the bracket keys and f11/f12, respectively).  Brackets (much less
 ;;; pending-delete-mode causes typed text to replace a selection,
 ;;; rather than append -- standard behavior under all window systems
 ;;; nowadays.
-(pending-delete-mode 1)
+(if (fboundp 'pending-delete-mode)
+(pending-delete-mode 1))
-;;; enable region selection with shift+arrows (on by default in 21.5
-;;; and up)
-(setq shifted-motion-keys-select-region t)
 ;;; NOTE: In this context, `windows-nt' actually refers to all MS
 ;;; Windows operating systems!
 (when (eq system-type 'windows-nt)
 ;; Get mail working under Windows.
 ;; in C mode, M-c	(use Sh-M-c instead)
 (setq menu-accelerator-enabled 'menu-force)
 ;; Make Cygwin `make' work inside a shell buffer.
-(setenv "MAKE_MODE" "UNIX"))
+(if (boundp 'setenv) (setenv "MAKE_MODE" "UNIX")))
 ;; This shows how to set up the XEmacs side of tags. (To create the
 ;; TAGS table, use the `etags' program found in the XEmacs bin
 ;; directory.  Run it in the root directory of your source tree and
 ;; specify all source and include files on the command line.)
 ;; (Note that sampled sounds only work if XEmacs was compiled with
 ;; sound support and we're running on MS Windows, on a machine which
 ;; has a NetAudio or ESD server, or on the console of a Linux, Sparc,
 ;; HP, or SGI machine.  Otherwise, you just get the standard beep.)
-(cond ((or (and (getenv "DISPLAY")
+(cond ((and (fboundp 'load-default-sounds)
-		(string-match ":0" (getenv "DISPLAY")))
+	    (or (and (getenv "DISPLAY")
-	   (and (eq (console-type) 'mswindows)
+		     (string-match ":0" (getenv "DISPLAY")))
-		(device-sound-enabled-p)))
+		(and (eq (console-type) 'mswindows)
-(load-default-sounds)
+		     (device-sound-enabled-p))))
-;; On Windows, at least, the sound "quiet-beep", which is normally
+(condition-case nil
-;; given the symbolic name `quiet' and is used for Quit and such,
+	   (progn
-;; is just totally disgusting.  So make this name correspond to a
+	     (load-default-sounds)
-;; more innocuous sound.
+	     ;; On Windows, at least, the sound "quiet-beep", which is normally
-(load-sound-file "drum-beep" 'quiet 80))
+	     ;; given the symbolic name `quiet' and is used for Quit and such,
+	     ;; is just totally disgusting.  So make this name correspond to a
+	     ;; more innocuous sound.
+	     (load-sound-file "drum-beep" 'quiet 80))
+	 (error nil)))
 (t
 (setq bell-volume 40)
 (setq sound-alist
 	     (append sound-alist '((no-completion :pitch 500))))
 ))
 ;;; ********************
 ;;; Load efs, which uses the FTP protocol as a pseudo-filesystem.
 ;;; When this is loaded, the pathname syntax /user@host:/remote/path
 ;;; refers to files accessible through ftp.
 ;;;
-(require 'dired)
+(Init-safe-require 'dired)
-;; compatible ange-ftp/efs initialization derived from code
-;; from John Turner <turner@lanl.gov>
+(or (Init-safe-require 'efs-auto) (Init-safe-require 'ange-ftp))
-;;
-;; The environment variable EMAIL_ADDRESS is used as the password
-;; for access to anonymous ftp sites, if it is set.  If not, one is
-;; constructed using the environment variables USER and DOMAINNAME
-;; (e.g. turner@lanl.gov), if set.
-(condition-case nil
-(progn
-(require 'efs-auto)
-(if (getenv "USER")
-	  (setq efs-default-user (getenv "USER")))
-(if (getenv "EMAIL_ADDRESS")
-	  (setq efs-generate-anonymous-password (getenv "EMAIL_ADDRESS"))
-	(if (and (getenv "USER")
-		 (getenv "DOMAINNAME"))
-	    (setq efs-generate-anonymous-password
-		  (concat (getenv "USER")"@"(getenv "DOMAINNAME")))))
-(setq efs-auto-save 1))
-(error
-(require 'ange-ftp)
-(if (getenv "USER")
-(setq ange-ftp-default-user (getenv "USER")))
-(if (getenv "EMAIL_ADDRESS")
-(setq ange-ftp-generate-anonymous-password (getenv "EMAIL_ADDRESS"))
-(if (and (getenv "USER")
-	      (getenv "DOMAINNAME"))
-	 (setq ange-ftp-generate-anonymous-password
-	       (concat (getenv "USER")"@"(getenv "DOMAINNAME")))))
-(setq ange-ftp-auto-save 1)
-))
 ;;; ********************
 ;;; Load the default-dir.el package which installs fancy handling of
 ;;; the initial contents in the minibuffer when reading file names.
+;; #### but it seems to cause some breakage.
-;(condition-case nil
+;(Init-safe-require 'default-dir))
-;    (require 'default-dir)
-;  (error nil))
 ;;; ********************
 ;;; Put all of your autosave files in one place, instead of scattering
 ;;; them around the file system.  This has many advantages -- e.g. it
 ;;; will eliminate slowdowns caused by editing files on a slow NFS
 ;;; server.  (*Provided* that your home directory is local or on a
 ;;; fast server!  If not, pick a value for `auto-save-directory' that
 ;;; is fast fast fast!)
 ;;;
 ;;; Unfortunately, the code that implements this (auto-save.el) is
-;;; broken on Windows in 21.4 and earlier.
+;;; broken on Windows prior to 21.4.
 (unless (and (eq system-type 'windows-nt)
-	     (not (emacs-version>= 21 5)))
+	     (not (emacs-version>= 21 4)))
 (setq auto-save-directory (expand-file-name "~/.autosave/")
 	auto-save-directory-fallback auto-save-directory
 	auto-save-hash-p nil
 	efs-auto-save t
 	efs-auto-save-remotely nil
 	;; now that we have auto-save-timeout, let's crank this up
 	;; for better interactive response.
 	auto-save-interval 2000
 	)
-;; We load this afterwards because it checks to make sure the
-;; auto-save-directory exists (creating it if not) when it's loaded.
-(require 'auto-save)
 )
 ;;; ********************
 ;;; cc-mode (the mode you're in when editing C, C++, and Objective C files)
 ;;; search multiple words instead of just prefixes; for example, the command
 ;;; `M-x byte-compile-and-load-file RET' can be abbreviated as `M-x b-c-a RET'
 ;;; because there are no other commands whose first three words begin with
 ;;; the letters `b', `c', and `a' respectively.
 ;;;
-(load-library "completer")
+(Init-safe-require 'completer)
 ;;; ********************
 ;;; Load crypt, which is a package for automatically decoding and reencoding
 ;;; files by various methods - for example, you can visit a .Z or .gz file,
 crypt-confirm-password t	   ; make sure new passwords are correct
 ;crypt-never-ever-decrypt t  ; if you don't encrypt anything, set this to
 				   ; tell it not to assume that "binary" files
 				   ; are encrypted and require a password.
 )
-(require 'crypt)
+(Init-safe-require 'crypt)
 ;;; ********************
 ;;; Filladapt is a syntax-highlighting package.  When it is enabled it
 ;;; makes filling (e.g. using M-q) much much smarter about paragraphs
 ;;; that are indented and/or are set off with semicolons, dashes, etc.
-(require 'filladapt)
+(Init-safe-require 'filladapt)
 (setq-default filladapt-mode t)
-(add-hook 'c-mode-hook 'turn-off-filladapt-mode)
+(when (fboundp 'turn-off-filladapt-mode)
+(add-hook 'c-mode-hook 'turn-off-filladapt-mode)
+(add-hook 'outline-mode-hook 'turn-off-filladapt-mode))
 ;;; ********************
 ;;; Font-Lock is a syntax-highlighting package.  When it is enabled and you
 ;;; are editing a program, different parts of your program will appear in
 ;       ;; but I want to specify my own colors, so I turn off all
 ;       ;; default values.
 ;       (setq font-lock-use-default-fonts nil)
 ;       (setq font-lock-use-default-colors nil)
-(require 'font-lock)
+(Init-safe-require 'font-lock)
 ;       ;; Mess around with the faces a bit.  Note that you have
 ;       ;; to change the font-lock-use-default-* variables *before*
 ;       ;; loading font-lock, and wait till *after* loading font-lock
 ;       ;; to customize the faces.
 ;;; by doing it "on-the-fly" -- only the visible portion of the
 ;;; buffer is fontified.  The results may not always be quite as
 ;;; accurate as using full font-lock or fast-lock, but it's *much*
 ;;; faster.  No more annoying pauses when you load files.
-(add-hook 'font-lock-mode-hook 'turn-on-lazy-lock)
+(if (fboundp 'turn-on-lazy-lock)
+(add-hook 'font-lock-mode-hook 'turn-on-lazy-lock))
 ;; I personally don't like "stealth mode" (where lazy-lock starts
 ;; fontifying in the background if you're idle for 30 seconds)
-;; because it takes too long to wake up again on my piddly Sparc 1+.
+;; because it takes too long to wake up again.
 (setq lazy-lock-stealth-time nil)
 ;;; ********************
 ;;; func-menu is a package that scans your source file for function
 ;;; Scanning the buffer takes some time, but not much.
 ;;;
 ;;; Send bug reports, enhancements etc to:
 ;;; David Hughes <ukchugd@ukpmr.cs.philips.nl>
 ;;;
-(cond (running-xemacs
+(cond ((and running-xemacs (Init-safe-require 'func-menu))
-(require 'func-menu)
 (global-set-key '(shift f12) 'function-menu)
 (add-hook 'find-file-hooks 'fume-add-menubar-entry)
 (global-set-key "\C-cl" 'fume-list-functions)
 (global-set-key "\C-cg" 'fume-prompt-function-goto)
 ;;; ********************
 ;;; resize-minibuffer-mode makes the minibuffer automatically
 ;;; resize as necessary when it's too big to hold its contents.
-(autoload 'resize-minibuffer-mode "rsz-minibuf" nil t)
+(when (fboundp 'resize-minibuffer-mode)
 (resize-minibuffer-mode)
-(setq resize-minibuffer-window-exactly nil)
+(setq resize-minibuffer-window-exactly nil))
 ;;; ********************
 ;;; 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.
-(require 'scroll-in-place)
+(if (Init-safe-require 'scroll-in-place)
-(turn-on-scroll-in-place)
+(turn-on-scroll-in-place))
 ;;; ********************
 ;;; W3 is a browser for the World Wide Web, and takes advantage of the very
 ;;; latest redisplay features in XEmacs.  You can access it simply by typing

Mercurial > hg > xemacs-beta

comparison etc/sample.init.el @ 558:ed498ef2108b