After mergin your tree, I found following code in xtla.

(defun tla-browse-category-widget-new (archive category &optional open-p 
in-revlib)
  (let ((widget (tla-browse-element-widget-new
         'category "c" archive category)))
    (widget-put widget :in-revlib in-revlib)
    (widget-put widget :open open-p)
    widget))

Is this indentation what you want?
Should we use this indentation style?
It is difficult for me to read list source code with this indentation.

I'm doing something wrong?
What I expect is, of couser:

(defun tla-browse-category-widget-new (archive category &optional open-p 
in-revlib)
  (let ((widget (tla-browse-element-widget-new
                 'category "c" archive category)))
    (widget-put widget :in-revlib in-revlib)
    (widget-put widget :open open-p)
    widget)) 

Reply via email to