Mercurial > emacs

--- a/lisp/url/ChangeLog	Thu Jan 05 22:10:47 2006 +0000
+++ b/lisp/url/ChangeLog	Thu Jan 05 22:28:16 2006 +0000
@@ -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)
--- a/lisp/url/url-history.el	Thu Jan 05 22:10:47 2006 +0000
+++ b/lisp/url/url-history.el	Thu Jan 05 22:28:16 2006 +0000
@@ -75,7 +75,7 @@
 (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 @@
    (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 @@
 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 @@
     (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 @@

 (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"))))