branch: master
commit 63e6748cfc1b71c473dc9f70bc7a7ae921232efc
Author: mas <mas>
Commit: mas <mas>
(mmm-here-doc-get-mode): Signaled non-fboundp here-document names.
---
mmm-sample.el | 10 +++++-----
1 file changed, 5 insertions(+), 5 deletions(-)
diff --git a/mmm-sample.el b/mmm-sample.el
index 3b3e4b6..c1b09be 100644
--- a/mmm-sample.el
+++ b/mmm-sample.el
@@ -3,7 +3,7 @@
;; Copyright (C) 2000 by Michael Abraham Shulman
;; Author: Michael Abraham Shulman <[email protected]>
-;; Version: $Id: mmm-sample.el,v 1.5 2000/07/21 00:17:21 mas Exp $
+;; Version: $Id: mmm-sample.el,v 1.6 2000/07/21 00:54:35 mas Exp $
;;{{{ GPL
@@ -88,16 +88,16 @@ otherwise `c++-mode'. Some people prefer `c++-mode'
regardless.")
(concat (downcase string) "-mode"))))
(while (string-match "_" modestr)
(setq modestr (replace-match "-" nil nil modestr)))
- (and modestr (intern modestr))))
+ (setq modestr (intern modestr))
+ (if (fboundp modestr)
+ modestr
+ (signal 'mmm-no-matching-submode nil))))
(mmm-add-classes
`((here-doc
:front "<<\\([a-zA-Z0-9_-]+\\).*\n"
:back "^~1$"
:save-matches 1
- :front-verify ,#'(lambda ()
- (fboundp
- (mmm-here-doc-get-mode (match-string 0))))
:match-submode mmm-here-doc-get-mode
:insert ((?d here-doc "Here-document Name: " @ "<<" str _ "\n"
@ "\n" @ str "\n" @))
