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-*$")