From 7e016c8c4c4a707eaad36911471218aef03b856d Mon Sep 17 00:00:00 2001 From: David Aspinall Date: Mon, 9 Jul 2001 15:16:06 +0000 Subject: Fix some bugs shown by byte comp --- generic/pg-pgip.el | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'generic') diff --git a/generic/pg-pgip.el b/generic/pg-pgip.el index d35e6c87..327000d6 100644 --- a/generic/pg-pgip.el +++ b/generic/pg-pgip.el @@ -25,7 +25,7 @@ (pg-pgip-get-version "usespgml" attrs))) ;; ((eq elt 'haspref) - (pg-pgip-haspref attrs (cadr pgip)) + (pg-pgip-haspref attrs) ;; (cadr pgip)) (setq pgip (cdr pgip))) ;; ((eq elt 'prefval) @@ -72,7 +72,7 @@ (defun pg-pgip-default-for (type) "Synthesize a default value for type TYPE." (cond - ((eq type 'boolean) false) + ((eq type 'boolean) nil) ((eq type 'integer) 0) ((eq type 'string) "") ((eq (car-safe type) 'choice) @@ -117,7 +117,7 @@ (error "Didn't find %s attribute in %s element" attrnm elt))))) (defun pg-pgip-get-version (elt attrs &optional optional) - (pg-pgip-get-attr elt "version")) + (pg-pgip-get-attr elt "version" attrs optional)) -- cgit v1.2.3