Added heading to ELCode tags

SVN revision: 1637
2006-01-24 21:39:34 +00:00
parent 66d96e870d
commit 42d35efc3c
3 changed files with 24 additions and 0 deletions
@@ -90,3 +90,11 @@ function queryURL(text)
   linkURL = prompt(linkURL_prompt, 'http://');
   elcode1(text, 'URL',	linkURL, linkText);
 }
+
+function queryHeading(text)
+{
+   selection =	getSelection(text);
+   heading = prompt(linkHeading_prompt, '');
+   tag = 'H' + heading;
+   elcode1(text, tag, '', selection);
+}