[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Emacs-diffs] master 8b40f8d: lisp/gnus/mailcap.el (mailcap-mailcap-entr
From: |
Katsumi Yamaoka |
Subject: |
[Emacs-diffs] master 8b40f8d: lisp/gnus/mailcap.el (mailcap-mailcap-entry-passes-test): Doc fix |
Date: |
Wed, 21 Oct 2015 05:37:00 +0000 |
branch: master
commit 8b40f8d9539856700664d395d7331dd9a2f232ed
Author: Katsumi Yamaoka <address@hidden>
Commit: Katsumi Yamaoka <address@hidden>
lisp/gnus/mailcap.el (mailcap-mailcap-entry-passes-test): Doc fix
---
lisp/gnus/mailcap.el | 7 +++++--
1 files changed, 5 insertions(+), 2 deletions(-)
diff --git a/lisp/gnus/mailcap.el b/lisp/gnus/mailcap.el
index a3348c6..d888110 100644
--- a/lisp/gnus/mailcap.el
+++ b/lisp/gnus/mailcap.el
@@ -556,8 +556,11 @@ MAILCAPS if set; otherwise (on Unix) use the path from RFC
1524, plus
results)))
(defun mailcap-mailcap-entry-passes-test (info)
- "Return non-nil if mailcap entry INFO passes its test clause.
-Also return non-nil if no test clause is present."
+ "Replace the test clause of INFO itself with a boolean for some cases.
+This function supports only `test -n $DISPLAY' and `test -z $DISPLAY',
+replaces them with t or nil. As for others or if INFO has a interactive
+spec (needsterm, needsterminal, or needsx11) but DISPLAY is not set,
+the test clause will be unchanged."
(let ((test (assq 'test info)) ; The test clause
status)
(setq status (and test (split-string (cdr test) " ")))
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Emacs-diffs] master 8b40f8d: lisp/gnus/mailcap.el (mailcap-mailcap-entry-passes-test): Doc fix,
Katsumi Yamaoka <=