[Emacs-diffs] /srv/bzr/emacs/trunk r111668: * lisp/url/url-cache.el (url-cache-create-filename-using-md5): Don't waste your

[Stefan Monnier]

------------------------------------------------------------
revno: 111668
committer: Stefan Monnier <address@hidden>
branch nick: trunk
timestamp: Sun 2013-02-03 11:13:36 -0500
message:
  * 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.
modified:
  lisp/subr.el
  lisp/url/ChangeLog
  lisp/url/url-cache.el

=== modified file 'lisp/subr.el'
--- a/lisp/subr.el      2013-02-03 15:28:47 +0000
+++ b/lisp/subr.el      2013-02-03 16:13:36 +0000
@@ -3979,7 +3979,6 @@
        (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)))

=== modified file 'lisp/url/ChangeLog'
--- a/lisp/url/ChangeLog        2013-01-02 16:13:04 +0000
+++ b/lisp/url/ChangeLog        2013-02-03 16:13:36 +0000
@@ -1,3 +1,8 @@
+2013-02-03  Stefan Monnier  <address@hidden>
+
+       * url-cache.el (url-cache-create-filename-using-md5): Don't waste your
+       time `requiring' a builtin feature.
+
 2012-12-22  Takafumi Arakaki  <address@hidden>  (tiny change)
 
        * url-http.el (url-http-end-of-document-sentinel): Bind relevant

=== modified file 'lisp/url/url-cache.el'
--- a/lisp/url/url-cache.el     2013-01-01 09:11:05 +0000
+++ b/lisp/url/url-cache.el     2013-02-03 16:13:36 +0000
@@ -149,7 +149,6 @@
 (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))