Mercurial > hg > xemacs-beta
comparison lisp/etags.el @ 5367:8b70d37ab80e
Use Common Lisp-derived builtins in a few more places in core Lisp.
2011-03-08 Aidan Kehoe <kehoea@parhasard.net>
* cl-macs.el:
* cl-macs.el (loop):
* cl-macs.el (cl-expand-do-loop):
* cl-macs.el (shiftf):
* cl-macs.el (rotatef):
* cl-macs.el (assert):
* cl-macs.el (cl-defsubst-expand):
* etags.el (buffer-tag-table-list):
* frame.el:
* frame.el (frame-notice-user-settings):
* frame.el (minibuffer-frame-list):
* frame.el (get-frame-for-buffer-noselect):
Use Common Lisp-derived builtins in a few more places, none of
them performance-critical, but the style is better.
| author | Aidan Kehoe <kehoea@parhasard.net> |
|---|---|
| date | Tue, 08 Mar 2011 23:57:21 +0000 |
| parents | 0d43872986b6 |
| children | 4141aeddc55b |
comparison
equal
deleted
inserted
replaced
| 5366:f00192e1cd49 | 5367:8b70d37ab80e |
|---|---|
| 241 (eval (cdr item)))) | 241 (eval (cdr item)))) |
| 242 (if (stringp expression) | 242 (if (stringp expression) |
| 243 (push expression result) | 243 (push expression result) |
| 244 (error "Expression in tag-table-alist evaluated to non-string"))))) | 244 (error "Expression in tag-table-alist evaluated to non-string"))))) |
| 245 (setq result | 245 (setq result |
| 246 (mapcar | 246 (mapcan |
| 247 (lambda (name) | 247 (lambda (name) |
| 248 (when (file-directory-p name) | 248 (when (file-directory-p name) |
| 249 (setq name (concat (file-name-as-directory name) "TAGS"))) | 249 (setq name (concat (file-name-as-directory name) "TAGS"))) |
| 250 (and (file-readable-p name) | 250 (and (file-readable-p name) |
| 251 ;; get-tag-table-buffer has side-effects | 251 ;; get-tag-table-buffer has side-effects |
| 252 (symbol-value-in-buffer 'buffer-file-name | 252 (list (symbol-value-in-buffer 'buffer-file-name |
| 253 (get-tag-table-buffer name)))) | 253 (get-tag-table-buffer name)))))) |
| 254 result)) | 254 result) |
| 255 (setq result (delq nil result)) | |
| 256 ;; If no TAGS file has been found, ask the user explicitly. | 255 ;; If no TAGS file has been found, ask the user explicitly. |
| 257 ;; #### tags-file-name is *evil*. | 256 ;; #### tags-file-name is *evil*. |
| 258 (or result tags-file-name | 257 (or result tags-file-name |
| 259 (call-interactively 'visit-tags-table)) | 258 (call-interactively 'visit-tags-table)) |
| 260 (when tags-file-name | 259 (when tags-file-name |