Mercurial > emacs
comparison lisp/ffap.el @ 43174:8a1b4dc4ca4c
(ffap-newsgroup-p): Test for non-nil symbol-value of htb.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Thu, 07 Feb 2002 17:49:37 +0000 |
parents | e52b4f89d86f |
children | f29db3d22988 |
comparison
equal
deleted
inserted
replaced
43173:168298133c9d | 43174:8a1b4dc4ca4c |
---|---|
547 (setq htb (car htbs) htbs (cdr htbs)) | 547 (setq htb (car htbs) htbs (cdr htbs)) |
548 (condition-case nil | 548 (condition-case nil |
549 (progn | 549 (progn |
550 ;; errs: htb symbol may be unbound, or not a hash-table. | 550 ;; errs: htb symbol may be unbound, or not a hash-table. |
551 ;; gnus-gethash is just a macro for intern-soft. | 551 ;; gnus-gethash is just a macro for intern-soft. |
552 (and (intern-soft string (symbol-value htb)) | 552 (and (symbol-value htb) |
553 (intern-soft string (symbol-value htb)) | |
553 (setq ret string htbs nil)) | 554 (setq ret string htbs nil)) |
554 ;; If we made it this far, gnus is running, so ignore "heads": | 555 ;; If we made it this far, gnus is running, so ignore "heads": |
555 (setq heads nil)) | 556 (setq heads nil)) |
556 (error nil))) | 557 (error nil))) |
557 (or ret (not heads) | 558 (or ret (not heads) |