Mercurial > emacs
comparison lisp/mouse.el @ 5198:1f14aa44c786
(mouse-set-font): Update nonstandard faces that are supposed
to use a modification of the frame's font.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 27 Nov 1993 07:52:19 +0000 |
| parents | 27afcc69725a |
| children | 6a260dd9ee05 |
comparison
equal
deleted
inserted
replaced
| 5197:c684276af9f2 | 5198:1f14aa44c786 |
|---|---|
| 1277 (set-face-font 'bold nil (selected-frame)) | 1277 (set-face-font 'bold nil (selected-frame)) |
| 1278 (make-face-bold 'bold (selected-frame) t) | 1278 (make-face-bold 'bold (selected-frame) t) |
| 1279 (set-face-font 'italic nil (selected-frame)) | 1279 (set-face-font 'italic nil (selected-frame)) |
| 1280 (make-face-italic 'italic (selected-frame) t) | 1280 (make-face-italic 'italic (selected-frame) t) |
| 1281 (set-face-font 'bold-italic nil (selected-frame)) | 1281 (set-face-font 'bold-italic nil (selected-frame)) |
| 1282 (make-face-bold-italic 'bold-italic (selected-frame) t)))) | 1282 (make-face-bold-italic 'bold-italic (selected-frame) t) |
| 1283 ;; Update any nonstandard faces whose definition is | |
| 1284 ;; "a bold/italic/bold&italic version of the frame's font". | |
| 1285 (let ((rest global-face-data)) | |
| 1286 (while rest | |
| 1287 (condition-case nil | |
| 1288 (if (listp (face-font (cdr (car rest)))) | |
| 1289 (let ((bold (memq 'bold (face-font (cdr (car rest))))) | |
| 1290 (italic (memq 'italic (face-font (cdr (car rest)))))) | |
| 1291 (if (and bold italic) | |
| 1292 (make-face-bold-italic (car (car rest)) (selected-frame)) | |
| 1293 (if bold | |
| 1294 (make-face-bold (car (car rest)) (selected-frame)) | |
| 1295 (if italic | |
| 1296 (make-face-italic (car (car rest)) (selected-frame))))))) | |
| 1297 (error nil)) | |
| 1298 (setq rest (cdr rest)))) | |
| 1299 ))) | |
| 1283 | 1300 |
| 1284 ;;; Bindings for mouse commands. | 1301 ;;; Bindings for mouse commands. |
| 1285 | 1302 |
| 1286 (define-key global-map [down-mouse-1] 'mouse-drag-region) | 1303 (define-key global-map [down-mouse-1] 'mouse-drag-region) |
| 1287 (global-set-key [mouse-1] 'mouse-set-point) | 1304 (global-set-key [mouse-1] 'mouse-set-point) |