diff options
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)) |