* 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).