_ [cat] ちょこっとお座り

胸元に顔を寄せるとフワフワして気持ちいいです。顔中毛だらけになっちゃうけど。

画像は胸元に顔をつけるのは勘弁してくださいなミナミ図。

_ [Emacs] sdic の elscreen add-on を作製中4

前の続き

もうそろそろ完結？

sdic-window-close にエラー追加。

(defadvice sdic-describe-word (around elscreen-sdic-describe-word activate)
  (let ((sdic-screen (elscreen-find-screen-by-buffer sdic-buffer-name)))
    (cond ((numberp sdic-screen)
           (elscreen-goto sdic-screen))
          (t (elscreen-create))))
  (if (null ad-do-it)
      (elscreen-kill)
    (delete-other-windows)))
;
(defadvice sdic-close-window (around elscreen-sdic-close-window activate)
  (if (null ad-do-it)
      nil
      (elscreen-kill)))