home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / languages / elisp / misc / hebrew / patch-lisp < prev    next >
Encoding:
Text File  |  1992-08-22  |  1.1 KB  |  35 lines
  1. *** x-mouse.el.orig    Tue Apr 30 14:26:17 1991
  2. --- x-mouse.el    Tue Apr 30 14:13:46 1991
  3. ***************
  4. *** 107,112 ****
  5. --- 107,113 ----
  6.   (define-key global-map "\C-c\C-m" 'x-flush-mouse-queue)
  7.   (define-key global-map "\C-x\C-@" 'x-flush-mouse-queue)
  8.   
  9. + ; yossi-- modified x-mouse-select to support reverse displays.
  10.   (defun x-mouse-select (arg)
  11.     "Select Emacs window the mouse is on."
  12.     (let ((start-w (selected-window))
  13. ***************
  14. *** 120,126 ****
  15.         (if (eq w start-w)
  16.         (setq done t)))
  17.       (select-window w)
  18. !     rel-coordinate))
  19.   
  20.   (defun x-mouse-keep-one-window (arg)
  21.     "Select Emacs window mouse is on, then kill all other Emacs windows."
  22. --- 121,132 ----
  23.         (if (eq w start-w)
  24.         (setq done t)))
  25.       (select-window w)
  26. !     (set-buffer (window-buffer w))
  27. !     (and rel-coordinate
  28. !      (if (null display-reversed)
  29. !          rel-coordinate
  30. !        (cons (- (window-width) (car rel-coordinate) 1)
  31. !          (cdr rel-coordinate))))))
  32.   
  33.   (defun x-mouse-keep-one-window (arg)
  34.     "Select Emacs window mouse is on, then kill all other Emacs windows."
  35.