* Bug: org-highest-priority not defined [9.3.6 (release_9.3.6-399-ge6df03 @ /home/n/.emacs.d/straight/build/org/)]
@ 2020-03-01 1:09 No Wayman
2020-03-01 4:35 ` No Wayman
0 siblings, 1 reply; 4+ messages in thread
From: No Wayman @ 2020-03-01 1:09 UTC (permalink / raw)
To: emacs-orgmode
After updating Org, I'm hitting errors for an undefined
`org-highest-priority'.
I see that this is an alias for `org-priority-highest', but
describe-function (and I'm not sure why it's describe-function vs
describe-variable) dutifully reports:
org-highest-priority is an alias for ‘org-priority-highest’,
which is not
defined. Please make a bug report.
Not documented.
My first hunch is that this is due to a mixed installation of Org,
but I'm having trouble diagnosing this. I've installed
org-plus-contrib using the straight package manager.
I've ensured that Org is not loaded before/during upgrading Org.
(locate-library "org") points to the correct file:
"/home/n/.emacs.d/straight/build/org/org.elc"
In the src elisp file,
/home/n/.emacs.d/straight/repos/org/lisp/org.el there defalias is
there as I would expect:
(defalias 'org-highest-priority 'org-priority-highest)
My usual technique for debugging this is evaling:
(eval-after-load "org"
'(debug))
prior to loading Org. However, in this case it looks like it's
loading the proper file:
Debugger entered: nil
(closure (t) nil (debug))()
funcall((closure (t) nil (debug)))
mapc(funcall ((closure (t) nil (debug)) (closure (t) nil
(add-to-list 'org-src-lang-modes '("php" . php))) (closure (t)
nil (add-to-list 'org-src-lang-modes '("redis" . redis)))))
do-after-load-evaluation("/home/n/.emacs.d/straight/build/org/org.elc")
require(org)
byte-code("\300\301!\210\300\302!\210\300\303!\207" [require
cl-lib org org-refile] 2)
autoload-do-load((autoload "org-capture" 1424805 t nil)
org-capture)
command-execute(org-capture)
I plan on reporting with the author of straight.el, too. Just
following through on the describe-function message here.
Not sure how to proceed with debugging. Apologies if this is
noise.
Emacs : GNU Emacs 28.0.50 (build 1, x86_64-pc-linux-gnu, X
toolkit, cairo version 1.17.3, Xaw3d scroll bars)
of 2020-02-23
Package: Org mode version 9.3.6 (release_9.3.6-399-ge6df03 @
/home/n/.emacs.d/straight/build/org/)
current state:
==============
(setq
org-src-mode-hook '(org-src-babel-configure-edit-buffer
org-src-mode-configure-edit-buffer
doom-modeline-set-org-src-modeline)
org-link-shell-confirm-function 'yes-or-no-p
org-metadown-hook '(org-babel-pop-to-session-maybe)
org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
org-refile-targets '((org-agenda-files :maxlevel . 20)
(my/org-files-list :maxlevel . 20))
org-enforce-todo-dependencies t
org-agenda-category-icon-alist '(("[Ww]ork"
(#("" 0 1
(rear-nonsticky t display
(raise -0.24) font-lock-face
(:family "FontAwesome"
:height 1.2) face
(:family "FontAwesome"
:height 1.2))
)
)
nil nil :ascent center)
("[Rr]efile"
(#("" 0 1
(rear-nonsticky t display
(raise -0.24) font-lock-face
(:family "FontAwesome"
:height 1.2) face
(:family "FontAwesome"
:height 1.2))
)
)
nil nil :ascent center)
("[Aa]ccounting"
(#("" 0 1
(rear-nonsticky t display
(raise -0.24) font-lock-face
(:family "FontAwesome"
:height 1.2) face
(:family "FontAwesome"
:height 1.2))
)
)
nil nil :ascent center)
("[Hh]abit"
(#("" 0 1
(rear-nonsticky t display
(raise -0.24) font-lock-face
(:family "FontAwesome"
:height 1.2) face
(:family "FontAwesome"
:height 1.2))
)
)
nil nil :ascent center)
("[Hh]ealth"
(#("" 0 1
(rear-nonsticky t display
(raise -0.24) font-lock-face
(:family "FontAwesome"
:height 1.2) face
(:family "FontAwesome"
:height 1.2))
)
)
nil nil :ascent center)
("[Ii]n"
(#("" 0 1
(rear-nonsticky t display
(raise -0.24) font-lock-face
(:family "FontAwesome"
:height 1.2) face
(:family "FontAwesome"
:height 1.2))
)
)
nil nil :ascent center)
("[Oo]ut"
(#("" 0 1
(rear-nonsticky t display
(raise -0.24) font-lock-face
(:family "FontAwesome"
:height 1.2) face
(:family "FontAwesome"
:height 1.2))
)
)
nil nil :ascent center)
("[Ll]isten"
(#("" 0 1
(rear-nonsticky t display
(raise -0.24) font-lock-face
(:family "FontAwesome"
:height 1.2) face
(:family "FontAwesome"
:height 1.2))
)
)
nil nil :ascent center)
("[Pp]lay"
(#("" 0 1
(rear-nonsticky t display
(raise -0.24) font-lock-face
(:family "FontAwesome"
:height 1.2) face
(:family "FontAwesome"
:height 1.2))
)
)
nil nil :ascent center)
("[Rr]ead"
(#("" 0 1
(rear-nonsticky t display
(raise -0.24) font-lock-face
(:family "FontAwesome"
:height 1.2) face
(:family "FontAwesome"
:height 1.2))
)
)
nil nil :ascent center)
("[Ww]atch"
(#("" 0 1
(rear-nonsticky t display
(raise -0.24) font-lock-face
(:family "FontAwesome"
:height 1.2) face
(:family "FontAwesome"
:height 1.2))
)
)
nil nil :ascent center)
("[Cc]alendar"
(#("" 0 1
(rear-nonsticky t display
(raise -0.24) font-lock-face
(:family "FontAwesome"
:height 1.2) face
(:family "FontAwesome"
:height 1.2))
)
)
nil nil :ascent center)
)
org-agenda-files '("~/Documents/todo")
org-reveal-start-hook '(org-decrypt-entry)
org-modules '(org-habit)
org-blocker-hook
'(org-block-todo-from-children-or-siblings-or-parent)
org-mode-hook '(org-indent-mode
(closure (t) nil (add-hook 'after-save-hook
'my/org-agenda-redo-all nil t)
(setq prettify-symbols-unprettify-at-point
'right-edge)
(setq prettify-symbols-alist
'(("#+begin_src" . "λ") ("#+BEGIN_SRC" . "λ")
("#+end_src" . "λ")
("#+END_SRC" . "λ") (":PROPERTIES:" . "⚙")
(":properties:" . "⚙")
(":END:" . "∎") ("#+RESULTS:" . "→"))
)
(prettify-symbols-mode 1))
org-bullets-mode org-better-repeat-mode
#[0 "\300\301\302\303\304$\207"
[add-hook change-major-mode-hook org-show-all
append local] 5]
#[0 "\300\301\302\303\304$\207"
[add-hook change-major-mode-hook
org-babel-show-result-all append local]
5]
org-babel-result-hide-spec
org-babel-hide-all-hashes writegood-mode
org-journal-update-auto-mode-alist flyspell-mode
org-eldoc-load)
org-outline-path-complete-in-steps nil
org-archive-hook '(org-attach-archive-delete-maybe)
org-journal-carryover-items nil
org-confirm-elisp-link-function 'yes-or-no-p
org-reverse-note-order t
org-journal-mode-hook '(#[0 "\301\b\302\303\304$\207"
[org-journal-encrypt-on add-hook
org-journal-encryption-hook nil
t]
5]
(lambda nil
(add-hook org-journal-encrypt-on
'org-journal-encryption-hook nil
t)
)
)
org-agenda-before-write-hook '(org-agenda-add-entry-text)
org-metaup-hook '(org-babel-load-in-session-maybe)
org-log-reschedule t
org-agenda-text-search-extra-files '(agenda-archives)
org-babel-pre-tangle-hook '(save-buffer)
org-file-apps '((auto-mode . emacs) ("\\.mm\\'" . default)
("\\.mp[[:digit:]]\\'" . "/usr/bin/mpv
--force-window=yes %s")
("\\.x?html?\\'" . "/usr/bin/bash -c '$BROWSER
%s'")
("\\.pdf\\'" . default))
org-tab-first-hook '(org-babel-hide-result-toggle-maybe
org-babel-header-arg-expand)
org-log-done 'time
org-journal-date-format "[%Y-%m-%d %a]"
org-hide-emphasis-markers t
org-ellipsis "▿"
org-habit-following-days 1
org-agenda-span 'day
org-agenda-loop-over-headlines-in-active-region nil
org-src-lang-modes '(("arduino" . arduino) ("redis" . redis)
("php" . php) ("C" . c)
("C++" . c++) ("asymptote" . asy) ("bash" .
sh) ("beamer" . latex)
("calc" . fundamental) ("cpp" . c++)
("ditaa" . artist)
("dot" . fundamental) ("elisp" . emacs-lisp)
("ocaml" . tuareg)
("screen" . shell-script) ("shell" . sh)
("sqlite" . sql))
org-src-preserve-indentation t
org-habit-today-glyph 128197
org-catch-invisible-edits 'show-and-error
org-habit-show-habits-only-for-today nil
org-occur-hook '(org-first-headline-recenter)
org-agenda-mode-hook '(org-journal-update-org-agenda-files)
org-structure-template-alist '(("sj" . "src javascript") ("ss" .
"src shell")
("se" . "src emacs-lisp") ("a" .
"export ascii")
("c" . "center") ("C" . "comment")
("e" . "example")
("E" . "export") ("h" . "export
html")
("l" . "export latex") ("q" .
"quote") ("s" . "src")
("v" . "verse"))
org-cycle-hook '(org-cycle-hide-archived-subtrees
org-cycle-show-empty-lines
org-optimize-window-after-visibility-change)
org-todo-keywords '((sequence "TODO(t)" "STARTED(s!)" "NEXT(n!)"
"BLOCKED(b@/!)" "|"
"DONE(d)")
(sequence "IDEA(i)" "|" "CANCELED(c@/!)"
"DELEGATED(D@/!)")
(sequence "RESEARCH(r)" "|"))
org-speed-command-hook '(org-speed-command-activate
org-babel-speed-command-activate)
org-better-repeat-mode t
org-hierarchical-todo-statistics nil
org-M-RET-may-split-line nil
org-agenda-use-tag-inheritance nil
org-journal-dir "~/Documents/journal"
org-return-follows-link t
org-refile-allow-creating-parent-nodes 'confirm
org-refile-use-outline-path 'file
org-export-before-parsing-hook '(org-attach-expand-links)
org-confirm-shell-link-function 'yes-or-no-p
org-link-parameters '(("attachment" :follow org-attach-follow
:complete
org-attach-complete-link)
("id" :follow org-id-open)
("region" :follow org-region-open :export
nil :store
org-region-store-link)
("mu4e" :follow mu4e-org-open :store
mu4e-org-store-link)
("elfeed" :follow elfeed-link-open :store
elfeed-link-store-link)
("file+sys") ("file+emacs") ("shell"
:follow org-link--open-shell)
("news" :follow
#[514 "\301\300\302.Q.\"\207" ["news"
browse-url ":"] 6
"\n\n(fn URL ARG)"]
)
("mailto" :follow
#[514 "\301\300\302.Q.\"\207" ["mailto"
browse-url ":"] 6
"\n\n(fn URL ARG)"]
)
("https" :follow
#[514 "\301\300\302.Q.\"\207" ["https"
browse-url ":"] 6
"\n\n(fn URL ARG)"]
)
("http" :follow
#[514 "\301\300\302.Q.\"\207" ["http"
browse-url ":"] 6
"\n\n(fn URL ARG)"]
)
("ftp" :follow
#[514 "\301\300\302.Q.\"\207" ["ftp"
browse-url ":"] 6
"\n\n(fn URL ARG)"]
)
("help" :follow org-link--open-help)
("file" :complete org-link-complete-file)
("elisp" :follow org-link--open-elisp)
("doi" :follow org-link--open-doi))
org-bullets-bullet-list '("◇")
org-link-elisp-confirm-function 'yes-or-no-p
org-habit-completed-glyph 10003
org-journal-time-format "%I:%M %p\njrn"
org-journal-hook '(flyspell-mode)
org-habit-preceding-days 29
org-journal-file-format "%Y.%m.%d.%A.org"
org-src-window-setup 'current-window
org-confirm-babel-evaluate nil
org-agenda-clockreport-parameter-plist '(:link t :maxlevel 2
:stepskip0 t :fileskip0 t)
org-link-from-user-regexp "\\<n@arch\\>"
org-agenda-sorting-strategy '((agenda time-up priority-down
category-keep)
(todo priority-down category-keep)
(tags priority-down category-keep)
(search category-keep))
org-agenda-inhibit-startup t
)
^ permalink raw reply [flat|nested] 4+ messages in thread
* Re: Bug: org-highest-priority not defined [9.3.6 (release_9.3.6-399-ge6df03 @ /home/n/.emacs.d/straight/build/org/)]
2020-03-01 1:09 Bug: org-highest-priority not defined [9.3.6 (release_9.3.6-399-ge6df03 @ /home/n/.emacs.d/straight/build/org/)] No Wayman
@ 2020-03-01 4:35 ` No Wayman
2020-03-10 17:46 ` No Wayman
0 siblings, 1 reply; 4+ messages in thread
From: No Wayman @ 2020-03-01 4:35 UTC (permalink / raw)
To: emacs-orgmode
[-- Attachment #1: Type: text/plain, Size: 18910 bytes --]
Actually, on closer inspection. Shouldn't:
(defalias 'org-highest-priority 'org-priority-highest)
be
(defvaralias ...)?
On Sat, Feb 29, 2020 at 8:09 PM No Wayman <iarchivedmywholelife@gmail.com>
wrote:
> After updating Org, I'm hitting errors for an undefined
> `org-highest-priority'.
> I see that this is an alias for `org-priority-highest', but
> describe-function (and I'm not sure why it's describe-function vs
> describe-variable) dutifully reports:
>
> org-highest-priority is an alias for ‘org-priority-highest’,
> which is not
> defined. Please make a bug report.
>
> Not documented.
>
> My first hunch is that this is due to a mixed installation of Org,
> but I'm having trouble diagnosing this. I've installed
> org-plus-contrib using the straight package manager.
> I've ensured that Org is not loaded before/during upgrading Org.
> (locate-library "org") points to the correct file:
>
> "/home/n/.emacs.d/straight/build/org/org.elc"
>
> In the src elisp file,
> /home/n/.emacs.d/straight/repos/org/lisp/org.el there defalias is
> there as I would expect:
>
> (defalias 'org-highest-priority 'org-priority-highest)
>
> My usual technique for debugging this is evaling:
>
> (eval-after-load "org"
> '(debug))
>
> prior to loading Org. However, in this case it looks like it's
> loading the proper file:
>
> Debugger entered: nil
> (closure (t) nil (debug))()
> funcall((closure (t) nil (debug)))
> mapc(funcall ((closure (t) nil (debug)) (closure (t) nil
> (add-to-list 'org-src-lang-modes '("php" . php))) (closure (t)
> nil (add-to-list 'org-src-lang-modes '("redis" . redis)))))
> do-after-load-evaluation("/home/n/.emacs.d/straight/build/org/org.elc")
> require(org)
> byte-code("\300\301!\210\300\302!\210\300\303!\207" [require
> cl-lib org org-refile] 2)
> autoload-do-load((autoload "org-capture" 1424805 t nil)
> org-capture)
> command-execute(org-capture)
>
> I plan on reporting with the author of straight.el, too. Just
> following through on the describe-function message here.
> Not sure how to proceed with debugging. Apologies if this is
> noise.
>
>
> Emacs : GNU Emacs 28.0.50 (build 1, x86_64-pc-linux-gnu, X
> toolkit, cairo version 1.17.3, Xaw3d scroll bars)
> of 2020-02-23
> Package: Org mode version 9.3.6 (release_9.3.6-399-ge6df03 @
> /home/n/.emacs.d/straight/build/org/)
>
> current state:
> ==============
> (setq
> org-src-mode-hook '(org-src-babel-configure-edit-buffer
> org-src-mode-configure-edit-buffer
> doom-modeline-set-org-src-modeline)
> org-link-shell-confirm-function 'yes-or-no-p
> org-metadown-hook '(org-babel-pop-to-session-maybe)
> org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
> org-refile-targets '((org-agenda-files :maxlevel . 20)
> (my/org-files-list :maxlevel . 20))
> org-enforce-todo-dependencies t
> org-agenda-category-icon-alist '(("[Ww]ork"
> (#("" 0 1
> (rear-nonsticky t display
> (raise -0.24) font-lock-face
> (:family "FontAwesome"
> :height 1.2) face
> (:family "FontAwesome"
> :height 1.2))
> )
> )
> nil nil :ascent center)
> ("[Rr]efile"
> (#("" 0 1
> (rear-nonsticky t display
> (raise -0.24) font-lock-face
> (:family "FontAwesome"
> :height 1.2) face
> (:family "FontAwesome"
> :height 1.2))
> )
> )
> nil nil :ascent center)
> ("[Aa]ccounting"
> (#("" 0 1
> (rear-nonsticky t display
> (raise -0.24) font-lock-face
> (:family "FontAwesome"
> :height 1.2) face
> (:family "FontAwesome"
> :height 1.2))
> )
> )
> nil nil :ascent center)
> ("[Hh]abit"
> (#("" 0 1
> (rear-nonsticky t display
> (raise -0.24) font-lock-face
> (:family "FontAwesome"
> :height 1.2) face
> (:family "FontAwesome"
> :height 1.2))
> )
> )
> nil nil :ascent center)
> ("[Hh]ealth"
> (#("" 0 1
> (rear-nonsticky t display
> (raise -0.24) font-lock-face
> (:family "FontAwesome"
> :height 1.2) face
> (:family "FontAwesome"
> :height 1.2))
> )
> )
> nil nil :ascent center)
> ("[Ii]n"
> (#("" 0 1
> (rear-nonsticky t display
> (raise -0.24) font-lock-face
> (:family "FontAwesome"
> :height 1.2) face
> (:family "FontAwesome"
> :height 1.2))
> )
> )
> nil nil :ascent center)
> ("[Oo]ut"
> (#("" 0 1
> (rear-nonsticky t display
> (raise -0.24) font-lock-face
> (:family "FontAwesome"
> :height 1.2) face
> (:family "FontAwesome"
> :height 1.2))
> )
> )
> nil nil :ascent center)
> ("[Ll]isten"
> (#("" 0 1
> (rear-nonsticky t display
> (raise -0.24) font-lock-face
> (:family "FontAwesome"
> :height 1.2) face
> (:family "FontAwesome"
> :height 1.2))
> )
> )
> nil nil :ascent center)
> ("[Pp]lay"
> (#("" 0 1
> (rear-nonsticky t display
> (raise -0.24) font-lock-face
> (:family "FontAwesome"
> :height 1.2) face
> (:family "FontAwesome"
> :height 1.2))
> )
> )
> nil nil :ascent center)
> ("[Rr]ead"
> (#("" 0 1
> (rear-nonsticky t display
> (raise -0.24) font-lock-face
> (:family "FontAwesome"
> :height 1.2) face
> (:family "FontAwesome"
> :height 1.2))
> )
> )
> nil nil :ascent center)
> ("[Ww]atch"
> (#("" 0 1
> (rear-nonsticky t display
> (raise -0.24) font-lock-face
> (:family "FontAwesome"
> :height 1.2) face
> (:family "FontAwesome"
> :height 1.2))
> )
> )
> nil nil :ascent center)
> ("[Cc]alendar"
> (#("" 0 1
> (rear-nonsticky t display
> (raise -0.24) font-lock-face
> (:family "FontAwesome"
> :height 1.2) face
> (:family "FontAwesome"
> :height 1.2))
> )
> )
> nil nil :ascent center)
> )
> org-agenda-files '("~/Documents/todo")
> org-reveal-start-hook '(org-decrypt-entry)
> org-modules '(org-habit)
> org-blocker-hook
> '(org-block-todo-from-children-or-siblings-or-parent)
> org-mode-hook '(org-indent-mode
> (closure (t) nil (add-hook 'after-save-hook
> 'my/org-agenda-redo-all nil t)
> (setq prettify-symbols-unprettify-at-point
> 'right-edge)
> (setq prettify-symbols-alist
> '(("#+begin_src" . "λ") ("#+BEGIN_SRC" . "λ")
> ("#+end_src" . "λ")
> ("#+END_SRC" . "λ") (":PROPERTIES:" . "⚙")
> (":properties:" . "⚙")
> (":END:" . "∎") ("#+RESULTS:" . "→"))
> )
> (prettify-symbols-mode 1))
> org-bullets-mode org-better-repeat-mode
> #[0 "\300\301\302\303\304$\207"
> [add-hook change-major-mode-hook org-show-all
> append local] 5]
> #[0 "\300\301\302\303\304$\207"
> [add-hook change-major-mode-hook
> org-babel-show-result-all append local]
> 5]
> org-babel-result-hide-spec
> org-babel-hide-all-hashes writegood-mode
> org-journal-update-auto-mode-alist flyspell-mode
> org-eldoc-load)
> org-outline-path-complete-in-steps nil
> org-archive-hook '(org-attach-archive-delete-maybe)
> org-journal-carryover-items nil
> org-confirm-elisp-link-function 'yes-or-no-p
> org-reverse-note-order t
> org-journal-mode-hook '(#[0 "\301 \302\303\304$\207"
> [org-journal-encrypt-on add-hook
> org-journal-encryption-hook nil
> t]
> 5]
> (lambda nil
> (add-hook org-journal-encrypt-on
> 'org-journal-encryption-hook nil
> t)
> )
> )
> org-agenda-before-write-hook '(org-agenda-add-entry-text)
> org-metaup-hook '(org-babel-load-in-session-maybe)
> org-log-reschedule t
> org-agenda-text-search-extra-files '(agenda-archives)
> org-babel-pre-tangle-hook '(save-buffer)
> org-file-apps '((auto-mode . emacs) ("\\.mm\\'" . default)
> ("\\.mp[[:digit:]]\\'" . "/usr/bin/mpv
> --force-window=yes %s")
> ("\\.x?html?\\'" . "/usr/bin/bash -c '$BROWSER
> %s'")
> ("\\.pdf\\'" . default))
> org-tab-first-hook '(org-babel-hide-result-toggle-maybe
> org-babel-header-arg-expand)
> org-log-done 'time
> org-journal-date-format "[%Y-%m-%d %a]"
> org-hide-emphasis-markers t
> org-ellipsis "▿"
> org-habit-following-days 1
> org-agenda-span 'day
> org-agenda-loop-over-headlines-in-active-region nil
> org-src-lang-modes '(("arduino" . arduino) ("redis" . redis)
> ("php" . php) ("C" . c)
> ("C++" . c++) ("asymptote" . asy) ("bash" .
> sh) ("beamer" . latex)
> ("calc" . fundamental) ("cpp" . c++)
> ("ditaa" . artist)
> ("dot" . fundamental) ("elisp" . emacs-lisp)
> ("ocaml" . tuareg)
> ("screen" . shell-script) ("shell" . sh)
> ("sqlite" . sql))
> org-src-preserve-indentation t
> org-habit-today-glyph 128197
> org-catch-invisible-edits 'show-and-error
> org-habit-show-habits-only-for-today nil
> org-occur-hook '(org-first-headline-recenter)
> org-agenda-mode-hook '(org-journal-update-org-agenda-files)
> org-structure-template-alist '(("sj" . "src javascript") ("ss" .
> "src shell")
> ("se" . "src emacs-lisp") ("a" .
> "export ascii")
> ("c" . "center") ("C" . "comment")
> ("e" . "example")
> ("E" . "export") ("h" . "export
> html")
> ("l" . "export latex") ("q" .
> "quote") ("s" . "src")
> ("v" . "verse"))
> org-cycle-hook '(org-cycle-hide-archived-subtrees
> org-cycle-show-empty-lines
> org-optimize-window-after-visibility-change)
> org-todo-keywords '((sequence "TODO(t)" "STARTED(s!)" "NEXT(n!)"
> "BLOCKED(b@/!)" "|"
> "DONE(d)")
> (sequence "IDEA(i)" "|" "CANCELED(c@/!)"
> "DELEGATED(D@/!)")
> (sequence "RESEARCH(r)" "|"))
> org-speed-command-hook '(org-speed-command-activate
> org-babel-speed-command-activate)
> org-better-repeat-mode t
> org-hierarchical-todo-statistics nil
> org-M-RET-may-split-line nil
> org-agenda-use-tag-inheritance nil
> org-journal-dir "~/Documents/journal"
> org-return-follows-link t
> org-refile-allow-creating-parent-nodes 'confirm
> org-refile-use-outline-path 'file
> org-export-before-parsing-hook '(org-attach-expand-links)
> org-confirm-shell-link-function 'yes-or-no-p
> org-link-parameters '(("attachment" :follow org-attach-follow
> :complete
> org-attach-complete-link)
> ("id" :follow org-id-open)
> ("region" :follow org-region-open :export
> nil :store
> org-region-store-link)
> ("mu4e" :follow mu4e-org-open :store
> mu4e-org-store-link)
> ("elfeed" :follow elfeed-link-open :store
> elfeed-link-store-link)
> ("file+sys") ("file+emacs") ("shell"
> :follow org-link--open-shell)
> ("news" :follow
> #[514 "\301\300\302.Q.\"\207" ["news"
> browse-url ":"] 6
> "\n\n(fn URL ARG)"]
> )
> ("mailto" :follow
> #[514 "\301\300\302.Q.\"\207" ["mailto"
> browse-url ":"] 6
> "\n\n(fn URL ARG)"]
> )
> ("https" :follow
> #[514 "\301\300\302.Q.\"\207" ["https"
> browse-url ":"] 6
> "\n\n(fn URL ARG)"]
> )
> ("http" :follow
> #[514 "\301\300\302.Q.\"\207" ["http"
> browse-url ":"] 6
> "\n\n(fn URL ARG)"]
> )
> ("ftp" :follow
> #[514 "\301\300\302.Q.\"\207" ["ftp"
> browse-url ":"] 6
> "\n\n(fn URL ARG)"]
> )
> ("help" :follow org-link--open-help)
> ("file" :complete org-link-complete-file)
> ("elisp" :follow org-link--open-elisp)
> ("doi" :follow org-link--open-doi))
> org-bullets-bullet-list '("◇")
> org-link-elisp-confirm-function 'yes-or-no-p
> org-habit-completed-glyph 10003
> org-journal-time-format "%I:%M %p\njrn"
> org-journal-hook '(flyspell-mode)
> org-habit-preceding-days 29
> org-journal-file-format "%Y.%m.%d.%A.org"
> org-src-window-setup 'current-window
> org-confirm-babel-evaluate nil
> org-agenda-clockreport-parameter-plist '(:link t :maxlevel 2
> :stepskip0 t :fileskip0 t)
> org-link-from-user-regexp "\\<n@arch\\>"
> org-agenda-sorting-strategy '((agenda time-up priority-down
> category-keep)
> (todo priority-down category-keep)
> (tags priority-down category-keep)
> (search category-keep))
> org-agenda-inhibit-startup t
> )
>
[-- Attachment #2: Type: text/html, Size: 26095 bytes --]
^ permalink raw reply [flat|nested] 4+ messages in thread
* Re: Bug: org-highest-priority not defined [9.3.6 (release_9.3.6-399-ge6df03 @ /home/n/.emacs.d/straight/build/org/)]
2020-03-01 4:35 ` No Wayman
@ 2020-03-10 17:46 ` No Wayman
2020-03-24 3:50 ` Kyle Meyer
0 siblings, 1 reply; 4+ messages in thread
From: No Wayman @ 2020-03-10 17:46 UTC (permalink / raw)
To: emacs-orgmode
[-- Attachment #1.1: Type: text/plain, Size: 20652 bytes --]
Proposed patch:
diff --git a/lisp/org.el b/lisp/org.el
index 31133c554..7b7e4c80a 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -2383,7 +2383,7 @@ set a priority."
:group 'org-priorities
:type 'boolean)
-(defalias 'org-highest-priority 'org-priority-highest)
+(defvaralias 'org-highest-priority 'org-priority-highest)
(defcustom org-priority-highest ?A
"The highest priority of TODO items.
@@ -2394,7 +2394,7 @@ Must be smaller than `org-priority-lowest'."
(character :tag "Character")
(integer :tag "Integer (< 65)")))
-(defalias 'org-lowest-priority 'org-priority-lowest)
+(defvaralias 'org-lowest-priority 'org-priority-lowest)
(defcustom org-priority-lowest ?C
"The lowest priority of TODO items.
A character like ?A, ?B, etc., or a numeric value like 1, 2, etc.
@@ -2404,7 +2404,7 @@ Must be higher than `org-priority-highest'."
(character :tag "Character")
(integer :tag "Integer (< 65)")))
-(defalias 'org-default-priority 'org-priority-default)
+(defvaralias 'org-default-priority 'org-priority-default)
(defcustom org-priority-default ?B
"The default priority of TODO items.
This is the priority an item gets if no explicit priority is given.
On Sat, Feb 29, 2020 at 11:35 PM No Wayman <iarchivedmywholelife@gmail.com>
wrote:
> Actually, on closer inspection. Shouldn't:
>
> (defalias 'org-highest-priority 'org-priority-highest)
>
> be
>
> (defvaralias ...)?
>
> On Sat, Feb 29, 2020 at 8:09 PM No Wayman <iarchivedmywholelife@gmail.com>
> wrote:
>
>> After updating Org, I'm hitting errors for an undefined
>> `org-highest-priority'.
>> I see that this is an alias for `org-priority-highest', but
>> describe-function (and I'm not sure why it's describe-function vs
>> describe-variable) dutifully reports:
>>
>> org-highest-priority is an alias for ‘org-priority-highest’,
>> which is not
>> defined. Please make a bug report.
>>
>> Not documented.
>>
>> My first hunch is that this is due to a mixed installation of Org,
>> but I'm having trouble diagnosing this. I've installed
>> org-plus-contrib using the straight package manager.
>> I've ensured that Org is not loaded before/during upgrading Org.
>> (locate-library "org") points to the correct file:
>>
>> "/home/n/.emacs.d/straight/build/org/org.elc"
>>
>> In the src elisp file,
>> /home/n/.emacs.d/straight/repos/org/lisp/org.el there defalias is
>> there as I would expect:
>>
>> (defalias 'org-highest-priority 'org-priority-highest)
>>
>> My usual technique for debugging this is evaling:
>>
>> (eval-after-load "org"
>> '(debug))
>>
>> prior to loading Org. However, in this case it looks like it's
>> loading the proper file:
>>
>> Debugger entered: nil
>> (closure (t) nil (debug))()
>> funcall((closure (t) nil (debug)))
>> mapc(funcall ((closure (t) nil (debug)) (closure (t) nil
>> (add-to-list 'org-src-lang-modes '("php" . php))) (closure (t)
>> nil (add-to-list 'org-src-lang-modes '("redis" . redis)))))
>> do-after-load-evaluation("/home/n/.emacs.d/straight/build/org/org.elc")
>> require(org)
>> byte-code("\300\301!\210\300\302!\210\300\303!\207" [require
>> cl-lib org org-refile] 2)
>> autoload-do-load((autoload "org-capture" 1424805 t nil)
>> org-capture)
>> command-execute(org-capture)
>>
>> I plan on reporting with the author of straight.el, too. Just
>> following through on the describe-function message here.
>> Not sure how to proceed with debugging. Apologies if this is
>> noise.
>>
>>
>> Emacs : GNU Emacs 28.0.50 (build 1, x86_64-pc-linux-gnu, X
>> toolkit, cairo version 1.17.3, Xaw3d scroll bars)
>> of 2020-02-23
>> Package: Org mode version 9.3.6 (release_9.3.6-399-ge6df03 @
>> /home/n/.emacs.d/straight/build/org/)
>>
>> current state:
>> ==============
>> (setq
>> org-src-mode-hook '(org-src-babel-configure-edit-buffer
>> org-src-mode-configure-edit-buffer
>> doom-modeline-set-org-src-modeline)
>> org-link-shell-confirm-function 'yes-or-no-p
>> org-metadown-hook '(org-babel-pop-to-session-maybe)
>> org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
>> org-refile-targets '((org-agenda-files :maxlevel . 20)
>> (my/org-files-list :maxlevel . 20))
>> org-enforce-todo-dependencies t
>> org-agenda-category-icon-alist '(("[Ww]ork"
>> (#("" 0 1
>> (rear-nonsticky t display
>> (raise -0.24) font-lock-face
>> (:family "FontAwesome"
>> :height 1.2) face
>> (:family "FontAwesome"
>> :height 1.2))
>> )
>> )
>> nil nil :ascent center)
>> ("[Rr]efile"
>> (#("" 0 1
>> (rear-nonsticky t display
>> (raise -0.24) font-lock-face
>> (:family "FontAwesome"
>> :height 1.2) face
>> (:family "FontAwesome"
>> :height 1.2))
>> )
>> )
>> nil nil :ascent center)
>> ("[Aa]ccounting"
>> (#("" 0 1
>> (rear-nonsticky t display
>> (raise -0.24) font-lock-face
>> (:family "FontAwesome"
>> :height 1.2) face
>> (:family "FontAwesome"
>> :height 1.2))
>> )
>> )
>> nil nil :ascent center)
>> ("[Hh]abit"
>> (#("" 0 1
>> (rear-nonsticky t display
>> (raise -0.24) font-lock-face
>> (:family "FontAwesome"
>> :height 1.2) face
>> (:family "FontAwesome"
>> :height 1.2))
>> )
>> )
>> nil nil :ascent center)
>> ("[Hh]ealth"
>> (#("" 0 1
>> (rear-nonsticky t display
>> (raise -0.24) font-lock-face
>> (:family "FontAwesome"
>> :height 1.2) face
>> (:family "FontAwesome"
>> :height 1.2))
>> )
>> )
>> nil nil :ascent center)
>> ("[Ii]n"
>> (#("" 0 1
>> (rear-nonsticky t display
>> (raise -0.24) font-lock-face
>> (:family "FontAwesome"
>> :height 1.2) face
>> (:family "FontAwesome"
>> :height 1.2))
>> )
>> )
>> nil nil :ascent center)
>> ("[Oo]ut"
>> (#("" 0 1
>> (rear-nonsticky t display
>> (raise -0.24) font-lock-face
>> (:family "FontAwesome"
>> :height 1.2) face
>> (:family "FontAwesome"
>> :height 1.2))
>> )
>> )
>> nil nil :ascent center)
>> ("[Ll]isten"
>> (#("" 0 1
>> (rear-nonsticky t display
>> (raise -0.24) font-lock-face
>> (:family "FontAwesome"
>> :height 1.2) face
>> (:family "FontAwesome"
>> :height 1.2))
>> )
>> )
>> nil nil :ascent center)
>> ("[Pp]lay"
>> (#("" 0 1
>> (rear-nonsticky t display
>> (raise -0.24) font-lock-face
>> (:family "FontAwesome"
>> :height 1.2) face
>> (:family "FontAwesome"
>> :height 1.2))
>> )
>> )
>> nil nil :ascent center)
>> ("[Rr]ead"
>> (#("" 0 1
>> (rear-nonsticky t display
>> (raise -0.24) font-lock-face
>> (:family "FontAwesome"
>> :height 1.2) face
>> (:family "FontAwesome"
>> :height 1.2))
>> )
>> )
>> nil nil :ascent center)
>> ("[Ww]atch"
>> (#("" 0 1
>> (rear-nonsticky t display
>> (raise -0.24) font-lock-face
>> (:family "FontAwesome"
>> :height 1.2) face
>> (:family "FontAwesome"
>> :height 1.2))
>> )
>> )
>> nil nil :ascent center)
>> ("[Cc]alendar"
>> (#("" 0 1
>> (rear-nonsticky t display
>> (raise -0.24) font-lock-face
>> (:family "FontAwesome"
>> :height 1.2) face
>> (:family "FontAwesome"
>> :height 1.2))
>> )
>> )
>> nil nil :ascent center)
>> )
>> org-agenda-files '("~/Documents/todo")
>> org-reveal-start-hook '(org-decrypt-entry)
>> org-modules '(org-habit)
>> org-blocker-hook
>> '(org-block-todo-from-children-or-siblings-or-parent)
>> org-mode-hook '(org-indent-mode
>> (closure (t) nil (add-hook 'after-save-hook
>> 'my/org-agenda-redo-all nil t)
>> (setq prettify-symbols-unprettify-at-point
>> 'right-edge)
>> (setq prettify-symbols-alist
>> '(("#+begin_src" . "λ") ("#+BEGIN_SRC" . "λ")
>> ("#+end_src" . "λ")
>> ("#+END_SRC" . "λ") (":PROPERTIES:" . "⚙")
>> (":properties:" . "⚙")
>> (":END:" . "∎") ("#+RESULTS:" . "→"))
>> )
>> (prettify-symbols-mode 1))
>> org-bullets-mode org-better-repeat-mode
>> #[0 "\300\301\302\303\304$\207"
>> [add-hook change-major-mode-hook org-show-all
>> append local] 5]
>> #[0 "\300\301\302\303\304$\207"
>> [add-hook change-major-mode-hook
>> org-babel-show-result-all append local]
>> 5]
>> org-babel-result-hide-spec
>> org-babel-hide-all-hashes writegood-mode
>> org-journal-update-auto-mode-alist flyspell-mode
>> org-eldoc-load)
>> org-outline-path-complete-in-steps nil
>> org-archive-hook '(org-attach-archive-delete-maybe)
>> org-journal-carryover-items nil
>> org-confirm-elisp-link-function 'yes-or-no-p
>> org-reverse-note-order t
>> org-journal-mode-hook '(#[0 "\301 \302\303\304$\207"
>> [org-journal-encrypt-on add-hook
>> org-journal-encryption-hook nil
>> t]
>> 5]
>> (lambda nil
>> (add-hook org-journal-encrypt-on
>> 'org-journal-encryption-hook nil
>> t)
>> )
>> )
>> org-agenda-before-write-hook '(org-agenda-add-entry-text)
>> org-metaup-hook '(org-babel-load-in-session-maybe)
>> org-log-reschedule t
>> org-agenda-text-search-extra-files '(agenda-archives)
>> org-babel-pre-tangle-hook '(save-buffer)
>> org-file-apps '((auto-mode . emacs) ("\\.mm\\'" . default)
>> ("\\.mp[[:digit:]]\\'" . "/usr/bin/mpv
>> --force-window=yes %s")
>> ("\\.x?html?\\'" . "/usr/bin/bash -c '$BROWSER
>> %s'")
>> ("\\.pdf\\'" . default))
>> org-tab-first-hook '(org-babel-hide-result-toggle-maybe
>> org-babel-header-arg-expand)
>> org-log-done 'time
>> org-journal-date-format "[%Y-%m-%d %a]"
>> org-hide-emphasis-markers t
>> org-ellipsis "▿"
>> org-habit-following-days 1
>> org-agenda-span 'day
>> org-agenda-loop-over-headlines-in-active-region nil
>> org-src-lang-modes '(("arduino" . arduino) ("redis" . redis)
>> ("php" . php) ("C" . c)
>> ("C++" . c++) ("asymptote" . asy) ("bash" .
>> sh) ("beamer" . latex)
>> ("calc" . fundamental) ("cpp" . c++)
>> ("ditaa" . artist)
>> ("dot" . fundamental) ("elisp" . emacs-lisp)
>> ("ocaml" . tuareg)
>> ("screen" . shell-script) ("shell" . sh)
>> ("sqlite" . sql))
>> org-src-preserve-indentation t
>> org-habit-today-glyph 128197
>> org-catch-invisible-edits 'show-and-error
>> org-habit-show-habits-only-for-today nil
>> org-occur-hook '(org-first-headline-recenter)
>> org-agenda-mode-hook '(org-journal-update-org-agenda-files)
>> org-structure-template-alist '(("sj" . "src javascript") ("ss" .
>> "src shell")
>> ("se" . "src emacs-lisp") ("a" .
>> "export ascii")
>> ("c" . "center") ("C" . "comment")
>> ("e" . "example")
>> ("E" . "export") ("h" . "export
>> html")
>> ("l" . "export latex") ("q" .
>> "quote") ("s" . "src")
>> ("v" . "verse"))
>> org-cycle-hook '(org-cycle-hide-archived-subtrees
>> org-cycle-show-empty-lines
>> org-optimize-window-after-visibility-change)
>> org-todo-keywords '((sequence "TODO(t)" "STARTED(s!)" "NEXT(n!)"
>> "BLOCKED(b@/!)" "|"
>> "DONE(d)")
>> (sequence "IDEA(i)" "|" "CANCELED(c@/!)"
>> "DELEGATED(D@/!)")
>> (sequence "RESEARCH(r)" "|"))
>> org-speed-command-hook '(org-speed-command-activate
>> org-babel-speed-command-activate)
>> org-better-repeat-mode t
>> org-hierarchical-todo-statistics nil
>> org-M-RET-may-split-line nil
>> org-agenda-use-tag-inheritance nil
>> org-journal-dir "~/Documents/journal"
>> org-return-follows-link t
>> org-refile-allow-creating-parent-nodes 'confirm
>> org-refile-use-outline-path 'file
>> org-export-before-parsing-hook '(org-attach-expand-links)
>> org-confirm-shell-link-function 'yes-or-no-p
>> org-link-parameters '(("attachment" :follow org-attach-follow
>> :complete
>> org-attach-complete-link)
>> ("id" :follow org-id-open)
>> ("region" :follow org-region-open :export
>> nil :store
>> org-region-store-link)
>> ("mu4e" :follow mu4e-org-open :store
>> mu4e-org-store-link)
>> ("elfeed" :follow elfeed-link-open :store
>> elfeed-link-store-link)
>> ("file+sys") ("file+emacs") ("shell"
>> :follow org-link--open-shell)
>> ("news" :follow
>> #[514 "\301\300\302.Q.\"\207" ["news"
>> browse-url ":"] 6
>> "\n\n(fn URL ARG)"]
>> )
>> ("mailto" :follow
>> #[514 "\301\300\302.Q.\"\207" ["mailto"
>> browse-url ":"] 6
>> "\n\n(fn URL ARG)"]
>> )
>> ("https" :follow
>> #[514 "\301\300\302.Q.\"\207" ["https"
>> browse-url ":"] 6
>> "\n\n(fn URL ARG)"]
>> )
>> ("http" :follow
>> #[514 "\301\300\302.Q.\"\207" ["http"
>> browse-url ":"] 6
>> "\n\n(fn URL ARG)"]
>> )
>> ("ftp" :follow
>> #[514 "\301\300\302.Q.\"\207" ["ftp"
>> browse-url ":"] 6
>> "\n\n(fn URL ARG)"]
>> )
>> ("help" :follow org-link--open-help)
>> ("file" :complete org-link-complete-file)
>> ("elisp" :follow org-link--open-elisp)
>> ("doi" :follow org-link--open-doi))
>> org-bullets-bullet-list '("◇")
>> org-link-elisp-confirm-function 'yes-or-no-p
>> org-habit-completed-glyph 10003
>> org-journal-time-format "%I:%M %p\njrn"
>> org-journal-hook '(flyspell-mode)
>> org-habit-preceding-days 29
>> org-journal-file-format "%Y.%m.%d.%A.org"
>> org-src-window-setup 'current-window
>> org-confirm-babel-evaluate nil
>> org-agenda-clockreport-parameter-plist '(:link t :maxlevel 2
>> :stepskip0 t :fileskip0 t)
>> org-link-from-user-regexp "\\<n@arch\\>"
>> org-agenda-sorting-strategy '((agenda time-up priority-down
>> category-keep)
>> (todo priority-down category-keep)
>> (tags priority-down category-keep)
>> (search category-keep))
>> org-agenda-inhibit-startup t
>> )
>>
>
[-- Attachment #1.2: Type: text/html, Size: 27990 bytes --]
[-- Attachment #2: 0001-Use-defvaralias-for-prioirity-variable-aliases.patch --]
[-- Type: text/x-patch, Size: 1500 bytes --]
From a8a6d1c15db3c2bdd7083257671dad9122821269 Mon Sep 17 00:00:00 2001
From: Nicholas Vollmer <iarchivedmywholelife@gmail.com>
Date: Tue, 10 Mar 2020 13:43:28 -0400
Subject: [PATCH] Use defvaralias for prioirity variable aliases
---
lisp/org.el | 6 +++---
1 file changed, 3 insertions(+), 3 deletions(-)
diff --git a/lisp/org.el b/lisp/org.el
index 31133c554..7b7e4c80a 100644
--- a/lisp/org.el
+++ b/lisp/org.el
@@ -2383,7 +2383,7 @@ set a priority."
:group 'org-priorities
:type 'boolean)
-(defalias 'org-highest-priority 'org-priority-highest)
+(defvaralias 'org-highest-priority 'org-priority-highest)
(defcustom org-priority-highest ?A
"The highest priority of TODO items.
@@ -2394,7 +2394,7 @@ Must be smaller than `org-priority-lowest'."
(character :tag "Character")
(integer :tag "Integer (< 65)")))
-(defalias 'org-lowest-priority 'org-priority-lowest)
+(defvaralias 'org-lowest-priority 'org-priority-lowest)
(defcustom org-priority-lowest ?C
"The lowest priority of TODO items.
A character like ?A, ?B, etc., or a numeric value like 1, 2, etc.
@@ -2404,7 +2404,7 @@ Must be higher than `org-priority-highest'."
(character :tag "Character")
(integer :tag "Integer (< 65)")))
-(defalias 'org-default-priority 'org-priority-default)
+(defvaralias 'org-default-priority 'org-priority-default)
(defcustom org-priority-default ?B
"The default priority of TODO items.
This is the priority an item gets if no explicit priority is given.
--
2.25.1
^ permalink raw reply related [flat|nested] 4+ messages in thread
* Re: Bug: org-highest-priority not defined [9.3.6 (release_9.3.6-399-ge6df03 @ /home/n/.emacs.d/straight/build/org/)]
2020-03-10 17:46 ` No Wayman
@ 2020-03-24 3:50 ` Kyle Meyer
0 siblings, 0 replies; 4+ messages in thread
From: Kyle Meyer @ 2020-03-24 3:50 UTC (permalink / raw)
To: No Wayman, emacs-orgmode
No Wayman <iarchivedmywholelife@gmail.com> writes:
> Subject: [PATCH] Use defvaralias for prioirity variable aliases
Thank you for the initial report and the follow-up patch. I'm confused
why e062ca719 (org.el: Use `defalias' for priority aliases, 2020-02-24)
did the exact opposite reversal, but your patch looks obviously correct.
Applied in 097b4e6ca, filling in the commit message.
^ permalink raw reply [flat|nested] 4+ messages in thread
end of thread, other threads:[~2020-03-24 3:51 UTC | newest]
Thread overview: 4+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2020-03-01 1:09 Bug: org-highest-priority not defined [9.3.6 (release_9.3.6-399-ge6df03 @ /home/n/.emacs.d/straight/build/org/)] No Wayman
2020-03-01 4:35 ` No Wayman
2020-03-10 17:46 ` No Wayman
2020-03-24 3:50 ` Kyle Meyer
Code repositories for project(s) associated with this public inbox
https://git.savannah.gnu.org/cgit/emacs/org-mode.git
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).