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

(gnus-group-make-help-group): Check whether

Browse source 
`installation-directory' is nil before using it.
This commit is contained in:
Richard M. Stallman 1996-01-17 00:24:29 +00:00
parent 7e8fa774dd
commit c208c8cd68
1 changed files with 3 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lisp/gnus.el
View file

@ -4259,7 +4259,9 @@ ADDRESS."
(defun gnus-group-make-help-group ()
"Create the Gnus documentation group."
(interactive)
(let ((path (cons (concat installation-directory "etc/") load-path))
(let ((path (if installation-directory
(cons (concat installation-directory "etc/") load-path)
(cons data-directory load-path)))
(name (gnus-group-prefixed-name "gnus-help" '(nndoc "gnus-help")))
file)
(and (gnus-gethash name gnus-newsrc-hashtb)