Fixed.
authorDaiki Ueno <ueno@unixuser.org>
Sat, 27 Aug 2005 00:37:42 +0000 (00:37 +0000)
committerDaiki Ueno <ueno@unixuser.org>
Sat, 27 Aug 2005 00:37:42 +0000 (00:37 +0000)
lisp/riece-toolbar.el

index 1335eca..fdad370 100644 (file)
                  (specifier-specs default-toolbar (current-buffer)))
            (set-specifier default-toolbar toolbar (current-buffer)))
          (defun riece-unset-toolbar ()
                  (specifier-specs default-toolbar (current-buffer)))
            (set-specifier default-toolbar toolbar (current-buffer)))
          (defun riece-unset-toolbar ()
-           (set-specifier default-toolbar riece-toolbar-original-toolbar
-                          (current-buffer))
+           (if riece-toolbar-original-toolbar
+               (set-specifier default-toolbar riece-toolbar-original-toolbar
+                              (current-buffer))
+             (remove-specifier default-toolbar (current-buffer)))
            (kill-local-variable 'riece-toolbar-original-toolbar)))
       (defalias 'riece-make-toolbar-from-menu 'ignore)
       (defalias 'riece-set-toolbar 'ignore)
            (kill-local-variable 'riece-toolbar-original-toolbar)))
       (defalias 'riece-make-toolbar-from-menu 'ignore)
       (defalias 'riece-set-toolbar 'ignore)