emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/org 4362b93 40/41: Merge branch 'maint'


From: ELPA Syncer
Subject: [elpa] externals/org 4362b93 40/41: Merge branch 'maint'
Date: Sun, 16 May 2021 04:57:24 -0400 (EDT)

branch: externals/org
commit 4362b93018b9157861c9674a22c63730d406af50
Merge: fdd7072 9802877
Author: Bastien <bzg@gnu.org>
Commit: Bastien <bzg@gnu.org>

    Merge branch 'maint'
---
 doc/Makefile                     | 10 +++++-----
 lisp/org-element.el              |  4 +++-
 testing/lisp/test-org-element.el |  3 +++
 3 files changed, 11 insertions(+), 6 deletions(-)

diff --git a/doc/Makefile b/doc/Makefile
index dc68829..da5a07a 100644
--- a/doc/Makefile
+++ b/doc/Makefile
@@ -48,10 +48,10 @@ org-version.tex:    orgcard.tex
 
 install:       org orgguide
        if [ ! -d $(DESTDIR)$(infodir) ]; then $(MKDIR) $(DESTDIR)$(infodir); 
else true; fi ;
-       $(CP) org $(DESTDIR)$(infodir)
-       $(CP) orgguide $(DESTDIR)$(infodir)
-       $(INSTALL_INFO) --infodir=$(DESTDIR)$(infodir) org
-       $(INSTALL_INFO) --infodir=$(DESTDIR)$(infodir) orgguide
+       $(CP) org.info $(DESTDIR)$(infodir)
+       $(CP) orgguide.info $(DESTDIR)$(infodir)
+       $(INSTALL_INFO) --infodir=$(DESTDIR)$(infodir) org.info
+       $(INSTALL_INFO) --infodir=$(DESTDIR)$(infodir) orgguide.info
 
 clean:
        $(RM) org orgguide *.pdf *.html *_letter.tex org-version.inc \
@@ -68,7 +68,7 @@ clean-install:
 .SUFFIXES:     .texi .tex .txt _letter.tex
 
 %:             %.texi org-version.inc
-       $(MAKEINFO) --no-split $< -o $@
+       $(MAKEINFO) --no-split $< -o $@.info
 
 # the following two lines work around a bug in some versions of texi2dvi
 %.pdf:         LC_ALL=C
diff --git a/lisp/org-element.el b/lisp/org-element.el
index a675bf5..ba4f0ea 100644
--- a/lisp/org-element.el
+++ b/lisp/org-element.el
@@ -737,7 +737,9 @@ Return a list whose CAR is `drawer' and CDR is a plist 
containing
 
 Assume point is at beginning of drawer."
   (let ((case-fold-search t))
-    (if (not (save-excursion (re-search-forward "^[ \t]*:END:[ \t]*$" limit 
t)))
+    (if (not (save-excursion
+               (goto-char (min limit (line-end-position)))
+               (re-search-forward "^[ \t]*:END:[ \t]*$" limit t)))
        ;; Incomplete drawer: parse it as a paragraph.
        (org-element-paragraph-parser limit affiliated)
       (save-excursion
diff --git a/testing/lisp/test-org-element.el b/testing/lisp/test-org-element.el
index 18991b5..dd91551 100644
--- a/testing/lisp/test-org-element.el
+++ b/testing/lisp/test-org-element.el
@@ -662,6 +662,9 @@ Some other text
   (should-not
    (org-test-with-temp-text ":TEST:"
      (org-element-map (org-element-parse-buffer) 'drawer 'identity nil t)))
+  (should-not
+   (org-test-with-temp-text ":END:"
+     (org-element-map (org-element-parse-buffer) 'drawer 'identity nil t)))
   ;; Handle non-empty blank line at the end of buffer.
   (should
    (org-test-with-temp-text ":TEST:\nC\n:END:\n "



reply via email to

[Prev in Thread] Current Thread [Next in Thread]