Mercurial > hg > xemacs-beta

comparison etc/sample.emacs @ 314:341dac730539 r21-0b55

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-0b55
author cvs
date Mon, 13 Aug 2007 10:44:22 +0200
parents 966663fcf606
children 03446687b7cc
comparison
equal deleted inserted replaced
313:2905de29931f 314:341dac730539
95 95
96 ;; When running ispell, consider all 1-3 character words as correct. 96 ;; When running ispell, consider all 1-3 character words as correct.
97 (setq ispell-extra-args '("-W" "3")) 97 (setq ispell-extra-args '("-W" "3"))
98 98
99 (cond ((or (not (fboundp 'device-type)) 99 (cond ((or (not (fboundp 'device-type))
100 (equal (device-type) 'x)) 100 (equal (device-type) 'x)
101 ;; Code which applies only when running emacs under X goes here. 101 (equal (device-type) 'mswindows))
102 ;; (We check whether the function `device-type' exists 102 ;; Code which applies only when running emacs under X or
103 ;; before using it. In versions before 19.12, there 103 ;; MicroSoft Windows goes here. (We check whether the
104 ;; was no such function. If it doesn't exist, we 104 ;; function `device-type' exists before using it. In
105 ;; simply assume we're running under X -- versions before 105 ;; versions before 19.12, there was no such function.
106 ;; 19.12 only supported X.) 106 ;; If it doesn't exist, we simply assume we're running
107 ;; under X -- versions before 19.12 only supported X.)
107 108
108 ;; Remove the binding of C-x C-c, which normally exits emacs. 109 ;; Remove the binding of C-x C-c, which normally exits emacs.
109 ;; It's easy to hit this by mistake, and that can be annoying. 110 ;; It's easy to hit this by mistake, and that can be annoying.
110 ;; Under X, you can always quit with the "Exit Emacs" option on 111 ;; Under X, you can always quit with the "Exit Emacs" option on
111 ;; the File menu. 112 ;; the File menu.
151 ;; 152 ;;
152 ;; (Note further that changing the pitch and duration of the 153 ;; (Note further that changing the pitch and duration of the
153 ;; standard beep only works with some X servers; many servers 154 ;; standard beep only works with some X servers; many servers
154 ;; completely ignore those parameters.) 155 ;; completely ignore those parameters.)
155 ;; 156 ;;
156 (cond ((string-match ":0" (getenv "DISPLAY")) 157 (cond ((or (and (getenv "DISPLAY")
158 (string-match ":0" (getenv "DISPLAY")))
159 (and (eq (console-type) 'mswindows)
160 (device-sound-enabled-p)))
157 (load-default-sounds)) 161 (load-default-sounds))
158 (t 162 (t
159 (setq bell-volume 40) 163 (setq bell-volume 40)
160 (setq sound-alist 164 (setq sound-alist
161 (append sound-alist '((no-completion :pitch 500)))) 165 (append sound-alist '((no-completion :pitch 500))))