Mercurial > emacs
comparison lisp/mouse.el @ 1100:5b3b202a84c8
*** empty log message ***
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 12 Sep 1992 01:37:46 +0000 |
| parents | e699ce19609f |
| children | 0ffcf74fb8ad |
comparison
equal
deleted
inserted
replaced
| 1099:178215fd8a20 | 1100:5b3b202a84c8 |
|---|---|
| 439 (- (car relative-coordinate) (current-column)))) | 439 (- (car relative-coordinate) (current-column)))) |
| 440 ((< (current-column) (car relative-coordinate)) | 440 ((< (current-column) (car relative-coordinate)) |
| 441 (mouse-multiple-insert | 441 (mouse-multiple-insert |
| 442 (- (car relative-coordinate) (current-column)) " ")) | 442 (- (car relative-coordinate) (current-column)) " ")) |
| 443 ((= (current-column) (car relative-coordinate)) (ding)))))) | 443 ((= (current-column) (car relative-coordinate)) (ding)))))) |
| 444 | 444 |
| 445 ;; Font selection. | |
| 446 | |
| 447 (defvar x-fixed-font-alist | |
| 448 '("Font menu" | |
| 449 ("Misc" | |
| 450 ("fixed" "fixed") | |
| 451 ("6x10" "6x10") | |
| 452 ("6x12" "6x12") | |
| 453 ("6x13" "6x13") | |
| 454 ("7x13" "7x13") | |
| 455 ("7x14" "7x14") | |
| 456 ("8x13" "8x13") | |
| 457 ("8x13 bold" "8x13bold") | |
| 458 ("8x16" "8x16") | |
| 459 ("9x15" "9x15") | |
| 460 ("9x15 bold" "9x15bold") | |
| 461 ("10x20" "10x20") | |
| 462 ("11x18" "11x18") | |
| 463 ("12x24" "12x24")) | |
| 464 ;;; We don't seem to have these; who knows what they are. | |
| 465 ;;; ("fg-18" "fg-18") | |
| 466 ;;; ("fg-25" "fg-25") | |
| 467 ;;; ("lucidasanstypewriter-12" "lucidasanstypewriter-12") | |
| 468 ;;; ("lucidasanstypewriter-bold-14" "lucidasanstypewriter-bold-14") | |
| 469 ;;; ("lucidasanstypewriter-bold-24" "lucidasanstypewriter-bold-24") | |
| 470 ;;; ("lucidatypewriter-bold-r-24" "-b&h-lucidatypewriter-bold-r-normal-sans-24-240-75-75-m-140-iso8859-1") | |
| 471 ;;; ("fixed-medium-20" "-misc-fixed-medium-*-*-*-20-*-*-*-*-*-*-*") | |
| 472 ("Courier" | |
| 473 ("8" "-adobe-courier-medium-r-normal--8-*-*-*-m-*-iso8859-1") | |
| 474 ("10" "-adobe-courier-medium-r-normal--10-*-*-*-m-*-iso8859-1") | |
| 475 ("12" "-adobe-courier-medium-r-normal--12-*-*-*-m-*-iso8859-1") | |
| 476 ("14" "-adobe-courier-medium-r-normal--14-*-*-*-m-*-iso8859-1") | |
| 477 ("18" "-adobe-courier-medium-r-normal--18-*-*-*-m-*-iso8859-1") | |
| 478 ("24" "-adobe-courier-medium-r-normal--24-*-*-*-m-*-iso8859-1") | |
| 479 ("8 bold" "-adobe-courier-bold-r-normal--8-*-*-*-m-*-iso8859-1") | |
| 480 ("10 bold" "-adobe-courier-bold-r-normal--10-*-*-*-m-*-iso8859-1") | |
| 481 ("12 bold" "-adobe-courier-bold-r-normal--12-*-*-*-m-*-iso8859-1") | |
| 482 ("14 bold" "-adobe-courier-bold-r-normal--14-*-*-*-m-*-iso8859-1") | |
| 483 ("18 bold" "-adobe-courier-bold-r-normal--18-*-*-*-m-*-iso8859-1") | |
| 484 ("24 bold" "-adobe-courier-bold-r-normal--24-*-*-*-m-*-iso8859-1") | |
| 485 ("8 slant" "-adobe-courier-medium-o-normal--8-*-*-*-m-*-iso8859-1") | |
| 486 ("10 slant" "-adobe-courier-medium-o-normal--10-*-*-*-m-*-iso8859-1") | |
| 487 ("12 slant" "-adobe-courier-medium-o-normal--12-*-*-*-m-*-iso8859-1") | |
| 488 ("14 slant" "-adobe-courier-medium-o-normal--14-*-*-*-m-*-iso8859-1") | |
| 489 ("18 slant" "-adobe-courier-medium-o-normal--18-*-*-*-m-*-iso8859-1") | |
| 490 ("24 slant" "-adobe-courier-medium-o-normal--24-*-*-*-m-*-iso8859-1") | |
| 491 ("8 bold slant" "-adobe-courier-bold-o-normal--8-*-*-*-m-*-iso8859-1") | |
| 492 ("10 bold slant" "-adobe-courier-bold-o-normal--10-*-*-*-m-*-iso8859-1") | |
| 493 ("12 bold slant" "-adobe-courier-bold-o-normal--12-*-*-*-m-*-iso8859-1") | |
| 494 ("14 bold slant" "-adobe-courier-bold-o-normal--14-*-*-*-m-*-iso8859-1") | |
| 495 ("18 bold slant" "-adobe-courier-bold-o-normal--18-*-*-*-m-*-iso8859-1") | |
| 496 ("24 bold slant" "-adobe-courier-bold-o-normal--24-*-*-*-m-*-iso8859-1")) | |
| 497 ) | |
| 498 "X fonts suitable for use in Emacs.") | |
| 499 | |
| 500 (defun mouse-set-font (font) | |
| 501 "Select an emacs font from a list of known good fonts" | |
| 502 (interactive | |
| 503 (x-popup-menu last-nonmenu-event x-fixed-font-alist)) | |
| 504 (modify-frame-parameters (selected-frame) | |
| 505 (list (cons 'font font)))) | |
| 445 | 506 |
| 446 ;;; Bindings for mouse commands. | 507 ;;; Bindings for mouse commands. |
| 447 | 508 |
| 448 ;; This won't be needed once the drag and down events | 509 ;; This won't be needed once the drag and down events |
| 449 ;; are properly implemented. | 510 ;; are properly implemented. |
| 454 (global-set-key [mouse-2] 'mouse-yank-at-click) | 515 (global-set-key [mouse-2] 'mouse-yank-at-click) |
| 455 (global-set-key [mouse-3] 'mouse-kill-ring-save) | 516 (global-set-key [mouse-3] 'mouse-kill-ring-save) |
| 456 (global-set-key [S-mouse-3] 'mouse-kill) | 517 (global-set-key [S-mouse-3] 'mouse-kill) |
| 457 | 518 |
| 458 (global-set-key [C-mouse-1] 'mouse-buffer-menu) | 519 (global-set-key [C-mouse-1] 'mouse-buffer-menu) |
| 520 | |
| 521 (global-set-key [C-mouse-3] 'mouse-set-font) | |
| 459 | 522 |
| 460 ;; Replaced with dragging mouse-1 | 523 ;; Replaced with dragging mouse-1 |
| 461 ;; (global-set-key [S-mouse-1] 'mouse-set-mark) | 524 ;; (global-set-key [S-mouse-1] 'mouse-set-mark) |
| 462 | 525 |
| 463 ;; Define the mouse help menu tree. | 526 ;; Define the mouse help menu tree. |