>^))<'s Diary

_ 平成31年と令和元年の　５００円玉

_ 今日から12月なので三井ビル

クリスマスツリー　

_ sdicとemacs26.2

emacs25.2ではsdic.elが使えていたが、26.2で使えなくなった。 以下のようにSDICのコードを書き換えたら、emacs26.2でsdicが使えるようになった。

以下のようにsdic.elを自力修正： 修正はsdic.elのみで他のファイルは修正なし。

diff -u "/Users/*******/Documents/.emacs.d/site-lisp/sdic.el~" "/Users/*******/Documents/.emacs.d/site-lisp/sdic.el"
--- /Users/*******/Documents/.emacs.d/site-lisp/sdic.el~       Tue Jul 02 20:17:46 2002
+++ /Users/*******/Documents/.emacs.d/site-lisp/sdic.el       Mon Dec 02 16:58:16 2019
@@ -97,7 +97,9 @@
(defvar sdic-left-margin 2 "*Left margin of contents.
説明文の左側の余白幅")
-(defvar sdic-fill-column default-fill-column "*Right edge of contents.
+;(defvar sdic-fill-column default-fill-column "*Right edge of contents.
+;説明文を整形する幅")
+(defvar sdic-fill-column fill-column "*Right edge of contents.
説明文を整形する幅")
 (defvar sdic-window-height 10 "*Height of window to show entrys and contents.
@@ -322,7 +324,7 @@
     (eval (cons 'insert (nreverse (if (< pos (length content)) (cons (substring content pos) buf) buf))))
     (insert "\n")
     (forward-char -1)
-    (while (if (>= (move-to-column fill-column) fill-column)
+    (while (if (>= (move-to-column fill-column-t) fill-column-t)
                   (not (progn
                                (if (memq (preceding-char) sdic-kinsoku-eol-list)
                                          (progn
@@ -755,10 +757,10 @@
?               ヘルプ表示
"
   (kill-all-local-variables)
-  (make-local-variable 'fill-column)
+  (make-local-variable 'fill-column-t)
   (setq major-mode 'sdic-mode
            mode-name   sdic-mode-name
-            fill-column sdic-fill-column
+           fill-column-t sdic-fill-column
            left-margin sdic-left-margin
            sdic-mode-map (make-keymap))
   ;; キーバインドの設定
Diff finished.  Mon Dec  2 17:59:58 2019

@WAEI_DICT_LIST@が定義されていないというメッセージが出るので、ダミーで和英の辞書を作った。 空のファイルを作成し、和英辞書の参照先に指定した。