Completed new function for emacs underlining support.better-emacs

git-svn-id: http://svn.code.sf.net/p/docutils/code/branches/better-emacs@3859 929543f6-e4f2-0310-98a6-ba3bd3dd1d04

2 files changed, 16 insertions, 4 deletions

diff --git a/emacs/tests/tests-adjust-section.el b/emacs/tests/tests-adjust-section.el
index 667f5b31c..d544fda98 100644
--- a/emacs/tests/tests-adjust-section.el
+++ b/emacs/tests/tests-adjust-section.el
@@ -10,7 +10,7 @@
 ;;
 
 ;; Define tests.
-(setq rest-adjust-section-tests 
+(setq rest-adjust-decoration-tests
   '(
 ;;------------------------------------------------------------------------------
 (nodec-first-simple-1
@@ -415,6 +415,18 @@ Previous Title
 "
 )
 
+;;------------------------------------------------------------------------------
+(incomplete-top-2
+"=======
+Document Title@
+==============
+"
+"==============
+Document Title
+==============
+
+"
+)
 
 ;;------------------------------------------------------------------------------
 (complete-simple
@@ -761,8 +773,8 @@ Document Title2
 (progn
   (regression-test-compare-expect-buffer
    "Test interactive adjustment of sections."
-   rest-adjust-section-tests
+   rest-adjust-decoration-tests
    (lambda ()
-     (call-interactively 'rest-adjust-section-title))
+     (call-interactively 'rest-adjust))
    nil))
 
diff --git a/emacs/tests/tests-basic.el b/emacs/tests/tests-basic.el
index 6b1458aac..73054742f 100644
--- a/emacs/tests/tests-basic.el
+++ b/emacs/tests/tests-basic.el
@@ -545,7 +545,7 @@ Next
   (regression-test-compare-expect-values
    "Test finding the hierarchy of sections in a file, ignoring lines."
    rest-get-hierarchy-ignore-tests
-   (lambda () (rest-get-hierarchy nil (rest-current-line))) nil))
+   (lambda () (rest-get-hierarchy nil (line-number-at-pos))) nil))