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) |