home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #26 / NN_1992_26.iso / spool / alt / lucidem / help / 683 < prev    next >
Encoding:
Text File  |  1992-11-11  |  1.9 KB  |  56 lines
  1. Path: sparky!uunet!charon.amdahl.com!amdahl!JUTS!climb!tlp00
  2. From: tlp00@climb.as (Tibor Polgar)
  3. Newsgroups: alt.lucid-emacs.help
  4. Subject: Buffer mode addition
  5. Message-ID: <bbFQ02MO2a5N01@JUTS.ccc.amdahl.com>
  6. Date: 12 Nov 92 04:12:16 GMT
  7. Sender: netnews@ccc.amdahl.com
  8. Reply-To: tlp00@climb.as
  9. Organization: Sun Microsystems
  10. Lines: 44
  11.  
  12. Here is a needed addition for buffer-mode to select a buffer to a new screen.
  13. Both the popup menu and key commands can take advantage of it.
  14.   
  15. Tibor Polgar  - Amdahl Corporation , Sunnyvale, CA
  16. ------------------------------------------------------------------------------------(de(defun Buffer-mouse-new-screen (event)
  17.   "Switch to buffer in a new screen using mouse."
  18.   (interactive "@e")
  19.   (select-window (event-window event))
  20.   (mouse-set-point event)
  21.   (Buffer-menu-new-screen))
  22.  
  23. (defun Buffer-menu-new-screen ()
  24.   "Switch to buffer in a new screen."
  25.   (interactive)
  26.   (let ((buff (Buffer-menu-buffer t))
  27.     (menu (current-buffer))
  28.     (others ())
  29.     tem)
  30.     (if (eq menu buff)
  31.     (bury-buffer menu)
  32.         (close-window-nosave))
  33.     (select-screen (new-screen))
  34.     (switch-to-buffer buff)))
  35.  
  36. (define-key Buffer-menu-mode-map "n" 'Buffer-menu-new-screen)
  37. (define-key Buffer-menu-mode-map '(shift button2) 'Buffer-mouse-new-screen)
  38.  
  39. ;;
  40. ;;  Buffer menu new window selection option
  41. ;;
  42. (setq Buffer-menu-popup-menu
  43.   '("Buffer Commands"
  44.     ["Select Buffer"            Buffer-menu-select        t]
  45.     ["Select buffer Other Window"    Buffer-menu-other-window    t]
  46.     ["Select buffer New Screen"     Buffer-menu-new-screen     t]
  47.     ["Clear Buffer Modification Flag"    Buffer-menu-not-modified    t]
  48.     "----"
  49.     ["Mark Buffer for Selection"    Buffer-menu-mark        t]
  50.     ["Mark Buffer for Save"        Buffer-menu-save        t]
  51.     ["Mark Buffer for Deletion"        Buffer-menu-delete        t]
  52.     ["Unmark Buffer"            Buffer-menu-unmark        t]
  53.     "----"
  54.     ["Delete/Save Marked Buffers"    Buffer-menu-execute        t]
  55.     ))
  56.