Navi2ch for Emacs (Part 22)

Navi2ch for Emacs (Part 22)at UNIX

Navi2ch for Emacs (Part 22) - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

262:名無しさん＠お腹いっぱい。
 24/01/02 20:28:33.21 .net
jbbs.shitaraba.netは全く使ってないので、設定方法とか教えてくれると嬉しい。

263:名無しさん＠お腹いっぱい。
 24/01/03 15:24:23.29 .net
~/.navi2ch/etc.txt 
``` 
PSP 
http://jbbs.shitaraba.net/computer/22593/ 
computer 
``` 
 
g computer 
適当なスレを開く 
q で閉じる 
SPC でもう一度スレを開く (invalid-function (start start))

264:名無しさん＠お腹いっぱい。
 24/01/03 21:47:22.77 .net
修正しました。currentブランチとしてpushしてあります。 
FreeBSDのcurrent, stable => current, mainの感じです。(mainをstableに変更すると大顰蹙を買いそうなので) 
ファイルローカル変数としてlexical-bindingは設定してあるので、 
(let ((lexical-binding t) (start start)) 
自体も不要だと思いますが、何となく残してしまいました。 
--- a/navi2ch-jbbs-shitaraba.el 
+++ b/navi2ch-jbbs-shitaraba.el 
@@ -99,9 +99,9 @@ START が non-nil ならばレス番号 START からの差分を取得する。 
(time (cdr (assq 'time article))) 
(url (navi2ch-js-article-to-rawmode-url board article start nil start)) 
(func (if start 
- (lexical-let ((start start)) 
+ (let ((lexical-binding t) (start start)) 
(lambda () (navi2ch-js-article-callback start))) 
- 'navi2ch-js-article-callback))) 
+ #'navi2ch-js-article-callback))) 
(navi2ch-net-update-file url file time func nil start))) 
(defun navi2ch-js-url-to-board (url)

次ページ