diff options
Diffstat (limited to 'lisp/ps-bdf.el')
| -rw-r--r-- | lisp/ps-bdf.el | 6 |
1 files changed, 2 insertions, 4 deletions
diff --git a/lisp/ps-bdf.el b/lisp/ps-bdf.el index 46c5f9842d..2b99a16a4a 100644 --- a/lisp/ps-bdf.el +++ b/lisp/ps-bdf.el @@ -95,8 +95,7 @@ If BDFNAME doesn't exist, return nil." (and (file-readable-p bdfname) (let ((buf (generate-new-buffer " *bdf-work*")) (coding-system-for-read 'no-conversion)) - (save-excursion - (set-buffer buf) + (with-current-buffer buf (insert-file-contents bdfname) buf)))) @@ -225,8 +224,7 @@ CODE, where N and CODE are in the following relation: (message "Reading %s..." bdfname) (error "BDF file %s doesn't exist" bdfname)) (unwind-protect - (save-excursion - (set-buffer buf) + (with-current-buffer buf (goto-char (point-min)) (search-forward "\nFONTBOUNDINGBOX") (setq font-bounding-box |