Changeset 1717

Timestamp:

1998年02月17日 01時45分20秒 (11 years ago)

Author:

himi

Message:

Emacs20.3.8 import

Files:

• branches/GNU/src/xrdb.c (modified) (15 diffs)

branches/GNU/src/xrdb.c

@@ -1 +1 @@
-/* Deal with the X Resource Manager.
-, 2000, 2001
+
-
-This file is part of GNU Emacs.
@@ -39 +39 @@
-#define SYSV
-#endif
+#include <unistd.h>
-#endif /* USG5 */
-
@@ -62 +63 @@
-#endif
-
-#include "lisp.h"
-
-extern char *getenv ();
-
@@ -90 +89 @@
-#define realloc xrealloc
-#define free xfree
+extern long *xmalloc (), *xrealloc ();
-#endif
-
@@ -181 +181 @@
-    {
-      /* The chunk we're about to stick on the end of result.  */
- = NULL
+
-      int next_len;
-
@@ -227 +227 @@
-                    return NULL;
-                  }
-
+
-                next = lang;
-                next_len = strlen (next);
-                break;
-
+
-              case 't':
-              case 'c':
@@ -247 +247 @@
-          path = (char *) realloc (path, path_size);
-        }
-
+
-      bcopy (next, path + path_len, next_len);
-      path_len += next_len;
@@ -309 +309 @@
-    }
-
-
+ 
-    return "/";
-
@@ -333 +333 @@
-
-/* Find the first element of SEARCH_PATH which exists and is readable,
-
+ 
-   the path name of the one we found otherwise.  */
-
@@ -346 +346 @@
-      for (p = s; *p && *p != ':'; p++)
-        ;
-
+
-      if (p > s)
-        {
@@ -397 +397 @@
-     Display *display;
-{
+  XrmDatabase db;
+
-  return NULL;
-}
@@ -419 +421 @@
-          && ((file = search_magic_path (path, class, "/%L/%N", 0))
-              || (file = search_magic_path (path, class, "/%N", 0))))
-
+
-      /* Check in the home directory.  This is a bit of a hack; let's
-         hope one's home directory doesn't contain any %-escapes.  */
@@ -521 +523 @@
-     char *xrm_string, *myname, *myclass;
-{
+  char *xdefs;
-  XrmDatabase user_database;
-  XrmDatabase rdb;
-  XrmDatabase db;
-  char line[256];
-  char *helv = "-*-helvetica-medium-r-*--*-120-*-*-*-*-iso8859-1";
-#ifdef USE_MOTIF
-  char *courier = "-*-courier-medium-r-*-*-*-120-*-*-*-*-iso8859-1";
-  extern Lisp_Object Vdouble_click_time;
-#endif
-
-  x_rm_string = XrmStringToQuark (XrmStringType);
@@ -538 +535 @@
-#endif
-  rdb = XrmGetStringDatabase ("");
-
-  /* Add some font defaults.  If the font `helv' doesn't exist, widgets
-     will use some other default font.  */
-#ifdef USE_MOTIF
-
-  sprintf (line, "%s.pane.background: grey75", myclass);
-  XrmPutLineResource (&rdb, line);
-  sprintf (line, "%s*fontList: %s", myclass, helv);
-  XrmPutLineResource (&rdb, line);
-  sprintf (line, "%s*menu*background: grey75", myclass);
-  XrmPutLineResource (&rdb, line);
-  sprintf (line, "%s*menubar*background: grey75", myclass);
-  XrmPutLineResource (&rdb, line);
-  sprintf (line, "%s*verticalScrollBar.background: grey75", myclass);
-  XrmPutLineResource (&rdb, line);
-  sprintf (line, "%s*verticalScrollBar.troughColor: grey75", myclass);
-  XrmPutLineResource (&rdb, line);
-  sprintf (line, "%s.dialog*.background: grey75", myclass);
-  XrmPutLineResource (&rdb, line);
-  sprintf (line, "%s*fsb.Text.background: white", myclass);
-  XrmPutLineResource (&rdb, line);
-  sprintf (line, "%s*fsb.FilterText.background: white", myclass);
-  XrmPutLineResource (&rdb, line);
-  sprintf (line, "%s*fsb*DirList.background: white", myclass);
-  XrmPutLineResource (&rdb, line);
-  sprintf (line, "%s*fsb*ItemsList.background: white", myclass);
-  XrmPutLineResource (&rdb, line);
-  sprintf (line, "%s*fsb*background: grey75", myclass);
-  XrmPutLineResource (&rdb, line);
-  sprintf (line, "%s*fsb.Text.fontList: %s", myclass, courier);
-  XrmPutLineResource (&rdb, line);
-  sprintf (line, "%s*fsb.FilterText.fontList: %s", myclass, courier);
-  XrmPutLineResource (&rdb, line);
-  sprintf (line, "%s*fsb*ItemsList.fontList: %s", myclass, courier);
-  XrmPutLineResource (&rdb, line);
-  sprintf (line, "%s*fsb*DirList.fontList: %s", myclass, courier);
-  XrmPutLineResource (&rdb, line);
-
-  /* Set double click time of list boxes in the file selection
-     dialog from `double-click-time'.  */
-  if (INTEGERP (Vdouble_click_time) && XINT (Vdouble_click_time) > 0)
-    {
-      sprintf (line, "%s*fsb*DirList.doubleClickInterval: %d",
-               myclass, XFASTINT (Vdouble_click_time));
-      XrmPutLineResource (&rdb, line);
-      sprintf (line, "%s*fsb*ItemsList.doubleClickInterval: %d",
-               myclass, XFASTINT (Vdouble_click_time));
-      XrmPutLineResource (&rdb, line);
-    }
-
-#else /* not USE_MOTIF */
-
-  sprintf (line, "Emacs.dialog*.font: %s", helv);
-  XrmPutLineResource (&rdb, line);
-  sprintf (line, "Emacs.dialog*.background: grey75");
-  XrmPutLineResource (&rdb, line);
-  sprintf (line, "*XlwMenu*font: %s", helv);
-  XrmPutLineResource (&rdb, line);
-  sprintf (line, "*XlwMenu*background: grey75");
-  XrmPutLineResource (&rdb, line);
-  sprintf (line, "Emacs*verticalScrollBar.background: grey75");
-  XrmPutLineResource (&rdb, line);
-
-#endif /* not USE_MOTIF */
-
-  user_database = get_user_db (display);
@@ -635 +568 @@
-  if (db != NULL)
-    XrmMergeDatabases (db, &rdb);
-
+
-  /* Last, merge in any specification from the command line. */
-  if (xrm_string != NULL)