diff options
| author | Richard M. Stallman | 1996-01-17 00:24:29 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-01-17 00:24:29 +0000 |
| commit | c208c8cd68026ca0a24927eeccd587697c33ac83 (patch) | |
| tree | 502bf7f67d29b537411845187f1e0b7746f4f304 | |
| parent | 7e8fa774dd4421aa591cbc33ef6c2cead76abd3a (diff) | |
| download | emacs-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.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." | |||
| 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) |