Commit 37a56656 authored by Stefan Monnier's avatar Stefan Monnier

* 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.
parent 4813c453
......@@ -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)))
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
......@@ -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))
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment