Mercurial > emacs
comparison lisp/mouse.el @ 95979:ab77bad0093c
Fix last change.
author | Chong Yidong <cyd@stupidchicken.com> |
---|---|
date | Sun, 15 Jun 2008 20:20:42 +0000 |
parents | d76373886395 |
children | 6600c6bbfa93 |
comparison
equal
deleted
inserted
replaced
95978:d14b51454568 | 95979:ab77bad0093c |
---|---|
2532 (apply 'face-remap-add-relative | 2532 (apply 'face-remap-add-relative |
2533 'default | 2533 'default |
2534 (font-face-attributes | 2534 (font-face-attributes |
2535 (if (eq choice 'x-select-font) | 2535 (if (eq choice 'x-select-font) |
2536 (x-select-font) | 2536 (x-select-font) |
2537 (symbol-name choice)))))))))) | 2537 (symbol-name choice)))) |
2538 (force-window-update (current-buffer)))))))) | |
2538 | 2539 |
2539 | 2540 |
2540 ;;; Bindings for mouse commands. | 2541 ;;; Bindings for mouse commands. |
2541 | 2542 |
2542 (define-key global-map [down-mouse-1] 'mouse-drag-region) | 2543 (define-key global-map [down-mouse-1] 'mouse-drag-region) |