X-Git-Url: http://git.chise.org/gitweb/?a=blobdiff_plain;f=etc%2Fsample.emacs;h=3124457c806a26e81485baddbe17733faaedf1d0;hb=a89954d4bf5b6e81da2d6ea4f9becb399e5a678d;hp=9e14814e079f8064e559f61ca13d068e4cf92816;hpb=2e3e3f9ee27fec50f45c282d71eaddf7c673bc56;p=chise%2Fxemacs-chise.git-

diff --git a/etc/sample.emacs b/etc/sample.emacs
index 9e14814..3124457 100644
--- a/etc/sample.emacs
+++ b/etc/sample.emacs
@@ -97,13 +97,14 @@
        (setq ispell-extra-args '("-W" "3"))
 
        (cond ((or (not (fboundp 'device-type))
-		  (equal (device-type) 'x))
-	      ;; Code which applies only when running emacs under X goes here.
-	      ;; (We check whether the function `device-type' exists
-	      ;; before using it.  In versions before 19.12, there
-	      ;; was no such function.  If it doesn't exist, we
-	      ;; simply assume we're running under X -- versions before
-	      ;; 19.12 only supported X.)
+		  (equal (device-type) 'x)
+		  (equal (device-type) 'mswindows))
+	      ;; Code which applies only when running emacs under X or
+	      ;; MicroSoft Windows goes here.  (We check whether the
+	      ;; function `device-type' exists before using it.  In
+	      ;; versions before 19.12, there was no such function.
+	      ;; If it doesn't exist, we simply assume we're running
+	      ;; under X -- versions before 19.12 only supported X.)
 
 	      ;; Remove the binding of C-x C-c, which normally exits emacs.
 	      ;; It's easy to hit this by mistake, and that can be annoying.
@@ -153,7 +154,10 @@
 	      ;; standard beep only works with some X servers; many servers
 	      ;; completely ignore those parameters.)
 	      ;;
-	      (cond ((string-match ":0" (getenv "DISPLAY"))
+	      (cond ((or (and (getenv "DISPLAY") 
+			      (string-match ":0" (getenv "DISPLAY")))
+			 (and (eq (console-type) 'mswindows)
+			      (device-sound-enabled-p)))
 		     (load-default-sounds))
 		    (t
 		     (setq bell-volume 40)
@@ -169,9 +173,9 @@
 	      (set-glyph-image modeline-pointer-glyph "leftbutton")
 
 	      ;; Change the continuation glyph face so it stands out more
-	      (and (fboundp 'set-glyph-property)
+	      (and (fboundp 'make-face-bold)
 		   (boundp 'continuation-glyph)
-		   (set-glyph-property continuation-glyph 'face 'bold))
+		   (make-face-bold (glyph-face continuation-glyph)))
 
 	      ;; Change the pointer used during garbage collection.
 	      ;;