home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #20 / NN_1992_20.iso / spool / alt / lucidem / help / 426 < prev    next >
Encoding:
Text File  |  1992-09-14  |  1.9 KB  |  57 lines
  1. x-gateway: rodan.UU.NET from help-lucid-emacs to alt.lucid-emacs.help; Mon, 14 Sep 1992 15:49:29 EDT
  2. From: matis!amir@lucid.com (Amir J Katz)
  3. Message-ID: <9209141638.AA22064@simpson.ingr.com>
  4. Subject: 19.3 hangs when creating new screens?
  5. Organization: SEE Technologies Ltd.
  6. Reply-To: matis!amir@lucid.com
  7. X-Reply-To: amir@matis.ingr.COM
  8. X-Mailer: ELM [version 2.3 PL11]
  9. Date: Mon, 14 Sep 1992 19:49:30 GMT
  10. Newsgroups: alt.lucid-emacs.help
  11. Path: sparky!uunet!wendy-fate.uu.net!help-lucid-emacs
  12. Sender: help-lucid-emacs-request@lucid.com
  13. Lines: 42
  14.  
  15. Guys,
  16. I've built Lucid Emacs 19.3, and the following functions (suggested recently
  17. by someone on the list) seem to hang lemacs. A new screen is opened, but
  18. then lemacs goes to sleep and never comes back. Any idea? Thanks in advance.
  19. BTW, sometimes even 'C-x 5' (x-new-screen) hangs lemacs.
  20.  
  21. My configuration is:
  22.   SparcStation 1+ w/SunOS 4.1.3
  23.   gcc 2.2.2
  24.   MIT X11R5, patch 17
  25.  
  26. ---------------------------------------
  27. (defun x-find-file (filename)
  28.   "Does find file in new X Window"
  29.   (interactive "Ffind file new screen: ")
  30.   (select-screen (x-create-screen nil))
  31.   (switch-to-buffer (find-file-noselect filename)))
  32.  
  33. (defun y-find-file (filename)
  34.   "Does find file in new X Window"
  35.   (interactive)
  36.   (select-screen (x-create-screen nil))
  37.   (switch-to-buffer (find-file-noselect filename)))
  38.  
  39. (defun find-dot-emacs ()
  40.   (interactive)
  41.   (y-find-file "~/.emacs")
  42.   )
  43.  
  44. ;; add new item to existing menu
  45. (add-menu-item '("File")  "Find File New Screen"  'x-find-file t)
  46. ;; add a new menu
  47. (add-menu-item '("--Dot Files--") ".emacs"        'find-dot-emacs t)
  48.  
  49. ---------------------------------------
  50.  
  51. -- 
  52. /* ----------------------------------------------------------- */
  53. /*  Amir J. Katz             |   amir@matis.ingr.COM           */
  54. /*  System Specialist        |   Voice:  +972 52-584684        */
  55. /*  SEE Technologies Ltd.    |   Fax:    +972 52-543917        */
  56. /* ............ Solaris 2.0 - The Final Frontier ? ........... */
  57.