procyberian/emacs
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

(mh-find-progs): Try /etc/nmh and lib/nmh dirs.

Browse source
This commit is contained in:
Richard M. Stallman 1999-04-07 23:48:18 +00:00
parent 2b09b4cecf
commit 539eedecc0
1 changed files with 4 additions and 6 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lisp/mail/mh-utils.el
View file

@ -628,18 +628,16 @@ directory names."
;; directory: Strip any trailing `mh' or `bin' path
;; components, then look for lib/mh or mh/lib.
(or (mh-path-search
(list (expand-file-name "lib/mh" mh-base)
(expand-file-name "etc/nmh" mh-base) ; NetBSD
(expand-file-name "mh/lib" mh-base))
(mapcar (lambda (p) (expand-file-name p mh-base))
'("lib/mh" "etc/nmh" "/etc/nmh" "mh/lib"))
"components"
'file-exists-p))))
(or (and mh-lib-progs
(mh-file-command-p (expand-file-name "mhl" mh-lib-progs)))
(setq mh-lib-progs
(or (mh-path-search
(list (expand-file-name "lib/mh" mh-base)
(expand-file-name "libexec/nmh" mh-base) ; NetBSD
(expand-file-name "mh/lib" mh-base))
(mapcar (lambda (p) (expand-file-name p mh-base))
'("lib/mh" "libexec/nmh" "lib/nmh" "mh/lib"))
"mhl")
(mh-path-search '("/usr/local/bin/mh/") "mhl")
(mh-path-search exec-path "mhl") ;unlikely