aboutsummaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorRichard M. Stallman1996-01-17 00:24:29 +0000
committerRichard M. Stallman1996-01-17 00:24:29 +0000
commitc208c8cd68026ca0a24927eeccd587697c33ac83 (patch)
tree502bf7f67d29b537411845187f1e0b7746f4f304
parent7e8fa774dd4421aa591cbc33ef6c2cead76abd3a (diff)
downloademacs-c208c8cd68026ca0a24927eeccd587697c33ac83.tar.gz
emacs-c208c8cd68026ca0a24927eeccd587697c33ac83.zip
(gnus-group-make-help-group): Check whether
`installation-directory' is nil before using it.
-rw-r--r--lisp/gnus.el4
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."
4259(defun gnus-group-make-help-group () 4259(defun gnus-group-make-help-group ()
4260 "Create the Gnus documentation group." 4260 "Create the Gnus documentation group."
4261 (interactive) 4261 (interactive)
4262 (let ((path (cons (concat installation-directory "etc/") load-path)) 4262 (let ((path (if installation-directory
4263 (cons (concat installation-directory "etc/") load-path)
4264 (cons data-directory load-path)))
4263 (name (gnus-group-prefixed-name "gnus-help" '(nndoc "gnus-help"))) 4265 (name (gnus-group-prefixed-name "gnus-help" '(nndoc "gnus-help")))
4264 file) 4266 file)
4265 (and (gnus-gethash name gnus-newsrc-hashtb) 4267 (and (gnus-gethash name gnus-newsrc-hashtb)