diff options
author | David Aspinall <da@inf.ed.ac.uk> | 2001-07-09 15:16:06 +0000 |
---|---|---|
committer | David Aspinall <da@inf.ed.ac.uk> | 2001-07-09 15:16:06 +0000 |
commit | 7e016c8c4c4a707eaad36911471218aef03b856d (patch) | |
tree | 77225959e6dbc06a656ddaab96b4085b0aee0595 /generic/pg-pgip.el | |
parent | d4842004b389f5900aaa0baa3ad68ea366f4cac4 (diff) |
Fix some bugs shown by byte comp
Diffstat (limited to 'generic/pg-pgip.el')
-rw-r--r-- | generic/pg-pgip.el | 6 |
1 files changed, 3 insertions, 3 deletions
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))) ;; <haspref> ((eq elt 'haspref) - (pg-pgip-haspref attrs (cadr pgip)) + (pg-pgip-haspref attrs) ;; (cadr pgip)) (setq pgip (cdr pgip))) ;; <prefval> ((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)) |