Commit 44915370 authored by Glenn Morris's avatar Glenn Morris
Browse files

* subr.el (do-after-load-evaluation): Also give compiler warnings

when obsolete files are used (except by obsolete files).
parent 8ffbc36b
2013-09-12 Glenn Morris <rgm@gnu.org> 2013-09-12 Glenn Morris <rgm@gnu.org>
* subr.el (do-after-load-evaluation): Also give compiler warnings
when obsolete files are used (except by obsolete files).
* vc/vc-svn.el (vc-svn-parse-status): If there are multiple files * vc/vc-svn.el (vc-svn-parse-status): If there are multiple files
in the status output, assume `filename' is the first. (Bug#15322) in the status output, assume `filename' is the first. (Bug#15322)
......
...@@ -3907,12 +3907,27 @@ This function is called directly from the C code." ...@@ -3907,12 +3907,27 @@ This function is called directly from the C code."
(mapc #'funcall (cdr a-l-element)))) (mapc #'funcall (cdr a-l-element))))
;; Complain when the user uses obsolete files. ;; Complain when the user uses obsolete files.
(when (string-match-p "/obsolete/[^/]*\\'" abs-file) (when (string-match-p "/obsolete/[^/]*\\'" abs-file)
(run-with-timer 0 nil ;; Maybe we should just use display-warning? This seems yucky...
(lambda (file) (let* ((file (file-name-nondirectory abs-file))
(message "Package %s is obsolete!" (msg (format "Package %s is obsolete!"
(substring file 0 (substring file 0
(string-match "\\.elc?\\>" file)))) (string-match "\\.elc?\\>" file)))))
(file-name-nondirectory abs-file))) ;; Cribbed from cl--compiling-file.
(if (and (boundp 'byte-compile--outbuffer)
(bufferp (symbol-value 'byte-compile--outbuffer))
(equal (buffer-name (symbol-value 'byte-compile--outbuffer))
" *Compiler Output*"))
;; Don't warn about obsolete files using other obsolete files.
(unless (and (stringp byte-compile-current-file)
(string-match-p "/obsolete/[^/]*\\'"
(expand-file-name
byte-compile-current-file
byte-compile-root-dir)))
(byte-compile-log-warning msg))
(run-with-timer 0 nil
(lambda (msg)
(message "%s" msg)) msg))))
;; Finally, run any other hook. ;; Finally, run any other hook.
(run-hook-with-args 'after-load-functions abs-file)) (run-hook-with-args 'after-load-functions abs-file))
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment