(url-history-hash-table): Initialize in declaration.

(url-history-parse-history): Don't reset the history.
(url-history-save-history): Create parent dir if necessary.
(url-history-save-history): Don't write the initialization of
url-history-hash-table into the history file.
(url-have-visited-url): Simplify since url-history-hash-table is non-nil.
(url-completion-function): Simplify.

diff --git a/lisp/url/ChangeLog b/lisp/url/ChangeLog
index 3a560e7bb681891256dc27db4bb471259ba2a9d8..d30534ec6be21b30bc2f490bc3e59ad1f465023f 100644 (file)
--- a/lisp/url/ChangeLog
+++ b/lisp/url/ChangeLog
@@ -1,5 +1,13 @@
 2006-01-05  Stefan Monnier  <monnier@iro.umontreal.ca>
 
+       * url-history.el (url-history-hash-table): Initialize in declaration.
+       (url-history-parse-history): Don't reset the history.
+       (url-history-save-history): Create parent dir if necessary.
+       (url-history-save-history): Don't write the initialization of
+       url-history-hash-table into the history file.
+       (url-have-visited-url): Simplify since url-history-hash-table is non-nil.
+       (url-completion-function): Simplify.
+
        * url-cookie.el (url-cookie-parse-file): Don't complain of missing file.
        (url-cookie-parse-file, url-cookie-write-file, url-cookie-retrieve)
        (url-cookie-generate-header-lines, url-cookie-handle-set-cookie)

diff --git a/lisp/url/url-history.el b/lisp/url/url-history.el
index 8ed9f1d81711d6df0577db24dae2a13571611f35..0cdfe329bc2bad26fb038ee9ddbd894e4a89f2eb 100644 (file)
--- a/lisp/url/url-history.el
+++ b/lisp/url/url-history.el
@@ -75,7 +75,7 @@ to run the `url-history-setup-save-timer' function manually."
 (defvar url-history-changed-since-last-save nil
   "Whether the history list has changed since the last save operation.")
 
-(defvar url-history-hash-table nil
+(defvar url-history-hash-table (make-hash-table :size 31 :test 'equal)
   "Hash table for global history completion.")
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
@@ -105,13 +105,12 @@ to run the `url-history-setup-save-timer' function manually."
    (t
     (condition-case nil
        (load fname nil t)
-      (error (message "Could not load %s" fname)))))
-  (if (not url-history-hash-table)
-      (setq url-history-hash-table (make-hash-table :size 31 :test 'equal))))
+      (error (message "Could not load %s" fname))))))
 
 (defun url-history-update-url (url time)
   (setq url-history-changed-since-last-save t)
-  (puthash (if (vectorp url) (url-recreate-url url) url) time url-history-hash-table))
+  (puthash (if (vectorp url) (url-recreate-url url) url) time
+           url-history-hash-table))
 
 (defun url-history-save-history (&optional fname)
   "Write the global history file into `url-history-file'.
@@ -120,6 +119,8 @@ with.  If the type of storage cannot be determined, then prompt the
 user for what type to save as."
   (interactive)
   (or fname (setq fname (expand-file-name url-history-file)))
+  (unless (file-directory-p (file-name-directory fname))
+    (ignore-errors (make-directory (file-name-directory fname))))
   (cond
    ((not url-history-changed-since-last-save) nil)
    ((not (file-writable-p fname))
@@ -128,26 +129,27 @@ user for what type to save as."
     (let ((make-backup-files nil)
          (version-control nil)
          (require-final-newline t))
-      (save-excursion
-       (set-buffer (get-buffer-create " *url-tmp*"))
+      (with-current-buffer (get-buffer-create " *url-tmp*")
        (erase-buffer)
        (let ((count 0))
-         (maphash (function
-                      (lambda (key value)
-                        (while (string-match "[\r\n]+" key)
-                          (setq key (concat (substring key 0 (match-beginning 0))
-                                            (substring key (match-end 0) nil))))
-                        (setq count (1+ count))
-                        (insert "(puthash \"" key "\""
-                                (if (not (stringp value)) " '" "")
-                                (prin1-to-string value)
-                                " url-history-hash-table)\n")))
-                     url-history-hash-table)
-         (goto-char (point-min))
-         (insert (format
-                  "(setq url-history-hash-table (make-hash-table :size %d :test 'equal))\n"
-                  (/ count 4)))
-         (goto-char (point-max))
+         (maphash (lambda (key value)
+                     (while (string-match "[\r\n]+" key)
+                       (setq key (concat (substring key 0 (match-beginning 0))
+                                         (substring key (match-end 0) nil))))
+                     (setq count (1+ count))
+                     (insert "(puthash \"" key "\""
+                             (if (not (stringp value)) " '" "")
+                             (prin1-to-string value)
+                             " url-history-hash-table)\n"))
+                   url-history-hash-table)
+          ;; We used to add this in the file, but it just makes the code
+          ;; more complex with no benefit.  Worse: it makes it harder to
+          ;; preserve preexisting history when loading the history file.
+         ;; (goto-char (point-min))
+         ;; (insert (format
+         ;;          "(setq url-history-hash-table (make-hash-table :size %d :test 'equal))\n"
+         ;;          (/ count 4)))
+         ;; (goto-char (point-max))
          (insert "\n")
          (write-file fname))
        (kill-buffer (current-buffer))))))
@@ -155,33 +157,30 @@ user for what type to save as."
 
 (defun url-have-visited-url (url)
   (url-do-setup)
-  (and url-history-hash-table
-       (gethash url url-history-hash-table nil)))
+  (gethash url url-history-hash-table nil))
 
 (defun url-completion-function (string predicate function)
+  ;; Completion function to complete urls from the history.
+  ;; This is obsolete since we can now pass the hash-table directly as a
+  ;; completion table.
   (url-do-setup)
   (cond
    ((eq function nil)
     (let ((list nil))
-      (maphash (function (lambda (key val)
-                             (setq list (cons (cons key val)
-                                              list))))
-                 url-history-hash-table)
+      (maphash (lambda (key val) (push key list))
+               url-history-hash-table)
+      ;; Not sure why we bother reversing the list.  --Stef
       (try-completion string (nreverse list) predicate)))
    ((eq function t)
-    (let ((stub (concat "^" (regexp-quote string)))
+    (let ((stub (concat "\\`" (regexp-quote string)))
          (retval nil))
       (maphash
-       (function
-       (lambda (url time)
-         (if (string-match stub url)
-             (setq retval (cons url retval)))))
+       (lambda (url time)
+         (if (string-match stub url) (push url retval)))
        url-history-hash-table)
       retval))
    ((eq function 'lambda)
-    (and url-history-hash-table
-        (gethash string url-history-hash-table)
-        t))
+    (and (gethash string url-history-hash-table) t))
    (t
     (error "url-completion-function very confused"))))