Mercurial > emacs
comparison lisp/speedbar.el @ 73645:4dac62a8a77b
(speedbar-generic-list-tag-p): Use "non-nil" in docstrings.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Fri, 03 Nov 2006 15:07:29 +0000 |
| parents | 3407291ee367 |
| children | b90d5a3a62fb 02cf29720f31 |
comparison
equal
deleted
inserted
replaced
| 73644:07bba73f6bdd | 73645:4dac62a8a77b |
|---|---|
| 2155 (speedbar-generic-list-group-p rest) | 2155 (speedbar-generic-list-group-p rest) |
| 2156 (speedbar-generic-list-positioned-group-p rest) | 2156 (speedbar-generic-list-positioned-group-p rest) |
| 2157 )))) | 2157 )))) |
| 2158 | 2158 |
| 2159 (defun speedbar-generic-list-tag-p (sublst) | 2159 (defun speedbar-generic-list-tag-p (sublst) |
| 2160 "Non nil if SUBLST is a tag." | 2160 "Non-nil if SUBLST is a tag." |
| 2161 (and (stringp (car-safe sublst)) | 2161 (and (stringp (car-safe sublst)) |
| 2162 (or (and (number-or-marker-p (cdr-safe sublst)) | 2162 (or (and (number-or-marker-p (cdr-safe sublst)) |
| 2163 (not (cdr-safe (cdr-safe sublst)))) | 2163 (not (cdr-safe (cdr-safe sublst)))) |
| 2164 ;; For semantic/bovine items, this is needed | 2164 ;; For semantic/bovine items, this is needed |
| 2165 (symbolp (car-safe (cdr-safe sublst)))) | 2165 (symbolp (car-safe (cdr-safe sublst)))) |