home *** CD-ROM | disk | FTP | other *** search
/ NetNews Usenet Archive 1992 #30 / NN_1992_30.iso / spool / comp / sys / next / programm / 7798 < prev    next >
Encoding:
Text File  |  1992-12-17  |  3.7 KB  |  110 lines
  1. Newsgroups: comp.sys.next.programmer
  2. Path: sparky!uunet!usc!zaphod.mps.ohio-state.edu!caen!batcomputer!ghost.dsi.unimi.it!itnsg1.cineca.it!lele
  3. From: lele@itnsg1.cineca.it (Lele Gaifax)
  4. Subject: Emacs 3.0 & EMACSLOADPATH
  5. Message-ID: <1992Dec17.132933.14046@itnsg1.cineca.it>
  6. Organization: (none) (standard disclaimer applies)
  7. Date: Thu, 17 Dec 1992 13:29:33 GMT
  8. Lines: 100
  9.  
  10. Hi all,
  11. here is a little patch to add support for the EMACSLOADPATH
  12. to Emacs 3.0. I do not have at hand the email address of the
  13. author (many thanks, it is great), so I hope he will be read
  14. this newsgroup.
  15. I use this feature since i have a separated dir that contains
  16. my elisp hacked packages. Use 
  17. dwrite Emacs EmacsLoadPath "/usr/local/lib/emacs/local-lisp:/usr/lib/emacs/lisp"
  18.  
  19. (or better DefaultMgr.app) to setup the default value. There is also a default
  20. value for this default (... ;-), see Makefile.postamble.
  21.  
  22. That's it. 
  23. Bye, lele
  24.  
  25.  
  26. *** EtermView.m~    Mon Nov 30 17:53:54 1992
  27. --- EtermView.m    Thu Dec 10 22:13:04 1992
  28. ***************
  29. *** 75,80 ****
  30. --- 75,81 ----
  31.         {"HideOnAutoLaunch", "NO" },
  32.         {"EmacsPath", DEFAULT_EMACS_PATH},
  33.         {"LispPath", DEFAULT_LISP_PATH},
  34. +       {"EmacsLoadPath", EMACSLOADPATH },
  35.         {NULL},
  36.       };
  37.     const char *sTypes[2], *rTypes[2];
  38. *** Makefile.postamble~    Mon Nov 30 17:53:54 1992
  39. --- Makefile.postamble    Thu Dec 10 22:12:24 1992
  40. ***************
  41. *** 1,4 ****
  42. --- 1,7 ----
  43. + EMACSLOADPATH = \\\"/usr/local/emacs/lisp/local-lisp:/usr/local/emacs/lisp\\\"
  44. + 
  45.   OTHER_GARBAGE = display.h lisp.el lisp.elc
  46. + OTHER_CFLAGS = -DEMACSLOADPATH=${EMACSLOADPATH}
  47.   
  48.   ELISP_SOURCES = lisp/eterm-mouse.el lisp/eterm-low.el lisp/eterm-fns.el
  49.   
  50. *** etermSupport.c~    Mon Nov 30 17:53:56 1992
  51. --- etermSupport.c    Thu Dec 10 22:05:25 1992
  52. ***************
  53. *** 29,34 ****
  54. --- 29,36 ----
  55.   {
  56.     static char term[] = "TERM=eterm";
  57.     static char termcap[] = "TERMCAP=69|eterm|Terminal emulator for Gnu-emacs:co#80:li#24:cm=^u%d^u%d.:IC=^u%d_:DC=^u%d^d:AL=^u%d^o:DL=^u%d^k:bc=^b:bl=^g:cd=^[k:ce=^k:ch=^u%d.:cl=^[c:cr=^a:do=^n:im=^i:ei=^i:le=^b:mi:ms:nd=^f:nl=^j:se=^s:so=^s:up=^p:am:km:";
  58. +   const char * load_path = NXGetDefaultValue("Emacs", "EmacsLoadPath");
  59. +   char * emacs_load_path;
  60.     char *eventhost;
  61.     static char eventport[80];
  62.     char **newEnv;
  63. ***************
  64. *** 45,50 ****
  65. --- 47,57 ----
  66.     strcpy (eventhost, "EVENT_HOST=");
  67.     strcat (eventhost, hostname);
  68.   
  69. +   emacs_load_path = (char *) malloc(sizeof ("EMACSLOADPATH=") +
  70. +                                            strlen (load_path) + 1);
  71. + 
  72. +   sprintf (emacs_load_path, "EMACSLOADPATH=%s", load_path);
  73. +   
  74.     sprintf (eventport, "EVENT_PORT=%d", eventportno);
  75.   
  76.     for (envSize = 0; currentEnv[envSize] != NULL; envSize++);
  77. ***************
  78. *** 53,64 ****
  79.       if (strncmp (currentEnv[x], "TERM=", 5)
  80.       && strncmp (currentEnv[x], "TERMCAP=", 8)
  81.       && strncmp (currentEnv[x], "EVENT_HOST=", 11)
  82. !     && strncmp (currentEnv[x], "EVENT_PORT=", 11))
  83.         newEnv[y++] = currentEnv[x];
  84.     newEnv[y++] = term;
  85.     newEnv[y++] = termcap;
  86.     newEnv[y++] = eventhost;
  87.     newEnv[y++] = eventport;
  88.     newEnv[y] = NULL;
  89.     return newEnv;
  90.   } /* patch_env */
  91. --- 60,73 ----
  92.       if (strncmp (currentEnv[x], "TERM=", 5)
  93.       && strncmp (currentEnv[x], "TERMCAP=", 8)
  94.       && strncmp (currentEnv[x], "EVENT_HOST=", 11)
  95. !     && strncmp (currentEnv[x], "EVENT_PORT=", 11)
  96. !         && strncmp( currentEnv[x], "EMACSLOADPATH=", 14))
  97.         newEnv[y++] = currentEnv[x];
  98.     newEnv[y++] = term;
  99.     newEnv[y++] = termcap;
  100.     newEnv[y++] = eventhost;
  101.     newEnv[y++] = eventport;
  102. +   newEnv[y++] = emacs_load_path;
  103.     newEnv[y] = NULL;
  104.     return newEnv;
  105.   } /* patch_env */
  106. -- 
  107. Lele Gaifax - lele@itnsg1.cineca.it
  108. ...calling Emacs convenient, of course, is like calling oxygen useful
  109.                     Rens Troost
  110.