home *** CD-ROM | disk | FTP | other *** search
/ InfoMagic Source Code 1993 July / THE_SOURCE_CODE_CD_ROM.iso / gnu / lucid / help-lucid-emacs / text0321.txt < prev    next >
Encoding:
Text File  |  1993-07-14  |  1.7 KB  |  59 lines
  1.       Hello !
  2.  
  3. Someone posted the following here a while ago:
  4.  
  5. (defun mouse-on-modeline-p ()
  6.   "Non-nil iff mouse pointer is within a modeline."
  7.   (equal x-mode-pointer-shape (cdr (assq 'pointer (screen-parameters)))))
  8.  
  9. (defun mouse-left (event)
  10.   "Perform commands bound to left mouse button."
  11.   (interactive "@e")
  12.   (if (mouse-on-modeline-p)
  13.       (scroll-down)
  14.     (mouse-track event)))
  15.  
  16. (defun mouse-right (event)
  17.   "Perform commands bound to right mouse button."
  18.   (interactive "@e")
  19.   (if (mouse-on-modeline-p)
  20.       (scroll-up)
  21.     (what-ever-you-have-on-the-button-otherwise event)))
  22.  
  23. (global-set-key 'button1 'mouse-left)
  24.  
  25.  
  26.    I cannot remember who it was .... But could the person please email
  27.    me ? I have a question concerning this. Thanks in advance.
  28.  
  29.  
  30.               Wolfgang.
  31.  
  32.  
  33.                    ```
  34.                   (o o)
  35. **************oOO**(_)**OOo***************************************************
  36. * Email:                       *"Protect me from knowing what I don't need   *
  37. * wolle@uni-paderborn.de       * to know. Protect me from even knowing that  *
  38. * You can also reach me as     * there are things to know that I don't know. *
  39. * Ged@PaderMud                 * Protect me from knowing that I decided not  *
  40. * (Lord of Dragonland)         * to know about the things that I decided not *
  41. * The world of PaderMud is at  * to know about. - Amen."                     *
  42. *  telnet 131.234.2.42 3000    *"Lord, lord, lord. Protect me from the       *
  43. *  (mud.uni-paderborn.de 3000) * consequences of the above prayer. - Amen."  *
  44. * "Don't dream it - be it !"   * (Hitchhiker's Guide To The Galaxy, Part V)  *
  45. ******************************************************************************
  46.  
  47.  
  48.  
  49.  
  50.  
  51.  
  52.  
  53.  
  54.  
  55.  
  56.  
  57.  
  58.  
  59.