Mercurial > hg > xemacs-beta

comparison lisp/etags.el @ 5369:4141aeddc55b

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Eliminate byte-compile warnings, core Lisp. 2011-03-10 Aidan Kehoe <kehoea@parhasard.net> * etags.el (buffer-tag-table-list): * files.el (find-file-read-only): * files.el (find-file-read-only-other-window): * info.el (Info-dir-outdated-p): * info.el (Info-dump-dir-entries): * info.el (Info-rebuild-dir): * menubar-items.el (default-menubar): * mouse.el (drag-window-divider): * mouse.el (vertical-divider-map): * test-harness.el (emacs-lisp-file-regexp): Eliminate byte-compile warnings, again aside from those linked to Stephen's various non-defined fontconfig functions.
author Aidan Kehoe <kehoea@parhasard.net>
date Thu, 10 Mar 2011 19:14:25 +0000
parents 8b70d37ab80e
children 3889ef128488 ac37a5f7e5be
comparison
equal deleted inserted replaced
5368:ed74d2ca7082 5369:4141aeddc55b
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 (list (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 ;; If no TAGS file has been found, ask the user explicitly. 255 ;; If no TAGS file has been found, ask the user explicitly.
256 ;; #### tags-file-name is *evil*. 256 ;; #### tags-file-name is *evil*.
257 (or result tags-file-name 257 (or result tags-file-name
258 (call-interactively 'visit-tags-table)) 258 (call-interactively 'visit-tags-table))
259 (when tags-file-name 259 (when tags-file-name