Changeset 526

Show
Ignore:
Timestamp:
10/18/07 17:07:09 (7 years ago)
Author:
xcezx
Message:

/lang/elisp/simple-hatena-mode/simple-hatena-mode.el:\

  • simple-hatena-change-default-group 修正
Files:
1 modified

Legend:

Unmodified
Added
Removed
  • lang/elisp/simple-hatena-mode/simple-hatena-mode.el

    r511 r526  
    3838;;;; * ヴァージョン 
    3939 
    40 (defconst simple-hatena-version "0.07" 
     40(defconst simple-hatena-version "0.08" 
    4141  "simple-hatena-mode.elのヴァージョン。") 
    4242 
     
    321321  "現在のデフォルトグループを変更する。" 
    322322  (interactive) 
    323   (setq simple-hatena-default-group 
    324         (simple-hatena-internal-completing-read-group simple-hatena-default-id)) 
    325   (message "Changed current default group to %s" simple-hatena-default-group)) 
     323  (if simple-hatena-default-id 
     324      (setq simple-hatena-default-group 
     325            (simple-hatena-internal-completing-read-group simple-hatena-default-id)) 
     326    (list (simple-hatena-change-default-id) 
     327          (setq simple-hatena-default-group 
     328                (simple-hatena-internal-completing-read-group simple-hatena-default-id)))) 
     329  (message "Change current default group to %s" simple-hatena-default-group)) 
    326330 
    327331(defun simple-hatena-submit ()