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)))) 

문제는 실행시 T 또는 nil 대신에 미니 패드 창에 "마크 세트"가 표시된다는 것입니다.

Answer 1

eolp이라는 기본 제공 함수가 있습니다. (편집 :하지만이 아니 었 당신이 달성하려고했던 것은 그 것이었다 ..) (더 철저하게 나보다 그것을 테스트해야합니다 있지만) 여기

함수의 내 버전입니다 :

초보자 이맥스 리스프 프로그래머는 종종에 대한 마크를 사용하려고 : 당신이 '설정 마크 command`에 대한 설명서 문자열의 맨 아래에 보면 당신이 볼 수있는 경우

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