Source of Nothingness - xyzzy : gtags.l

* xyzzy : gtags.l

たかだか3つの関数のためにemacs.lに依存するのはもったいないと思ったので、てきとーに実装してみました。
GPLなんですしemacs.lからもってくるのもありかと。
マイナーモードにする関数はed::toggle-modeを使いましょう。それでelisp::prefix-numeric-valueは不要になります。

(defun count-line(beg end)
  (if (eql beg end)
      0
    (1+ (- (save-excursion
             (goto-char end)
             (when (eql (preceding-char) #\LFD) (backward-char))
             (current-line-number))
           (save-excursion
             (goto-char beg)
             (current-line-number))))))

(defun expand-file-name (file &optional (dir (default-directory)))
  (merge-pathnames file dir))


bulbです。
ありがとうございます。
前に途中までやろうとしていて止まっていたなぁ…

マージしておきます。



よろしくお願いします。
すっきりバイトコンパイルできないと、気になるんですよね(^^;

update : 2007-12-01 (Sat) 15:57:49