From d87fefad371af0bca0b4bed3268c1f3414d5f900 Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Sun, 2 Dec 2007 18:05:36 +0000 Subject: [PATCH] (top-level): Don't require cl when compiling. (url-history-setup-save-timer, url-history-save-history): Use condition-case rather than ignore-errors. --- lisp/url/url-history.el | 10 ++++++---- 1 file changed, 6 insertions(+), 4 deletions(-) diff --git a/lisp/url/url-history.el b/lisp/url/url-history.el index 1ed3c71174e..605ffa0145f 100644 --- a/lisp/url/url-history.el +++ b/lisp/url/url-history.el @@ -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 @@ to run the `url-history-setup-save-timer' function manually." (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 @@ 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)))) + (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)) -- 2.39.2