diff options
| author | Glenn Morris <rgm@gnu.org> | 2007-12-02 18:05:36 +0000 |
|---|---|---|
| committer | Glenn Morris <rgm@gnu.org> | 2007-12-02 18:05:36 +0000 |
| commit | d87fefad371af0bca0b4bed3268c1f3414d5f900 (patch) | |
| tree | 637fed19abe5bb1eda0e3d2fa16f8eaf0f332be0 /lisp/url/url-history.el | |
| parent | ed7cf49acf6f5ba065bf6556d406c470fad8c251 (diff) | |
| download | emacs-d87fefad371af0bca0b4bed3268c1f3414d5f900.tar.gz | |
(top-level): Don't require cl when compiling.
(url-history-setup-save-timer, url-history-save-history):
Use condition-case rather than ignore-errors.
Diffstat (limited to 'lisp/url/url-history.el')
| -rw-r--r-- | lisp/url/url-history.el | 10 |
1 files 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)) |