ndwarshuis
/
org-mode
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Unescape plain link before open 

* org.el (org-open-at-point): Unescape plain link.

This should fix a problem with open plain links reported by
Sebastien Vauban.
This commit is contained in:
David Maus 2011-09-11 16:50:22 +02:00
parent 5a373f649e
commit 4122a51366
1 changed files with 8 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
lisp/org.el
View File

@ -365,10 +365,10 @@ In Emacs 23, when `shift-select-mode' is on, shifted cursor keys
start selecting a region, or enlarge regions started in this way. start selecting a region, or enlarge regions started in this way.
In Org-mode, in special contexts, these same keys are used for In Org-mode, in special contexts, these same keys are used for
other purposes, important enough to compete with shift selection. other purposes, important enough to compete with shift selection.
Org tries to balance these needs by supporting `shift-select-mode' Org tries to balance these needs by supporting `shift-select-mode'
outside these special contexts, under control of this variable. outside these special contexts, under control of this variable.
The default of this variable is nil, to avoid confusing behavior. Shifted The default of this variable is nil, to avoid confusing behavior. Shifted
cursor keys will then execute Org commands in the following contexts: cursor keys will then execute Org commands in the following contexts:
- on a headline, changing TODO state (left/right) and priority (up/down) - on a headline, changing TODO state (left/right) and priority (up/down)
- on a time stamp, changing the time - on a time stamp, changing the time
@ -9392,7 +9392,8 @@ application the system uses for this file type."
(save-excursion (save-excursion
(when (or (org-in-regexp org-angle-link-re) (when (or (org-in-regexp org-angle-link-re)
(org-in-regexp org-plain-link-re)) (org-in-regexp org-plain-link-re))
(setq type (match-string 1) path (match-string 2)) (setq type (match-string 1)
path (org-link-unescape (match-string 2)))
(throw 'match t))) (throw 'match t)))
(save-excursion (save-excursion
(when (org-in-regexp (org-re "\\(:[[:alnum:]_@#%:]+\\):[ \t]*$")) (when (org-in-regexp (org-re "\\(:[[:alnum:]_@#%:]+\\):[ \t]*$"))
@ -9999,8 +10000,8 @@ If the file does not exist, an error is thrown."
match) match)
(progn (setq in-emacs (or in-emacs line search)) (progn (setq in-emacs (or in-emacs line search))
nil))) ; if we have no match in apps-dlink, nil))) ; if we have no match in apps-dlink,
; always open the file in emacs if line or search ; always open the file in emacs if line or search
; is given (for backwards compatibility) ; is given (for backwards compatibility)
(assoc-default dfile (org-apps-regexp-alist apps a-m-a-p) (assoc-default dfile (org-apps-regexp-alist apps a-m-a-p)
'string-match) 'string-match)
(cdr (assoc ext apps)) (cdr (assoc ext apps))
@ -17089,7 +17090,7 @@ If not, return to the original position and throw an error."
(defun org-speed-command-default-hook (keys) (defun org-speed-command-default-hook (keys)
"Hook for activating single-letter speed commands. "Hook for activating single-letter speed commands.
`org-speed-commands-default' specifies a minimal command set. `org-speed-commands-default' specifies a minimal command set.
Use `org-speed-commands-user' for further customization." Use `org-speed-commands-user' for further customization."
(when (or (and (bolp) (looking-at org-outline-regexp)) (when (or (and (bolp) (looking-at org-outline-regexp))
(and (functionp org-use-speed-commands) (and (functionp org-use-speed-commands)
@ -20504,7 +20505,7 @@ if no description is present"
(progn (org-remove-from-invisibility-spec '(org-link)) (progn (org-remove-from-invisibility-spec '(org-link))
(org-restart-font-lock) (org-restart-font-lock)
(setq org-descriptive-links nil)) (setq org-descriptive-links nil))
(progn (add-to-invisibility-spec '(org-link)) (progn (add-to-invisibility-spec '(org-link))
(org-restart-font-lock) (org-restart-font-lock)
(setq org-descriptive-links t)))) (setq org-descriptive-links t))))