[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] Changes to emacs/lisp/url/url-history.el
From: |
Stefan Monnier |
Subject: |
[Emacs-diffs] Changes to emacs/lisp/url/url-history.el |
Date: |
Thu, 05 Jan 2006 22:07:30 +0000 |
Index: emacs/lisp/url/url-history.el
diff -u emacs/lisp/url/url-history.el:1.14 emacs/lisp/url/url-history.el:1.15
--- emacs/lisp/url/url-history.el:1.14 Thu Dec 8 00:00:20 2005
+++ emacs/lisp/url/url-history.el Thu Jan 5 22:07:30 2006
@@ -1,7 +1,7 @@
;;; url-history.el --- Global history tracking for URL package
;; Copyright (C) 1996, 1997, 1998, 1999, 2004,
-;; 2005 Free Software Foundation, Inc.
+;; 2005, 2006 Free Software Foundation, Inc.
;; Keywords: comm, data, processes, hypermedia
@@ -80,7 +80,6 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;;###autoload
(defun url-history-setup-save-timer ()
"Reset the history list timer."
(interactive)
@@ -92,14 +91,15 @@
url-history-save-interval
'url-history-save-history))))
-;;;###autoload
(defun url-history-parse-history (&optional fname)
"Parse a history file stored in FNAME."
;; Parse out the mosaic global history file for completions, etc.
(or fname (setq fname (expand-file-name url-history-file)))
(cond
((not (file-exists-p fname))
- (message "%s does not exist." fname))
+ ;; It's completely normal for this file not to exist, so don't complain.
+ ;; (message "%s does not exist." fname)
+ )
((not (file-readable-p fname))
(message "%s is unreadable." fname))
(t
@@ -113,7 +113,6 @@
(setq url-history-changed-since-last-save t)
(puthash (if (vectorp url) (url-recreate-url url) url) time
url-history-hash-table))
-;;;###autoload
(defun url-history-save-history (&optional fname)
"Write the global history file into `url-history-file'.
The type of data written is determined by what is in the file to begin
- [Emacs-diffs] Changes to emacs/lisp/url/url-history.el,
Stefan Monnier <=