* lisp/url/url-cache.el (url-cache-create-filename-using-md5): Don't waste your

time `requiring' a builtin feature.
* lisp/subr.el (internal--called-interactively-p--get-frame): Remove
left-over message.

diff --git a/lisp/subr.el b/lisp/subr.el
index 82bbc02..31cbb9a 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -3979,7 +3979,6 @@ the number of frames to skip (minus 1).")
        (defvar ,sym)
        (unless (boundp ',sym)
          (let ((i 1))
-           (message "Computing base-index")
            (while (not (eq (indirect-function (nth 1 (backtrace-frame i)) t)
                            (indirect-function 'called-interactively-p)))
              (setq i (1+ i)))

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index 969d3c7..72842ad 100644 (file)
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -1,3 +1,8 @@
+2013-02-03  Stefan Monnier  <monnier@iro.umontreal.ca>
+
+       * url-cache.el (url-cache-create-filename-using-md5): Don't waste your
+       time `requiring' a builtin feature.
+
 2012-12-22  Takafumi Arakaki  <aka.tkf@gmail.com>  (tiny change)
 
        * url-http.el (url-http-end-of-document-sentinel): Bind relevant

diff --git a/lisp/url/url-cache.el b/lisp/url/url-cache.el
index a5e5ebf..cb0281b 100644 (file)
--- a/lisp/url/url-cache.el
+++ b/lisp/url/url-cache.el
@@ -149,7 +149,6 @@ The actual return value is the last modification time of the cache file."
 (defun url-cache-create-filename-using-md5 (url)
   "Create a cached filename using MD5.
 Very fast if you have an `md5' primitive function, suitably fast otherwise."
-  (require 'md5)
   (if url
       (let* ((checksum (md5 url))
             (urlobj (url-generic-parse-url url))