diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-02-03 11:13:36 -0500 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2013-02-03 11:13:36 -0500 |
| commit | 37a56656369c5c60f1eb5de14b6f693dff0027a6 (patch) | |
| tree | ba33248913ebfdb37c92dd33ac015bfd2b02f2c1 | |
| parent | 4813c453b22ff7b965e31a30d35b70f73d6bcbc7 (diff) | |
| download | emacs-37a56656369c5c60f1eb5de14b6f693dff0027a6.tar.gz | |
* 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.
| -rw-r--r-- | lisp/subr.el | 1 | ||||
| -rw-r--r-- | lisp/url/ChangeLog | 5 | ||||
| -rw-r--r-- | 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 <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)) |