home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1993 #3 / NN_1993_3.iso / spool / alt / lucidem / help / 979 < prev    next >
Encoding:
Text File  |  1993-01-28  |  2.4 KB  |  75 lines
  1. Newsgroups: alt.lucid-emacs.help
  2. Path: sparky!uunet!UB.com!pacbell.com!sgiblab!swrinde!elroy.jpl.nasa.gov!usc!cs.utexas.edu!torn!nott!bnrgate!bmerh85!bmerh85!hamish
  3. From: Hamish.Macdonald@bnr.ca (Hamish Macdonald)
  4. Subject: Re: kind of -geometry wxh+x+y for a new screen
  5. In-Reply-To: warsaw@nlm.nih.gov's message of 26 Jan 93 20:30:02 GMT
  6. Message-ID: <1993Jan28.202702.19688@bmerh85.bnr.ca>
  7. Lines: 61
  8. Sender: news@bmerh85.bnr.ca (Usenet News)
  9. Organization: Bell Northern Research
  10. References: <1993Jan26.185113.169699@eratu.rz.uni-konstanz.de>
  11.     <WARSAW.93Jan26153002@anthem.nlm.nih.gov>
  12. Date: Thu, 28 Jan 93 20:27:02 GMT
  13.  
  14.     Joerg-Cyril> I read the lemacs NEWS but found no way to set
  15.     Joerg-Cyril> x-screen-defaults so that I can open a secondary
  16.     Joerg-Cyril> lemacs screen with a like with "-geometry -0+0" in my
  17.     Joerg-Cyril> .emacs.
  18.  
  19. >>>>> On 26 Jan 93 20:30:02 GMT,
  20. >>>>> In message <WARSAW.93Jan26153002@anthem.nlm.nih.gov>,
  21. >>>>> warsaw@nlm.nih.gov (Barry A. Warsaw) wrote:
  22.  
  23. Barry> My understanding is that x-screen-defaults doesn't work. I've
  24. Barry> started using X resources for everything and have had great
  25. Barry> results.  Its the right way to do these things anyway, IMHO.
  26.  
  27. Only certain things in x-screen-defaults will work.  In particular,
  28. "geometry" does not.
  29.  
  30. I gave the following patch to Jamie last year sometime.  It allows you
  31. to specify geometry in the x-screen-defaults or the parameters in
  32. x-create-screen.
  33.  
  34. e.g.:
  35.  
  36.   (x-create-screen '((geometry . "80x48-5-5")))
  37.  
  38. The patch didn't seem to make it into the 19.4 release.
  39.  
  40. *** xfns.c.orig    Sun Jan 17 17:39:46 1993
  41. --- xfns.c    Thu Jan 28 15:15:45 1993
  42. ***************
  43. *** 674,680 ****
  44. --- 674,689 ----
  45.     char* name;
  46.     Arg al [25];
  47.     int ac = 0;
  48. +   Lisp_Object geometry = Qnil;
  49. +   
  50. +   geometry = Fassq (intern ("geometry"), parms);
  51. +   if (!NILP (geometry))
  52. +     {
  53. +       geometry = Fcdr (geometry);
  54. +       CHECK_STRING (geometry, 0);
  55. +     }
  56.   
  57. + 
  58.     BLOCK_INPUT;
  59.   
  60.     if (STRINGP (s->name))
  61. ***************
  62. *** 703,708 ****
  63. --- 712,721 ----
  64.     XtSetArg (al[ac], XtNallowResize, 1); ac++;
  65.     XtSetArg (al[ac], XtNresizeToPreferred, 1); ac++;
  66.     XtSetArg (al[ac], XtNemacsScreen, s); ac++;
  67. +   if (!NILP (geometry))
  68. +     {
  69. +       XtSetArg (al[ac], XtNgeometry, (char*)XSTRING (geometry)->data); ac++;
  70. +     }
  71.     screen_widget = XtCreateWidget ("screen", emacsScreenWidgetClass,
  72.                     pane_widget, al, ac);
  73.   
  74.  
  75.