_ [opensuse] locate インストール

opensuse には標準で locate が入っていないので yum でインストールする

yum install findutils-locate

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

前の続き

単語が見つからなかったときはスクリーンを作らないように修正。そろそろまともになってきたしファイルにしたほうが良いのかしら?

続きます。

(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)
  ad-do-it
  (elscreen-kill))