buf: Fix two embarassing bugs found while writing Lisp bindings.

[mLib] / quis.c

diff --git a/quis.c b/quis.c
index 34b0f1f5a1d9d90e68a1bea6e2cb04e076385a7d..28c5615eb374a77194d7b5eb799846bbd22e6c58 100644 (file)
--- a/quis.c
+++ b/quis.c
@@ -1,37 +1,30 @@
 /* -*-c-*-
  *
- * $Id: quis.c,v 1.1 1998/06/17 23:44:42 mdw Exp $
+ * $Id: quis.c,v 1.6 2004/04/08 01:36:13 mdw Exp $
  *
  * Setting the program name
  *
  * (c) 1998 Straylight/Edgeware
  */
 
-/*----- Licensing notice --------------------------------------------------*
+/*----- Licensing notice --------------------------------------------------* 
  *
  * This file is part of the mLib utilities library.
  *
  * mLib is free software; you can redistribute it and/or modify
- * it under the terms of the GNU General Public License as published by
- * the Free Software Foundation; either version 2 of the License, or
- * (at your option) any later version.
- *
+ * it under the terms of the GNU Library General Public License as
+ * published by the Free Software Foundation; either version 2 of the
+ * License, or (at your option) any later version.
+ * 
  * mLib is distributed in the hope that it will be useful,
  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
- * GNU General Public License for more details.
- *
- * You should have received a copy of the GNU General Public License
- * along with mLib; if not, write to the Free Software Foundation,
- * Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
- */
-
-/*----- Revision history --------------------------------------------------*
- *
- * $Log: quis.c,v $
- * Revision 1.1  1998/06/17 23:44:42  mdw
- * Initial revision
- *
+ * GNU Library General Public License for more details.
+ * 
+ * You should have received a copy of the GNU Library General Public
+ * License along with mLib; if not, write to the Free
+ * Software Foundation, Inc., 59 Temple Place - Suite 330, Boston,
+ * MA 02111-1307, USA.
  */
 
 /*----- Header files ------------------------------------------------------*/
@@ -86,7 +79,11 @@ void ego(const char *p)
     if (*q++ == PATHSEP)
       p = q;
   }
+  if (*p == '-')
+    p++;
   pn__name = p;
 }
 
+#undef PATHSEP
+
 /*----- That's all, folks -------------------------------------------------*/