# HG changeset patch
# User Gerd Moellmann <gerd@gnu.org>
# Date 1000890774 0
# Node ID aa9501b933342afa463fe8093b5c5ca5b613c795
# Parent  195e4e86b20ae385d3cf8957111f3f2887992725
(bdf-read-bitmap): Initialize returned values to
defaults.

diff -r 195e4e86b20a -r aa9501b93334 lisp/ps-bdf.el
--- a/lisp/ps-bdf.el	Wed Sep 19 08:56:58 2001 +0000
+++ b/lisp/ps-bdf.el	Wed Sep 19 09:12:54 2001 +0000
@@ -359,8 +359,11 @@
 DWIDTH is a pixel width of a glyph.
 BBX is a bounding box of the glyph.
 BITMAP-STRING is a string representing bits by hexadecimal digits."
-  (let ((coding-system-for-read 'no-conversion)
-	dwidth bbx height yoff bitmap-string)
+  (let* ((coding-system-for-read 'no-conversion)
+	 (bbx (elt (bdf-get-font-info bdfname) 4))
+	 (dwidth (elt bbx 0))
+	 (bitmap-string "")
+	 height yoff)
     (condition-case nil
 	(with-temp-buffer
 	  (insert-file-contents bdfname nil offset (+ offset maxlen))