diff options
| author | Jay Belanger <jay.p.belanger@gmail.com> | 2005-07-11 06:43:39 +0000 |
|---|---|---|
| committer | Jay Belanger <jay.p.belanger@gmail.com> | 2005-07-11 06:43:39 +0000 |
| commit | 0124a115fe6a544cab38d380a3a387b481f3e5d8 (patch) | |
| tree | 68d34ca8a2561fc1dec6736459fe47f5781ed051 /lisp/calc/calc.el | |
| parent | ba2c4279e0dcdc918305517b2f58b6c7ba727640 (diff) | |
| download | emacs-0124a115fe6a544cab38d380a3a387b481f3e5d8.tar.gz | |
(calc-embedded-announce-formula-alist)
(calc-embedded-open-close-plain-alist)
(calc-embedded-open-close-mode-alist): Added checks for additional
major modes (due to Robert J. Chassell <bob@rattlesnake.com>).
Diffstat (limited to 'lisp/calc/calc.el')
| -rw-r--r-- | lisp/calc/calc.el | 42 |
1 files changed, 27 insertions, 15 deletions
diff --git a/lisp/calc/calc.el b/lisp/calc/calc.el index 90d30975f3d..1dc4e94adb2 100644 --- a/lisp/calc/calc.el +++ b/lisp/calc/calc.el @@ -242,13 +242,17 @@ :type '(regexp)) (defcustom calc-embedded-announce-formula-alist - '((texinfo-mode . "@c Embed\n\\(@c .*\n\\)*") - (nroff-mode . "\\\\\"Embed\n\\(\\\\\" .*\n\\)*") - (pascal-mode . "{Embed}\n\\({.*}\n\\)*") + '((c++-mode . "//Embed\n\\(// .*\n\\)*") (c-mode . "/\\*Embed\\*/\n\\(/\\* .*\\*/\n\\)*") - (c++-mode . "//Embed\n\\(// .*\n\\)*") + (f90-mode . "!Embed\n\\(! .*\n\\)*") (fortran-mode . "C Embed\n\\(C .*\n\\)*") - (f90-mode . "!Embed\n\\(! .*\n\\)*")) + (html-helper-mode . "<!-- Embed -->\n\\(<!-- .* -->\n\\)*") + (html-mode . "<!-- Embed -->\n\\(<!-- .* -->\n\\)*") + (nroff-mode . "\\\\\"Embed\n\\(\\\\\" .*\n\\)*") + (pascal-mode . "{Embed}\n\\({.*}\n\\)*") + (sgml-mode . "<!-- Embed -->\n\\(<!-- .* -->\n\\)*") + (xml-mode . "<!-- Embed -->\n\\(<!-- .* -->\n\\)*") + (texinfo-mode . "@c Embed\n\\(@c .*\n\\)*")) "*Alist of major modes with appropriate values for `calc-embedded-announce-formula'." :group 'calc :type '(alist :key-type (symbol :tag "Major mode") @@ -310,13 +314,17 @@ See calc-embedded-open-plain." :type '(string)) (defcustom calc-embedded-open-close-plain-alist - '((texinfo-mode "@c %% " " %%\n") - (nroff-mode "\\\" %% " " %%\n") - (pascal-mode "{%% " " %%}\n") + '((c++-mode "// %% " " %%\n") (c-mode "/* %% " " %% */\n") - (c++-mode "// %% " " %%\n") + (f90-mode "! %% " " %%\n") (fortran-mode "C %% " " %%\n") - (f90-mode "! %% " " %%\n")) + (html-helper-mode "<!-- %% " " %% -->\n") + (html-mode "<!-- %% " " %% -->\n") + (nroff-mode "\\\" %% " " %%\n") + (pascal-mode "{%% " " %%}\n") + (sgml-mode "<!-- %% " " %% -->\n") + (xml-mode "<!-- %% " " %% -->\n") + (texinfo-mode "@c %% " " %%\n")) "*Alist of major modes with pairs of delimiters for \"plain\" formulas." :group 'calc :type '(alist :key-type (symbol :tag "Major mode") @@ -358,13 +366,17 @@ This is not required to be present for user-written mode annotations." :type '(string)) (defcustom calc-embedded-open-close-mode-alist - '((texinfo-mode "@c " "\n") - (nroff-mode "\\\" " "\n") - (pascal-mode "{ " " }\n") + '((c++-mode "// " "\n") (c-mode "/* " " */\n") - (c++-mode "// " "\n") + (f90-mode "! " "\n") (fortran-mode "C " "\n") - (f90-mode "! " "\n")) + (html-helper-mode "<!-- " " -->\n") + (html-mode "<!-- " " -->\n") + (nroff-mode "\\\" " "\n") + (pascal-mode "{ " " }\n") + (sgml-mode "<!-- " " -->\n") + (xml-mode "<!-- " " -->\n") + (texinfo-mode "@c " "\n")) "*Alist of major modes with pairs of strings to delimit annotations." :group 'calc :type '(alist :key-type (symbol :tag "Major mode") |