From: David O'Toole <dto1138@gmail.com>
To: emacs-orgmode@gnu.org
Subject: orgstruct-mode error
Date: Sat, 25 Aug 2007 18:48:18 -0400 [thread overview]
Message-ID: <m3absfw7rh.fsf@gmail.com> (raw)
I am using org 5.05 and get this error when doing org-cycle in an
emacs-lisp-mode buffer (with Orgstruct mode on)
> Debugger entered--Lisp error: (wrong-type-argument stringp nil)
> re-search-forward(nil 6690 t)
> org-cycle-hide-drawers(contents)
> run-hook-with-args(org-cycle-hide-drawers contents)
> org-cycle(t)
> org-cycle-global()
> call-interactively(org-cycle-global)
> recursive-edit()
> byte-code("Æ @Ç=!ÈÉÊ\"ËÉ!\x1aA@)¢Ì=!ÈÍÊ\"Î\v!Ï Ð !\fcÑed\"VWebÒ¥y`^[dbÒ¥Zy\x0e`|)ÓcebÔÕÖ \"× ÔØ!ÙÊ\x1c\x1dÔØ!Ú +Ù" [unread-command-char debugger-args x debugger-buffer noninteractive debugger-batch-max-lines -1 debug backtrace-debug 4 t backtrace-frame lambda 5 pop-to-buffer debugger-mode debugger-setup-buffer count-lines 2 "...\n" message "%s" buffer-string kill-emacs "" nil recursive-edit middlestart buffer-read-only standard-output] 4)
> debug(error (wrong-type-argument stringp nil))
> re-search-forward(nil 6690 t)
> org-cycle-hide-drawers(contents)
> run-hook-with-args(org-cycle-hide-drawers contents)
> org-cycle(t)
> org-cycle-global()
> call-interactively(org-cycle-global)
Here is the code I use to set up the buffer:
;; global consistent org cycling keys
(defun org-cycle-global ()
(interactive)
(org-cycle t))
(defun org-cycle-local ()
(interactive)
(save-excursion
(move-beginning-of-line nil)
(org-cycle)))
(global-set-key (kbd "M-[") 'org-cycle-global)
(global-set-key (kbd "M-]") 'org-cycle-local)
(add-hook 'emacs-lisp-mode-hook #'orgstruct-mode)
;;;; Fontifying todo items outside of org-mode
(defface todo-comment-face '((t (:background "red" :foreground "yellow" :weight bold :bold t))) "Face for TODO in code buffers.")
(defvar todo-comment-face 'todo-comment-face)
(defun fontify-todo ()
(font-lock-add-keywords nil '(("\\<\\(TODO\\)\\>"
(1 todo-comment-face t)))))
(add-hook 'emacs-lisp-mode-hook #'fontify-todo)
(defface headline-face '((t (:foreground "white" :underline "white" :background "navyblue"))) "Face for headlines.")
(defvar headline-face 'headline-face)
(defun fontify-headline ()
(font-lock-add-keywords nil '(("^;;;;* \\(.*\\)\\>"
(1 headline-face t)))))
(add-hook 'emacs-lisp-mode-hook #'fontify-headline)
--
David O'Toole
dto@gnu.org
http://dto.freeshell.org/notebook/
next reply other threads:[~2007-08-25 22:48 UTC|newest]
Thread overview: 2+ messages / expand[flat|nested] mbox.gz Atom feed top
2007-08-25 22:48 David O'Toole [this message]
2007-08-27 3:16 ` orgstruct-mode error Carsten Dominik
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
List information: https://www.orgmode.org/
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=m3absfw7rh.fsf@gmail.com \
--to=dto1138@gmail.com \
--cc=emacs-orgmode@gnu.org \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
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).