                (unless (gethash guid enh-tag-info)
                  (throw 'result t)))
              tag-guids))
-        (progn
           (enh-set-tag-attrs
-           (enh-command-get-tag-attrs))
-          (enh-browsing-reflesh)))))
-
-
-(defun enh-update-tag-attrs-external (tag-attrs)
-  (enh-set-tag-attrs tag-attrs)
-  (enh-browsing-reflesh))
-
-
-(defun enh-update-search-attrs-external (search-attrs)
-  (enh-set-search-attrs search-attrs)
-  (enh-browsing-reflesh))
-
-
-(defun enh-update-search-attr (search-attr)
-  (enh-set-search-attr search-attr)
-  (enh-browsing-reflesh))
+           (enh-command-get-tag-attrs)))))
 
 
 (defun enh-tag-guids-to-comma-separated-names (tag-guids &optional maxlen)

       (enh-command-get-search-attrs))))


(defun enh-update-note-attrs-external (note-attrs)
  (enh-set-note-attrs note-attrs))


(defun enh-update-note-attr (note-attr)
  (enh-set-note-attr note-attr)
  (let* ((tag-guids (enutil-aget 'guid note-attr)))
    (if (catch 'result

     (let ((note-attrs
            (enh-command-get-note-attrs-from-query
             query)))
       (enh-set-note-attrs note-attrs)
       (enh-base-open-note-common (enh-base-read-note-attr note-attrs))))))


