diff options
Diffstat (limited to 'bog.el')
-rw-r--r-- | bog.el | 16 |
1 files changed, 11 insertions, 5 deletions
@@ -1,12 +1,12 @@ ;;; bog.el --- Extensions for research notes in Org mode -*- lexical-binding: t -*- ;; Copyright (C) 2013-2016 Kyle Meyer <kyle@kyleam.com> -;; Copyright (C) 2020 Basil L. Contovounesios <contovob@tcd.ie> +;; Copyright (C) 2020-2023 Basil L. Contovounesios <basil@contovou.net> ;; Author: Kyle Meyer <kyle@kyleam.com> ;; URL: https://github.com/kyleam/bog ;; Keywords: bib, outlines -;; Version: 1.3.1 +;; Version: 1.3.3 ;; Package-Requires: ((cl-lib "0.5")) ;; This program is free software; you can redistribute it and/or modify @@ -1032,6 +1032,12 @@ Groups are specified by `bog-citekey-web-search-groups'." ;;; Notes-related +;; `org-show-context' is obsolete as of Org 9.6. +(defalias 'bog--fold-show-context + (if (fboundp 'org-fold-show-context) + #'org-fold-show-context + 'org-show-context)) + ;;;###autoload (defun bog-goto-citekey-heading-in-notes (&optional no-context) "Find citekey heading in notes. @@ -1062,7 +1068,7 @@ buffer, the narrowing is removed." (> marker (point-max))) (widen)) (goto-char marker) - (org-show-context)))) + (bog--fold-show-context)))) (defun bog--find-citekey-heading-in-buffer (citekey &optional pos-only) "Return the marker of heading for CITEKEY. @@ -1332,7 +1338,7 @@ With argument ARG, do it ARG times." (re-search-forward bog-citekey-format nil t)) (unless (org-at-heading-p) (setq arg (1- arg)))))) - (org-show-context))) + (bog--fold-show-context))) ;;;###autoload (defun bog-previous-non-heading-citekey (&optional arg) @@ -1347,7 +1353,7 @@ With argument ARG, do it ARG times." (unless (org-at-heading-p) (setq arg (1- arg))))) (skip-syntax-backward "w")) - (org-show-context)) + (bog--fold-show-context)) ;;;###autoload (defun bog-jump-to-topic-heading () |