소스 검색

Minor stylish fix.

Bastien Guerry 14 년 전
부모
커밋
7a0f8bccb8
1개의 변경된 파일2개의 추가작업 그리고 2개의 파일을 삭제
  1. 2 2
      lisp/org.el

+ 2 - 2
lisp/org.el

@@ -9324,7 +9324,7 @@ application the system uses for this file type."
 
 	 ((string= type "shell")
 	  (let ((cmd path))
-	    (if (or (and (not (zerop (length org-confirm-shell-link-not-regexp)))
+	    (if (or (and (not (string= org-confirm-shell-link-not-regexp ""))
 			 (string-match org-confirm-shell-link-not-regexp cmd))
 		    (not org-confirm-shell-link-function)
 		    (funcall org-confirm-shell-link-function
@@ -9338,7 +9338,7 @@ application the system uses for this file type."
 
 	 ((string= type "elisp")
 	  (let ((cmd path))
-	    (if (or (and (not (zerop (length org-confirm-elisp-link-not-regexp)))
+	    (if (or (and (not (string= "" org-confirm-elisp-link-not-regexp))
 			 (string-match org-confirm-elisp-link-not-regexp cmd))
 		    (not org-confirm-elisp-link-function)
 		    (funcall org-confirm-elisp-link-function