From efc77ab6f5e8883fc38d8c6f75b6db54a0965c15 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?S=C3=A9bastien=20Delafond?= Date: Sun, 13 Jul 2014 13:35:32 +0200 Subject: Imported Upstream version 8.2.5h --- contrib/lisp/org-mac-link.el | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) (limited to 'contrib/lisp/org-mac-link.el') diff --git a/contrib/lisp/org-mac-link.el b/contrib/lisp/org-mac-link.el index 2ff6711..fef6692 100644 --- a/contrib/lisp/org-mac-link.el +++ b/contrib/lisp/org-mac-link.el @@ -1,15 +1,15 @@ ;;; org-mac-link.el --- Grab links and url from various mac ;; Application and insert them as links into org-mode documents ;; -;; Copyright (c) 2010-2013 Free Software Foundation, Inc. +;; Copyright (c) 2010-2014 Free Software Foundation, Inc. ;; -;; Authors: +;; Authors: ;; Anthony Lander ;; John Wiegley ;; Christopher Suckling ;; Daniil Frumin ;; -;; +;; ;; Version: 1.1 ;; Keywords: org, mac, hyperlink ;; @@ -201,14 +201,14 @@ applications and inserting them in org documents" ("S" "kim" org-mac-skim-insert-page ,org-mac-grab-Skim-app-p))) (menu-string (make-string 0 ?x)) input) - + ;; Create the menu string for the keymap (mapc '(lambda (descriptor) (when (elt descriptor 3) (setf menu-string (concat menu-string "[" (elt descriptor 0) "]" (elt descriptor 1) " ")))) descriptors) (setf (elt menu-string (- (length menu-string) 1)) ?:) - + ;; Prompt the user, and grab the link (message menu-string) (setq input (read-char-exclusive)) @@ -368,7 +368,7 @@ applications and inserting them in org documents" "set links to {}\n" "copy theResult to the end of links\n" "return links as string\n")))) - (car (split-string result "[\r\n]+" t)))) + (substring (car (split-string result "[\r\n]+" t)) 1 -1))) (defun org-mac-chrome-get-frontmost-url () (interactive) -- cgit v1.2.3