diff options
| author | Richard M. Stallman <rms@gnu.org> | 1996-01-17 00:24:29 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1996-01-17 00:24:29 +0000 |
| commit | 31c17cd02931acbd15089dcb094943b5173fa224 (patch) | |
| tree | 03550aab92b34687b05e568d27ce9b0dd5e35372 | |
| parent | 4e1a4c5508b599c56bf457b602dd7c506432f494 (diff) | |
| download | emacs-31c17cd02931acbd15089dcb094943b5173fa224.tar.gz | |
(gnus-group-make-help-group): Check whether
`installation-directory' is nil before using it.
| -rw-r--r-- | lisp/gnus.el | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/lisp/gnus.el b/lisp/gnus.el index 7fab728a264..e7506466f38 100644 --- a/lisp/gnus.el +++ b/lisp/gnus.el @@ -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) |