Update to Org 9.4.3

Fix #45259

diff --git a/doc/misc/org.texi b/doc/misc/org.texi
index 29713f18bc2012c82564aa1cb97cccd5b4ca20e1..7766b300c4faf833d3cdf32b602beef6c9488724 100644 (file)
--- a/doc/misc/org.texi
+++ b/doc/misc/org.texi
@@ -4050,12 +4050,11 @@ replacement text.  Here is an example:
 
 @lisp
 (setq org-link-abbrev-alist
-      '(("bugzilla"  . "http://10.1.2.9/bugzilla/show_bug.cgi?id=")
-        ("url-to-ja" . "http://translate.google.fr/translate?sl=en&tl=ja&u=%h")
-        ("google"    . "http://www.google.com/search?q=")
-        ("gmap"      . "http://maps.google.com/maps?q=%s")
-        ("omap"      . "http://nominatim.openstreetmap.org/search?q=%s&polygon=1")
-        ("ads"       . "https://ui.adsabs.harvard.edu/search/q=%20author%3A\"%s\"")))
+      '(("bugzilla"        . "http://10.1.2.9/bugzilla/show_bug.cgi?id=")
+        ("Nu Html Checker" . "https://validator.w3.org/nu/?doc=%h")
+        ("duckduckgo"      . "https://duckduckgo.com/?q=%s")
+        ("omap"            . "http://nominatim.openstreetmap.org/search?q=%s&polygon=1")
+        ("ads"             . "https://ui.adsabs.harvard.edu/search/q=%20author%3A\"%s\"")))
 @end lisp
 
 If the replacement text contains the string @samp{%s}, it is replaced with
@@ -18285,8 +18284,7 @@ A note of warning: when @samp{cache} is used in a session, caching may
 cause unexpected results.
 
 When the caching mechanism tests for any source code changes, it does
-not expand noweb style references (see @ref{Noweb Reference Syntax}).  For
-reasons why, see @uref{https://orgmode.org/list/86fvqqc8jb.fsf@@somewhere.org}
+not expand noweb style references (see @ref{Noweb Reference Syntax}).
 
 The @samp{cache} header argument can have one of two values: @samp{yes} or @samp{no}.
 

diff --git a/lisp/org/org-macs.el b/lisp/org/org-macs.el
index f375c33d96ace803820c33b16f09e53513d0eff6..506fba8aaf5726d2806bee4e035fdb96d6bda196 100644 (file)
--- a/lisp/org/org-macs.el
+++ b/lisp/org/org-macs.el
@@ -461,9 +461,15 @@ is selected, only the bare key is returned."
                ;; Display UI and let user select an entry or
                ;; a sub-level prefix.
                (goto-char (point-min))
-               (unless (pos-visible-in-window-p (point-max))
-                 (org-fit-window-to-buffer))
+               (setq header-line-format nil)
+               (org-fit-window-to-buffer)
+               (unless (pos-visible-in-window-p (1- (point-max)))
+                 (setq header-line-format "Use C-n, C-p or C-v to navigate.")
+                 (setq allowed-keys (append allowed-keys '("\C-n" "\C-p" "\C-v"))))
                (let ((pressed (org--mks-read-key allowed-keys prompt)))
+                 (while (and (member pressed '("\C-n" "\C-p" "\C-v")))
+                   (org-scroll (string-to-char pressed))
+                   (setq pressed (org--mks-read-key allowed-keys prompt)))
                  (setq current (concat current pressed))
                  (cond
                   ((equal pressed "\C-g") (user-error "Abort"))

diff --git a/lisp/org/org-version.el b/lisp/org/org-version.el
index 738dbd663c117305dfaf160b9a08f0970d77d568..479ca460852ae5d8d4e91b3ab2aca1b75d61e359 100644 (file)
--- a/lisp/org/org-version.el
+++ b/lisp/org/org-version.el
@@ -5,13 +5,13 @@
 (defun org-release ()
   "The release version of Org.
 Inserted by installing Org mode or when a release is made."
-   (let ((org-release "9.4.2"))
+   (let ((org-release "9.4.3"))
      org-release))
 ;;;###autoload
 (defun org-git-version ()
   "The Git version of Org mode.
 Inserted by installing Org or when a release is made."
-   (let ((org-git-version "release_9.4.2"))
+   (let ((org-git-version "release_9.4.3"))
      org-git-version))
 \f
 (provide 'org-version)

diff --git a/lisp/org/org.el b/lisp/org/org.el
index 063d0449d29a5b97d6f66539b26b42be15e73e20..1f7e434cefdba94114c27a920970f7a0e07ad5b4 100644 (file)
--- a/lisp/org/org.el
+++ b/lisp/org/org.el
@@ -8,7 +8,7 @@
 ;; Keywords: outlines, hypermedia, calendar, wp
 ;; Homepage: https://orgmode.org
 
-;; Version: 9.4.2
+;; Version: 9.4.3
 
 ;; This file is part of GNU Emacs.
 ;;
@@ -21214,8 +21214,4 @@ Started from `gnus-info-find-node'."
 
 (run-hooks 'org-load-hook)
 
-;; Local variables:
-;; generated-autoload-file: "org-loaddefs.el"
-;; End:
-
 ;;; org.el ends here

diff --git a/lisp/org/ox-html.el b/lisp/org/ox-html.el
index d2f24f5c6e4144d7826e58d9c90ce3bad605e717..1a466fb162b1992a3114b069d01b7576fd3ec48b 100644 (file)
--- a/lisp/org/ox-html.el
+++ b/lisp/org/ox-html.el
@@ -300,7 +300,7 @@ property on the headline itself.")
     padding: 3px;
     border: 1px solid black;
   }
-  pre.src:hover:before { display: inline;}
+  pre.src:hover:before { display: inline; margin-top: 14px;}
   /* Languages per Org manual */
   pre.src-asymptote:before { content: 'Asymptote'; }
   pre.src-awk:before { content: 'Awk'; }