Newsgroups: fj.editor.emacs
Path: galaxy.trc.rwcp.or.jp!jaist-news!cs.titech!wnoc-tyo-news!news.u-tokyo.ac.jp!train.ad.jp!saidai-g!sinec!isobe
From: isobe@cit.ics.saitama-u.ac.jp (ISOBE Norikazu)
Subject: Re: manual path
In-Reply-To: isobe@cit.ics.saitama-u.ac.jp's message of Mon, 6 Sep 1993 23:22:40 GMT
Message-ID: <ISOBE.93Sep8042943@kisoelc.cit.ics.saitama-u.ac.jp>
Sender: news@saidai-g.cent.saitama-u.ac.jp
Nntp-Posting-Host: kisoelc
Organization: Ohsawa Lab., The Dept. of Info. and Comp. Sciences. ,Saitama
	Univ. ,Japan.
References: <ISOBE.93Sep7082241@kisoelc.cit.ics.saitama-u.ac.jp>
Distribution: fj
Date: Tue, 7 Sep 1993 19:29:43 GMT
Lines: 77
Xref: galaxy.trc.rwcp.or.jp fj.editor.emacs:3995
X-originally-archived-at: http://galaxy.rwcp.or.jp/text/cgi-bin/newsarticle2?ng=fj.editor.emacs&nb=3995&hd=a
X-reformat-date: Mon, 18 Oct 2004 15:18:22 +0900
X-reformat-comment: Tabs were expanded into 4 column tabstops by the Galaxy's archiver. See http://katsu.watanabe.name/ancientfj/galaxy-format.html for more info.

$B0kIt!w:k6LBg$G$9!#(B

$B@hF|(B
$B!V(B > $BLdBj$O!"(BM-x manual-entry $B$GA4$F$N%^%K%e%"%k$,C5$;$J$$$H$$$&$3$H$G$9!#!W(B
$B$H$$$&<ALd$r$7$?$H$3$m!"(B

$B%U%)%m!<$G(B
hkim@dhs.kyutech.ac.jp (NeXTmail Acceptable)$B$5$s!"(B
$B%j%W%i%$$G(B
maeda@src.ricoh.co.jp $B$5$s(B
ichiro@ccsr.u-tokyo.ac.jp $B$5$s(B
minamino@sra.co.jp $B$5$s(B
ueda@white.tutkie.tut.ac.jp $B$5$s(B
seta@csis.oita-u.ac.jp $B$5$s(B
n-sakamt@sran270.sra.co.jp $B$5$s(B
$B$+$i$$$m$$$m$H%"%I%P%$%9$r$$$?$@$-$^$7$?!#(B
$B$3$N>l$r<Z$j$F$*Ni$r?=$7>e$2$^$9!#(B
$BK\Ev$K$"$j$,$H$&$4$6$$$^$7$?!#(B

$B$=$N7k2LL\E*$NF0:n$r$5$;$k$3$H$,=PMh$k$h$&$K$J$j$^$7$?!#(B

;From: csuwn@cu.warwick.ac.uk (Max)
;Newsgroups: comp.emacs
;Subject: apply, mapcar, lack of setenv
;Keywords: Emacs-lisp, hacking, environment
;Date: 2 Jun 89 03:14:13 GMT
;Distribution: comp
;Organization: Computing Services, Warwick University, UK

(defun setenv (name new)
  (cond ((<= 1 (apply '+ (mapcar 'env-entry process-environment)))
;;The process-environment list contains the name - therefore
;;change it to the new value
 (setq proccess-environment (mapcar 'change-env
    process-environment)))
(t 
;;Otherwise just append the new setting to the front of the list.
 (setq process-environment
 (append (list (format "%s=%s" name new))
 process-environment)))))

(defun change-env (str)
    ;;Return the new setting of the environment if str contains the
    ;;old setting, otherwise just returning str.
    (cond ((= 1 (env-entry str))
   (format "%s=%s" name new))
  (t str)))

(defun env-entry (entry)
    ;;Does entry contain the environment variable name?
    ;;Return 1 if it does - 0 otherwise
  (let ((match (string-match (format "%s=" name) entry)))
    (cond ((null match) 0)
  ((= match 0) 1)
  (t 0))))

n-sakamt@sran270.sra.co.jp $B$5$s$K!"$3$l$r$rAw$C$F$$$?$@$$$?(B
$B$3$H$G!"(B.emacs $B$G4D6-JQ?t$r@_Dj$9$k$3$H$,=PMh$k$h$&$K$J$j$^$7$?!#(B
$B$=$l$K!"(B

(setenv "LANG" "japanese")
(setenv "MANPATH"
 (concat (expand-file-name "~/man:")
"/usr2/X11R5/man:"
"/usr/local/man:"
"/usr/man"))

$B$rIU$12C$($k$3$H$K$h$C$F!"@_Dj$7$?(B MANPATH $B$K$"$k%^%K%e%"%k$r!"(B
$BF|K\8l$,$"$k>l9g$K$OF|K\8l$G$b8+$k$3$H$,=PMh$k$h$&$K$J$j$^$7$?!#(B

$B3'MM$K$OK\Ev$K$*@$OC$K$J$j$^$7$?!#(B
$B$^$?2?$+J,$+$i$J$$$3$H$,$"$C$?$i!"<ALd$5$;$F$$$?$@$/$3$H$,$"$k$+$b(B
$BCN$l$^$;$s!#$=$N$H$-$K$O!"$h$m$7$/$*4j$$$7$^$9!#(B

--
$B0kItB'OB(B : $B:k6LBg3XBg3X1!(B $BM}9)3X8&5f2J(B $B>pJs9)3X@l96(B $BGn;NA04|2]Dx#2G/(B
         : E-mail  : isobe@cit.ics.saitama-u.ac.jp
