From: yamaoka <yamaoka>
Date: Mon, 26 Jul 1999 12:54:29 +0000 (+0000)
Subject: New file.
X-Git-Tag: et-gnus-6_11_08-02~3
X-Git-Url: http://git.chise.org/gitweb/?a=commitdiff_plain;h=2ed15198d7187ee55bfd3b80d42fa1de20adeaee;p=elisp%2Fgnus.git-

New file.
---

diff --git a/acinclude.m4 b/acinclude.m4
new file mode 100644
index 0000000..79ff3ac
--- /dev/null
+++ b/acinclude.m4
@@ -0,0 +1,103 @@
+dnl Copyright (C) 1999 NISHIDA Keisuke <knishida@ring.aist.go.jp>
+dnl
+dnl This program is free software; you can redistribute it and/or modify
+dnl it under the terms of the GNU General Public License as published by
+dnl the Free Software Foundation; either version 2, or (at your option)
+dnl any later version.
+dnl
+dnl This program is distributed in the hope that it will be useful,
+dnl but WITHOUT ANY WARRANTY; without even the implied warranty of
+dnl MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+dnl GNU General Public License for more details.
+dnl
+dnl You should have received a copy of the GNU General Public License
+dnl along with this program; if not, write to the Free Software
+dnl Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
+dnl 02111-1307, USA.
+
+AC_DEFUN(AM_PATH_LISPDIR,
+ [dnl #
+  dnl # Check Emacs
+  dnl #
+  AC_ARG_WITH(emacs,
+    [  --with-emacs=EMACS      compile with EMACS [EMACS=emacs, xemacs...]],
+    [case "${withval}" in
+       yes)	EMACS= ;;
+       no)	AC_MSG_ERROR([emacs is not available]) ;;
+       *)	EMACS=${withval} ;;
+     esac], EMACS=)
+  if test "x$EMACS" = "xt" -o "x$EMACS" = x; then
+    AC_PATH_PROGS(EMACS, emacs xemacs mule, no)
+    if test $EMACS = no; then
+      AC_MSG_ERROR(you should install Emacs first)
+    fi
+  fi
+  dnl # 
+  dnl # Check Emacs directories
+  dnl #
+  AC_MSG_CHECKING([where emacs files are in])
+  EMACS_BASENAME="`echo x$EMACS | sed -e 's/x//' -e 's/^.*\///'`"
+  if test "x$emacsdir" = x; then
+    if test "x$prefix" = "xNONE"; then
+      prefix=$ac_default_prefix
+    fi
+    emacsdir="\$(datadir)/emacs"
+    case "$EMACS_BASENAME" in
+    emacs|emacs-*)
+      if test -d $prefix/lib/emacs; then
+	emacsdir="$prefix/lib/emacs"
+      fi
+      if test -d $prefix/share/emacs; then
+	emacsdir="$prefix/share/emacs"
+      fi
+      ;;
+    xemacs|xemacs-*)
+      if test -d $prefix/lib/xemacs; then
+	emacsdir="$prefix/lib/xemacs"
+      fi
+      if test -d $prefix/share/xemacs; then
+	emacsdir="$prefix/share/xemacs"
+      fi
+      ;;
+    mule|mule-*)
+      if test -d $prefix/lib/emacs; then
+	emacsdir="$prefix/lib/emacs"
+      fi
+      if test -d $prefix/share/emacs; then
+	emacsdir="$prefix/share/emacs"
+      fi
+      if test -d $prefix/lib/mule; then
+	emacsdir="$prefix/lib/mule"
+      fi
+      if test -d $prefix/share/mule; then
+	emacsdir="$prefix/share/mule"
+      fi
+      ;;
+    esac
+  fi
+  AC_MSG_RESULT($emacsdir)
+  AC_SUBST(emacsdir)
+  dnl # 
+  dnl # Check Emacs site-lisp directories
+  dnl #
+  AC_ARG_WITH(lispdir,
+    [  --with-lispdir=DIR      emacs lisp files go to DIR [guessed]],
+    [case "${withval}" in
+       yes)	lispdir= ;;
+       no)	AC_MSG_ERROR(lispdir is not available) ;;
+       *)	lispdir=${withval} ;;
+     esac], lispdir=)
+  AC_MSG_CHECKING([where .elc files should go])
+  if test "x$lispdir" = x; then
+    lispdir="$emacsdir/site-lisp"
+    if test -d $emacsdir/lisp; then
+      lispdir="$emacsdir/lisp"
+    fi
+    case "$EMACS_BASENAME" in
+    xemacs|xemacs-*)
+      lispdir="$lispdir/lookup"
+      ;;
+    esac
+  fi
+  AC_MSG_RESULT($lispdir)
+  AC_SUBST(lispdir)])
diff --git a/lisp/paths.el.in b/lisp/paths.el.in
new file mode 100644
index 0000000..816e0db
--- /dev/null
+++ b/lisp/paths.el.in
@@ -0,0 +1,17 @@
+;; -*- Emacs-Lisp -*-
+(let ((addpath
+       "@ADDITIONAL_LOAD_PATH@"
+       )
+      path paths)
+  (or (string-equal addpath "NONE")
+      (progn
+	(while (string-match "[^\0-\37:]+" addpath)
+	  (setq path (file-name-as-directory
+		      (expand-file-name (match-string 0 addpath)))
+		addpath (substring addpath (match-end 0)))
+	  (if (string-match "apel/" path)
+	      (setq path (substring path 0 (match-beginning 0))))
+	  (if (file-directory-p path)
+	      (setq paths (nconc paths (list path)))))
+	(or (null paths)
+	    (setq load-path (nconc paths load-path))))))