# HG changeset patch
# User Richard M. Stallman <rms@gnu.org>
# Date 767004597 0
# Node ID da5dc735eb50071acf1556c6b1a596eaf2adf7f7
# Parent  c7525f1cfaba155f95359b0d4198959bbe275059
(mouse-set-font): Simply call set-default-font.

diff -r c7525f1cfaba -r da5dc735eb50 lisp/mouse.el
--- a/lisp/mouse.el	Fri Apr 22 08:49:30 1994 +0000
+++ b/lisp/mouse.el	Fri Apr 22 08:49:57 1994 +0000
@@ -1293,36 +1293,13 @@
 	(while fonts
 	  (condition-case nil
 	      (progn
-		(modify-frame-parameters (selected-frame)
-					 (list (cons 'font (car fonts))))
+		(set-default-font (car fonts))
 		(setq font (car fonts))
 		(setq fonts nil))
-	    (error (setq fonts (cdr fonts)))))
+	    (error
+	     (setq fonts (cdr fonts)))))
 	(if (null font)
-	    (error "Font not found")
-	  ;; Update some standard faces too.
-	  (set-face-font 'bold nil (selected-frame)) 
-	  (make-face-bold 'bold (selected-frame) t)
-	  (set-face-font 'italic nil (selected-frame))
-	  (make-face-italic 'italic (selected-frame) t)
-	  (set-face-font 'bold-italic nil (selected-frame))
-	  (make-face-bold-italic 'bold-italic (selected-frame) t)
-	  ;; Update any nonstandard faces whose definition is
-	  ;; "a bold/italic/bold&italic version of the frame's font".
-	  (let ((rest global-face-data))
-	    (while rest
-	      (condition-case nil
-		  (if (listp (face-font (cdr (car rest))))
-		      (let ((bold (memq 'bold (face-font (cdr (car rest)))))
-			    (italic (memq 'italic (face-font (cdr (car rest))))))
-			(if (and bold italic)
-			    (make-face-bold-italic (car (car rest)) (selected-frame))
-			  (if bold
-			      (make-face-bold (car (car rest)) (selected-frame))
-			    (if italic
-				(make-face-italic (car (car rest)) (selected-frame)))))))
-		(error nil))
-	      (setq rest (cdr rest))))))))
+	    (error "Font not found")))))
 
 ;;; Bindings for mouse commands.