[Emacs-diffs] Changes to emacs/lisp/url/url-history.el,v

[Glenn Morris]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Glenn Morris <gm>       07/12/02 18:05:36

Index: url-history.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/url/url-history.el,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -b -r1.18 -r1.19
--- url-history.el      26 Jul 2007 05:27:36 -0000      1.18
+++ url-history.el      2 Dec 2007 18:05:36 -0000       1.19
@@ -28,7 +28,6 @@
 
 ;; This can get a recursive require.
 ;;(require 'url)
-(eval-when-compile (require 'cl))
 (require 'url-parse)
 (autoload 'url-do-setup "url")
 
@@ -83,8 +82,9 @@
 (defun url-history-setup-save-timer ()
   "Reset the history list timer."
   (interactive)
-  (ignore-errors
-   (cancel-timer url-history-timer))
+  (condition-case nil
+      (cancel-timer url-history-timer)
+    (error nil))
   (setq url-history-timer nil)
   (if (and (eq url-history-track t) url-history-save-interval)
       (setq url-history-timer (run-at-time url-history-save-interval
@@ -120,7 +120,9 @@
   (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))))
+    (condition-case nil
+        (make-directory (file-name-directory fname))
+      (error nil)))
   (cond
    ((not url-history-changed-since-last-save) nil)
    ((not (file-writable-p fname))