|
@@ -914,7 +914,7 @@ This also applied for speedbar access."
|
|
(setq last-level level)))))
|
|
(setq last-level level)))))
|
|
(aref subs 1))))
|
|
(aref subs 1))))
|
|
|
|
|
|
-(eval-after-load "imenu"
|
|
+(eval-after-load 'imenu
|
|
'(progn
|
|
'(progn
|
|
(add-hook 'imenu-after-jump-hook
|
|
(add-hook 'imenu-after-jump-hook
|
|
(lambda ()
|
|
(lambda ()
|
|
@@ -976,7 +976,7 @@ To get rid of the restriction, use `\\[org-agenda-remove-restriction-lock]'."
|
|
|
|
|
|
(defvar speedbar-file-key-map)
|
|
(defvar speedbar-file-key-map)
|
|
(declare-function speedbar-add-supported-extension "speedbar" (extension))
|
|
(declare-function speedbar-add-supported-extension "speedbar" (extension))
|
|
-(eval-after-load "speedbar"
|
|
+(eval-after-load 'speedbar
|
|
'(progn
|
|
'(progn
|
|
(speedbar-add-supported-extension ".org")
|
|
(speedbar-add-supported-extension ".org")
|
|
(define-key speedbar-file-key-map "<" 'org-speedbar-set-agenda-restriction)
|
|
(define-key speedbar-file-key-map "<" 'org-speedbar-set-agenda-restriction)
|
|
@@ -1086,7 +1086,7 @@ ELEMENT is the element at point."
|
|
(flyspell-delete-region-overlays beg end)))
|
|
(flyspell-delete-region-overlays beg end)))
|
|
|
|
|
|
(defvar flyspell-delayed-commands)
|
|
(defvar flyspell-delayed-commands)
|
|
-(eval-after-load "flyspell"
|
|
+(eval-after-load 'flyspell
|
|
'(add-to-list 'flyspell-delayed-commands 'org-self-insert-command))
|
|
'(add-to-list 'flyspell-delayed-commands 'org-self-insert-command))
|
|
|
|
|
|
;;;; Bookmark
|
|
;;;; Bookmark
|
|
@@ -1100,7 +1100,7 @@ ELEMENT is the element at point."
|
|
(org-show-context 'bookmark-jump)))
|
|
(org-show-context 'bookmark-jump)))
|
|
|
|
|
|
;; Make `bookmark-jump' shows the jump location if it was hidden.
|
|
;; Make `bookmark-jump' shows the jump location if it was hidden.
|
|
-(eval-after-load "bookmark"
|
|
+(eval-after-load 'bookmark
|
|
'(if (boundp 'bookmark-after-jump-hook)
|
|
'(if (boundp 'bookmark-after-jump-hook)
|
|
;; We can use the hook
|
|
;; We can use the hook
|
|
(add-hook 'bookmark-after-jump-hook 'org-bookmark-jump-unhide)
|
|
(add-hook 'bookmark-after-jump-hook 'org-bookmark-jump-unhide)
|
|
@@ -1154,13 +1154,13 @@ key."
|
|
(local-set-key org-calendar-insert-diary-entry-key
|
|
(local-set-key org-calendar-insert-diary-entry-key
|
|
#'org-agenda-diary-entry)))
|
|
#'org-agenda-diary-entry)))
|
|
|
|
|
|
-(eval-after-load "calendar"
|
|
+(eval-after-load 'calendar
|
|
'(add-hook 'calendar-mode-hook #'org--setup-calendar-bindings))
|
|
'(add-hook 'calendar-mode-hook #'org--setup-calendar-bindings))
|
|
|
|
|
|
;;;; Saveplace
|
|
;;;; Saveplace
|
|
|
|
|
|
;; Make sure saveplace shows the location if it was hidden
|
|
;; Make sure saveplace shows the location if it was hidden
|
|
-(eval-after-load "saveplace"
|
|
+(eval-after-load 'saveplace
|
|
'(defadvice save-place-find-file-hook (after org-make-visible activate)
|
|
'(defadvice save-place-find-file-hook (after org-make-visible activate)
|
|
"Make the position visible."
|
|
"Make the position visible."
|
|
(org-bookmark-jump-unhide)))
|
|
(org-bookmark-jump-unhide)))
|
|
@@ -1168,7 +1168,7 @@ key."
|
|
;;;; Ecb
|
|
;;;; Ecb
|
|
|
|
|
|
;; Make sure ecb shows the location if it was hidden
|
|
;; Make sure ecb shows the location if it was hidden
|
|
-(eval-after-load "ecb"
|
|
+(eval-after-load 'ecb
|
|
'(defadvice ecb-method-clicked (after esf/org-show-context activate)
|
|
'(defadvice ecb-method-clicked (after esf/org-show-context activate)
|
|
"Make hierarchy visible when jumping into location from ECB tree buffer."
|
|
"Make hierarchy visible when jumping into location from ECB tree buffer."
|
|
(when (derived-mode-p 'org-mode)
|
|
(when (derived-mode-p 'org-mode)
|
|
@@ -1182,17 +1182,17 @@ key."
|
|
(org-invisible-p))
|
|
(org-invisible-p))
|
|
(org-show-context 'mark-goto)))
|
|
(org-show-context 'mark-goto)))
|
|
|
|
|
|
-(eval-after-load "simple"
|
|
+(eval-after-load 'simple
|
|
'(defadvice pop-to-mark-command (after org-make-visible activate)
|
|
'(defadvice pop-to-mark-command (after org-make-visible activate)
|
|
"Make the point visible with `org-show-context'."
|
|
"Make the point visible with `org-show-context'."
|
|
(org-mark-jump-unhide)))
|
|
(org-mark-jump-unhide)))
|
|
|
|
|
|
-(eval-after-load "simple"
|
|
+(eval-after-load 'simple
|
|
'(defadvice exchange-point-and-mark (after org-make-visible activate)
|
|
'(defadvice exchange-point-and-mark (after org-make-visible activate)
|
|
"Make the point visible with `org-show-context'."
|
|
"Make the point visible with `org-show-context'."
|
|
(org-mark-jump-unhide)))
|
|
(org-mark-jump-unhide)))
|
|
|
|
|
|
-(eval-after-load "simple"
|
|
+(eval-after-load 'simple
|
|
'(defadvice pop-global-mark (after org-make-visible activate)
|
|
'(defadvice pop-global-mark (after org-make-visible activate)
|
|
"Make the point visible with `org-show-context'."
|
|
"Make the point visible with `org-show-context'."
|
|
(org-mark-jump-unhide)))
|
|
(org-mark-jump-unhide)))
|
|
@@ -1201,7 +1201,7 @@ key."
|
|
|
|
|
|
;; Make "session.el" ignore our circular variable.
|
|
;; Make "session.el" ignore our circular variable.
|
|
(defvar session-globals-exclude)
|
|
(defvar session-globals-exclude)
|
|
-(eval-after-load "session"
|
|
+(eval-after-load 'session
|
|
'(add-to-list 'session-globals-exclude 'org-mark-ring))
|
|
'(add-to-list 'session-globals-exclude 'org-mark-ring))
|
|
|
|
|
|
(provide 'org-compat)
|
|
(provide 'org-compat)
|