From: Stefan Monnier <monnier@iro.umontreal.ca>
Date: Sun, 3 Feb 2013 16:13:36 +0000 (-0500)
Subject: * lisp/url/url-cache.el (url-cache-create-filename-using-md5): Don't waste your
X-Git-Tag: emacs-24.3.90~173^2~7^2~155
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=37a56656369c5c60f1eb5de14b6f693dff0027a6;p=emacs.git

* 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 82bbc022646..31cbb9a0a8a 100644
--- 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 969d3c7d269..72842ad188d 100644
--- 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 a5e5ebf1ed4..cb0281b87f2 100644
--- 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))