[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] master 63e6748 116/433: (mmm-here-doc-get-mode): Signaled non-fbo
From: |
Dmitry Gutov |
Subject: |
[elpa] master 63e6748 116/433: (mmm-here-doc-get-mode): Signaled non-fboundp here-document names. |
Date: |
Thu, 15 Mar 2018 19:43:47 -0400 (EDT) |
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 <address@hidden>
-;; 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" @))
- [elpa] master 7971c49 080/433: (mmm-update-mode-info): Killed any lingering temporary buffers., (continued)
- [elpa] master 7971c49 080/433: (mmm-update-mode-info): Killed any lingering temporary buffers., Dmitry Gutov, 2018/03/15
- [elpa] master 5837c90 066/433: Fixed font-lock woes (hopefully)., Dmitry Gutov, 2018/03/15
- [elpa] master 9d39887 088/433: # Updated stuff., Dmitry Gutov, 2018/03/15
- [elpa] master 64abad9 089/433: Created file., Dmitry Gutov, 2018/03/15
- [elpa] master 362229f 094/433: Changed %[...]% to [%...%] which looks much nicer., Dmitry Gutov, 2018/03/15
- [elpa] master d0121d3 095/433: # Updated for 0.4.3, Dmitry Gutov, 2018/03/15
- [elpa] master 437e683 090/433: Added README.Mason to EXTRA_DIST., Dmitry Gutov, 2018/03/15
- [elpa] master ae11e72 101/433: Changed syntax to {%MODE%} to avoid possible conflicts., Dmitry Gutov, 2018/03/15
- [elpa] master c44e88a 102/433: # Updated., Dmitry Gutov, 2018/03/15
- [elpa] master d640498 096/433: Released 0.4.3., Dmitry Gutov, 2018/03/15
- [elpa] master 63e6748 116/433: (mmm-here-doc-get-mode): Signaled non-fboundp here-document names.,
Dmitry Gutov <=
- [elpa] master bf3b29e 100/433: # Updated, Dmitry Gutov, 2018/03/15
- [elpa] master c76f5a3 099/433: Added to CVS., Dmitry Gutov, 2018/03/15
- [elpa] master 89daaab 103/433: # Added comment about universal mode., Dmitry Gutov, 2018/03/15
- [elpa] master a0e97ea 108/433: (mmm-save-local-variables): Changed `defcustom' to `defvar'., Dmitry Gutov, 2018/03/15
- [elpa] master 70a94da 109/433: (mmm-run-major-mode-hook): Added `ignore-errors' around each call., Dmitry Gutov, 2018/03/15
- [elpa] master 7a12efa 111/433: Added MASON_VERSION variable to keep track of that., Dmitry Gutov, 2018/03/15
- [elpa] master e7da5c1 117/433: # Updated., Dmitry Gutov, 2018/03/15
- [elpa] master 88d1d46 115/433: (mmm-univ-get-mode): Signaled error on non-fboundp modes., Dmitry Gutov, 2018/03/15
- [elpa] master 752288f 113/433: Added `mmm-no-matching-submode' error signal., Dmitry Gutov, 2018/03/15
- [elpa] master 3ee92f7 091/433: Moved commentary code to README.Mason., Dmitry Gutov, 2018/03/15