[elpa] master d6dc934 203/433: (mmm-here-doc-get-mode): Try each word individually first.

[Dmitry Gutov]

branch: master
commit d6dc934b663c27abbfa116b507e74d4e6f289a1e
Author: mas <mas>
Commit: mas <mas>

    (mmm-here-doc-get-mode): Try each word individually first.
---
 mmm-sample.el | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/mmm-sample.el b/mmm-sample.el
index dd426d8..d9e0e82 100644
--- a/mmm-sample.el
+++ b/mmm-sample.el
@@ -3,7 +3,7 @@
 ;; Copyright (C) 2000 by Michael Abraham Shulman
 
 ;; Author: Michael Abraham Shulman <m...@kurukshetra.cjb.net>
-;; Version: $Id: mmm-sample.el,v 1.15 2001/01/15 00:52:36 mas Exp $
+;; Version: $Id: mmm-sample.el,v 1.16 2001/01/15 00:57:43 mas Exp $
 
 ;;{{{ GPL
 
@@ -102,6 +102,10 @@ and MODE is a major mode function symbol.")
                          (nconc (ldiff words (member "mode" words))
                                 (list "mode"))
                          "-")))
+            ;; Try each word by itself (preference list)
+            (some #'(lambda (word)
+                      (mmm-ensure-modename (intern word)))
+                  words)
             ;; Try each word with -mode tacked on
             (some #'(lambda (word)
                       (mmm-ensure-modename