diff options
| author | Andreas Politz <politza@hochschule-trier.de> | 2014-12-01 00:01:33 +0100 |
|---|---|---|
| committer | Andreas Politz <politza@hochschule-trier.de> | 2014-12-01 00:01:33 +0100 |
| commit | dcd552cc340ca51b67bafc204415a07fbef0719e (patch) | |
| tree | aaf835507cf2ecabffa6cc5c78d57aeef9278f99 /lisp/pdf-cache.el | |
| parent | 518ac2be0d3a0985f8425dca382d259be17d28e4 (diff) | |
Don't try to clear the cache if therer is none.
* lisp/pdf-cache.el (pdf-cache-clear-data-of-pages,
pdf-cache-clear-data): Check if buffer has a data cache.
Diffstat (limited to 'lisp/pdf-cache.el')
| -rw-r--r-- | lisp/pdf-cache.el | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/lisp/pdf-cache.el b/lisp/pdf-cache.el index e7968bf..d4a27db 100644 --- a/lisp/pdf-cache.el +++ b/lisp/pdf-cache.el @@ -105,12 +105,14 @@ is nil and VALUE undefined." nil) (defun pdf-cache-clear-data-of-pages (&rest pages) - (dolist (page pages) - (remhash page pdf-cache--data))) + (when pdf-cache--data + (dolist (page pages) + (remhash page pdf-cache--data)))) (defun pdf-cache-clear-data () (interactive) - (clrhash pdf-cache--data)) + (when pdf-cache--data + (clrhash pdf-cache--data))) (defmacro define-pdf-cache-function (command &optional page-arg-p) "Define a simple data cache function. |