Compare commits

...

2 Commits

View File

@ -296,6 +296,7 @@ of [[info:emacs#Saving Customizations][saving customizations (info)]].
(when (eq system-type 'darwin)
;; Failed to initialize color list unarchiver: ...
;; BUG#32854 and BUG#70836: rm ~/Library/Colors/Emacs.clr
;; INSTALL file: '--without-dbus --without-gconf --without-gsettings'.
(setopt ns-alternate-modifier nil
ns-command-modifier 'meta
ns-right-command-modifier 'super))
@ -3417,15 +3418,15 @@ facilate moving single directories or whole directory trees."
(org-open-file path 1)
(when page (pdf-view-goto-page page))))
(defun org-pdfview-store-link ()
(defun org-pdfview-store-link (&optional _interactive?)
"Store a \"pdfview\" type link."
(when (eq major-mode 'pdf-view-mode)
(let* ((path buffer-file-name)
(page (pdf-view-current-page))
(link (concat "pdfview:" path "::" (number-to-string page))))
(text (concat "pdfview:" path "::" (number-to-string page))))
(org-link-store-props
:type "pdfview"
:link link
:link text
:description path))))
(with-eval-after-load 'ol