Elisp函数返回标记而不是正确的值

Question

我正在编写一个例程来测试以查看点是否在实际行结束处。

(defun end-of-line-p() 
    "T if there is only \w* between point and end of line" 
    (interactive) 
    (save-excursion 
    (set-mark-command nil)  ;mark where we are 
    (move-end-of-line nil)  ;move to the end of the line 
    (let ((str (buffer-substring (mark) (point)))) ;; does any non-ws text exist in the region? return false 
     (if (string-match-p "\W*" str) 
     t 
    nil)))) 

问题是，运行它时，我在minibuffer窗口中看到“标记集”，而不是T或nil。

Answer 1

有一个内置函数eolp。 （编辑：但是这不是你想要实现的，是吧..）

这里是我的版本的功能（尽管你将有更彻底地比我测试）：

(defun end-of-line-p() 
    "true if there is only [ \t] between point and end of line" 
    (interactive) 
    (let (
     (point-initial (point)) ; save point for returning 
     (result t) 
     ) 
    (move-end-of-line nil) ; move point to end of line 
    (skip-chars-backward " \t" (point-min)) ; skip backwards over whitespace 
    (if (> (point) point-initial) 
     (setq result nil) 
    ) 
    (goto-char point-initial) ; restore where we were 
    result 
    ) 
) 

Answer 2

(looking-at-p "\\s-*$")