Merge changes from emacs-23 branch

[gnu-emacs] / lisp / org / org-info.el

diff --git a/lisp/org/org-info.el b/lisp/org/org-info.el
index edbf426895450e8418a361fe28be7fb6f63a6e0b..4f44045f9bfff20ad90e27a1124c333e2805dcef 100644 (file)
--- a/lisp/org/org-info.el
+++ b/lisp/org/org-info.el
@@ -5,7 +5,7 @@
 ;; Author: Carsten Dominik <carsten at orgmode dot org>
 ;; Keywords: outlines, hypermedia, calendar, wp
 ;; Homepage: http://orgmode.org
-;; Version: 7.4
+;; Version: 7.7
 ;;
 ;; This file is part of GNU Emacs.
 ;;
@@ -51,9 +51,9 @@
     (let (link desc)
       (setq link (org-make-link "info:"
                                (file-name-nondirectory Info-current-file)
-                               ":" Info-current-node))
+                               "#" Info-current-node))
       (setq desc (concat (file-name-nondirectory Info-current-file)
-                        ":" Info-current-node))
+                        "#" Info-current-node))
       (org-store-link-props :type "info" :file Info-current-file
                            :node Info-current-node
                            :link link :desc desc)
@@ -66,7 +66,7 @@
 
 (defun org-info-follow-link (name)
   "Follow an Info file and node link specified by NAME."
-  (if (or (string-match "\\(.*\\)::?\\(.*\\)" name)
+  (if (or (string-match "\\(.*\\)[#:]:?\\(.*\\)" name)
           (string-match "\\(.*\\)" name))
       (progn
        (require 'info)
@@ -78,4 +78,5 @@
 (provide 'org-info)
 
 
+
 ;;; org-info.el ends here