Mercurial > emacs

changeset 7021:da5dc735eb50

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mouse-set-font): Simply call set-default-font.
author Richard M. Stallman <rms@gnu.org>
date Fri, 22 Apr 1994 08:49:57 +0000
parents c7525f1cfaba
children 5635564a3064
files lisp/mouse.el
diffstat 1 files changed, 4 insertions(+), 27 deletions(-) [+]
line wrap: on
line diff
--- 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.