From 37a56656369c5c60f1eb5de14b6f693dff0027a6 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Sun, 3 Feb 2013 11:13:36 -0500 Subject: [PATCH] * 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. --- lisp/subr.el | 1 - lisp/url/ChangeLog | 5 +++++ lisp/url/url-cache.el | 1 - 3 files changed, 5 insertions(+), 2 deletions(-) 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 + + * url-cache.el (url-cache-create-filename-using-md5): Don't waste your + time `requiring' a builtin feature. + 2012-12-22 Takafumi Arakaki (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)) -- 2.11.4.GIT