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)