extensions for emacsclient (CVS version)

["Andreas Büsching" <crunchy@tzi.de>]

[-- Attachment #1: Type: text/plain, Size: 1121 bytes --]

Hi,

I've posted a similar article to the newsgroup comp.emacs, but did not
get an answer, so I thought I'll try it here.

,----
| I'm working on a little script, which uses the server functionality of
| emacs. The old version of this script used the gnuserv/gnudoit tools
| for the communication. The current CVS version of emacs contains a more
| advanced emacsclient and uses a different (IMHO much better) technique
| for the server communication. To use emacsclient in my script I would
| really like to have two new features in emacsclient.
| 
| - Using standard input: when no filename or '-' is specified standard
|   input is read.
| - --socket-name: With this option the default UNIX socket filename can
|   be overwritten to be able to have more than one socket per host.
| 
| If I would know that there is any chance that these features would get
| into CVS I would supply a patch myself.
| 
| RFC
`----

After a short period of time I couldn't hold it back, so I posted the
following

,----
| Okay I couldn't wait, so here is the first patch enabling emacsclient
| to use a different socket filename.
`----


[-- Warning: decoded text below may be mangled, UTF-8 assumed --]
[-- Attachment #2: emacsclient.c.patch --]
[-- Type: text/x-patch, Size: 1891 bytes --]

--- emacsclient.c.orig	Tue Sep  9 09:21:31 2003
+++ emacsclient.c	Tue Sep  9 09:55:16 2003
@@ -67,6 +67,9 @@
    is not running.  --alternate-editor.   */
 const char * alternate_editor = NULL;
 
+/* If non-NULL, thefilename of the UNIX socket */
+const char * socket_name = NULL;
+
 void print_help_and_exit ();
 
 struct option longopts[] =
@@ -76,6 +79,7 @@
   { "help",	no_argument,	   NULL, 'H' },
   { "version",	no_argument,	   NULL, 'V' },
   { "alternate-editor", required_argument, NULL, 'a' },
+  { "socket-name",	required_argument, NULL, 's' },
   { "display",	required_argument, NULL, 'd' },
   { 0, 0, 0, 0 }
 };
@@ -91,7 +95,7 @@
   while (1)
     {
       int opt = getopt_long (argc, argv,
-			     "VHnea:d:", longopts, 0);
+			     "VHnea:s:d:", longopts, 0);
 
       if (opt == EOF)
 	break;
@@ -109,6 +113,10 @@
 	  alternate_editor = optarg;
 	  break;
 
+	case 's':
+	  socket_name = optarg;
+	  break;
+
 	case 'd':
 	  display = optarg;
 	  break;
@@ -152,6 +160,8 @@
 -n, --no-wait           Don't wait for the server to return\n\
 -e, --eval              Evaluate the FILE arguments as ELisp expressions\n\
 -d, --display=DISPLAY   Visit the file in the given display\n\
+-s, --socket-name=FILENAME\n\
+                        Set the filename of the UNIX socket for communication\n\
 -a, --alternate-editor=EDITOR\n\
                         Editor to fallback to if the server is not running\n\
 \n\
@@ -347,7 +357,14 @@
   {
     int sock_status = 0;
 
-    sprintf (server.sun_path, "/tmp/emacs%d-%s/server", (int) geteuid (), system_name);
+    if (socket_name)
+      {
+	sprintf (server.sun_path, "%s", socket_name);
+      }
+    else
+      {
+	sprintf (server.sun_path, "/tmp/emacs%d-%s/server", (int) geteuid (), system_name);
+      }
 
     /* See if the socket exists, and if it's owned by us. */
     sock_status = socket_status (server.sun_path);

[-- Attachment #3: Type: text/plain, Size: 287 bytes --]


So please I just want any answer: Yes or No or 'bad idea' or whatever.

thanks in advance. Could you please send a direct reply to me, because
I didn't subscribe to the list.

crunchy


-- 
Sogar Shakespeare kannte also das "Werk" Windows schon, nur unter dem
Namen "Comedy of Errors".

[-- Attachment #4: Type: text/plain, Size: 141 bytes --]

_______________________________________________
Emacs-devel mailing list
Emacs-devel@gnu.org
http://mail.gnu.org/mailman/listinfo/emacs-devel