Re: [Orgmode] Bug in latest version?

2010-06-29 Thread Carsten Dominik

Fixed, thanks.

- Carsten

On Jun 28, 2010, at 4:24 PM, Sébastien Vauban wrote:


Hello,

I just updated my Org (git version).

I may have made a mistake somewhere else, but I think there is a bug
introduced recently:

--8<---cut here---start->8---
Debugger entered--Lisp error: (wrong-type-argument listp "* Letters")
 car("* Letters")
 mapcar(car ("* Letters" "** Latin" ("Agrave" "\\`{A}" nil  
"À" "A" "À" "À") ("agrave" "\\`{a}" nil "à" "a" "à"  
"à") ("Aacute" "\\'{A}" nil "Á" "A" "Á" "Á") ("aacute" "\ 
\'{a}" nil "á" "a" "á" "á") ("Acirc" "\\^{A}" nil "Â"  
"A" "Â" "Â") ("acirc" "\\^{a}" nil "â" "a" "â" "â") ("Atilde"  
"\\~{A}" nil "Ã" "A" "Ã" "Ã") ("atilde" "\\~{a}" nil  
"ã" "a" "ã" "ã") ("Auml" "\\\"{A}" nil "Ä" "Ae" "Ä" "Ä")  
("auml" "\\\"{a}" nil "ä" "ae" "ä" "ä") ("Aring" "\\AA{}" nil  
"Å" "A" "Å" "Å") ("AA" "\\AA{}" nil "Å" "A" "Å" "Å")  
("aring" "\\aa{}" nil "å" "a" "å" "å") ("AElig" "\\AE{}" nil  
"Æ" "AE" "Æ" "Æ") ("aelig" "\\ae{}" nil "æ" "ae" "æ"  
"æ") ("Ccedil" "\\c{C}" nil "Ç" "C" "Ç" "Ç") ("ccedil" "\ 
\c{c}" nil "ç" "c" "ç" "ç") ("Egrave" "\\`{E}" nil "È"  
"E" "È" "È") ("egrave" "\\`{e}" nil "è" "e" "è" "è")  
("Eacute" "\\'{E}" nil "É" "E" "É" "É") ("eacute" "\\'{e}"  
nil "é" "e" "é" "é") ("Ecirc" "\\^{E}" nil "Ê" "E" "Ê"  
"Ê") ("ecirc" "\\^{e}" nil "ê" "e" "ê" "ê") ("Euml" "\\\"{E}"  
nil "Ë" "E" "Ë" "Ë") ("euml" "\\\"{e}" nil "ë" "e" "ë"  
"ë") ("Igrave" "\\`{I}" nil "Ì" "I" "Ì" "Ì") ("igrave" "\ 
\`{i}" nil "ì" "i" "ì" "ì") ("Iacute" "\\'{I}" nil "Í"  
"I" "Í" "Í") ("iacute" "\\'{i}" nil "í" "i" "í" "í") ("Icirc"  
"\\^{I}" nil "Î" "I" "Î" "Î") ("icirc" "\\^{i}" nil "î"  
"i" "î" "î") ("Iuml" "\\\"{I}" nil "Ï" "I" "Ï" "Ï") ("iuml" "\\ 
\"{i}" nil "ï" "i" "ï" "ï") ("Ntilde" "\\~{N}" nil "Ñ"  
"N" "Ñ" "Ñ") ("ntilde" "\\~{n}" nil "ñ" "n" "ñ" "ñ")  
("Ograve" "\\`{O}" nil "Ò" "O" "Ò" "Ò") ("ograve" "\\`{o}"  
nil "ò" "o" "ò" "ò") ("Oacute" "\\'{O}" nil "Ó" "O"  
"Ó" "Ó") ("oacute" "\\'{o}" nil "ó" "o" "ó" "ó") ("Ocirc" "\ 
\^{O}" nil "Ô" "O" "Ô" "Ô") ("ocirc" "\\^{o}" nil "ô"  
"o" "ô" "ô") ("Otilde" "\\~{O}" nil "Õ" "O" "Õ" "Õ")  
("otilde" "\\~{o}" nil "õ" "o" "õ" "õ") ("Ouml" "\\\"{O}" nil  
"Ö" "Oe" "Ö" "Ö") ("ouml" "\\\"{o}" nil "ö" "oe" "ö" "ö")  
("Oslash" "\\O" nil "Ø" "O" "Ø" "Ø") ("oslash" "\\o{}" nil  
"ø" "o" "ø" "ø") ("OElig" "\\OE{}" nil "Œ" "OE" "OE"  
"Œ") ...))

 org-compute-latex-and-specials-regexp()
 org-set-regexps-and-options()
 org-mode()
 org-get-local-variables()
 orgstruct-setup()
 orgstruct-mode(1)
 turn-on-orgstruct()
 (progn (turn-on-orgtbl) (turn-on-orgstruct) (turn-on-orgstruct++))
 (if (locate-library "org.el") (progn (turn-on-orgtbl) (turn-on- 
orgstruct) (turn-on-orgstruct++)))
 (when (locate-library "org.el") (turn-on-orgtbl) (turn-on- 
orgstruct) (turn-on-orgstruct++))

 my-message-mode-hook()
 run-hooks(text-mode-hook message-mode-hook)
 apply(run-hooks (text-mode-hook message-mode-hook))
 run-mode-hooks(message-mode-hook)
 message-mode()
 message-pop-to-buffer("*mail*" nil)
 message-mail()
 gnus-group-mail(nil)
 call-interactively(gnus-group-mail nil nil)
--8<---cut here---end--->8---

That's what I got when trying to compose a new mail in Gnus.

Adding `-XXX' in the `locate-library' below temporarily fixes the  
problem.


--8<---cut here---start->8---
;; operates on messages you send
(defun my-message-mode-hook ()

;;;   ;; prompt for and insert a mail alias
;;;   (local-set-key (kbd "M-a") 'mail-abbrev-insert-alias)

 ;; tab completion for alias in `.mailrc'
 (local-set-key (kbd "M-TAB") 'mail-abbrev-complete-alias)

 ;; enable automatic word-wrap when composing messages
 (setq fill-column 78)
 (turn-on-auto-fill)

 ;; footnote
 (footnote-mode)
 (setq footnote-spaced-footnotes nil)
 (setq footnote-section-tag "")
 (setq footnote-style 'latin)

 (when (locate-library "org.el-XXX")

   ;; turn on the `org-mode' table editor
   (turn-on-orgtbl)

   ;; turn on orgstruct-mode
   (turn-on-orgstruct)

   ;; turn on the enhanced version of orgstruct-mode
   (turn-on-orgstruct++)))

(add-hook 'message-mode-hook 'my-message-mode-hook)
--8<---cut here---end--->8---

Best regards,
 Seb

--
Sébastien Vauban


___
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode


- Carsten




___
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode


Re: [Orgmode] Bug in latest version?

2010-06-28 Thread Giovanni Ridolfi
Sébastien Vauban  writes:

> Hello,
>
> I just updated my Org (git version).
>
> I may have made a mistake somewhere else, but I think there is a bug
> introduced recently:
>
> Debugger entered--Lisp error: (wrong-type-argument listp "* Letters")
>   car("* Letters")
>   mapcar(car ("* Letters" "** Latin" ("Agrave" "\\`{

I think with commit :

ee629299c0f699c5fa9274720ad89286b8ea1e73  (merge in master)
or
af866a94bdf54aade9c63e1234a8989032bfcf9d

you should be able to "undo" this/these commits ;)

cheers,
Giovanni

___
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode


[Orgmode] Bug in latest version?

2010-06-28 Thread Sébastien Vauban
Hello,

I just updated my Org (git version).

I may have made a mistake somewhere else, but I think there is a bug
introduced recently:

--8<---cut here---start->8---
Debugger entered--Lisp error: (wrong-type-argument listp "* Letters")
  car("* Letters")
  mapcar(car ("* Letters" "** Latin" ("Agrave" "\\`{A}" nil "À" "A" "À" 
"À") ("agrave" "\\`{a}" nil "à" "a" "à" "à") ("Aacute" "\\'{A}" nil 
"Á" "A" "Á" "Á") ("aacute" "\\'{a}" nil "á" "a" "á" "á") ("Acirc" 
"\\^{A}" nil "Â" "A" "Â" "Â") ("acirc" "\\^{a}" nil "â" "a" "â" 
"â") ("Atilde" "\\~{A}" nil "Ã" "A" "Ã" "Ã") ("atilde" "\\~{a}" nil 
"ã" "a" "ã" "ã") ("Auml" "\\\"{A}" nil "Ä" "Ae" "Ä" "Ä") ("auml" 
"\\\"{a}" nil "ä" "ae" "ä" "ä") ("Aring" "\\AA{}" nil "Å" "A" "Å" 
"Å") ("AA" "\\AA{}" nil "Å" "A" "Å" "Å") ("aring" "\\aa{}" nil "å" 
"a" "å" "å") ("AElig" "\\AE{}" nil "Æ" "AE" "Æ" "Æ") ("aelig" "\\ae{}" 
nil "æ" "ae" "æ" "æ") ("Ccedil" "\\c{C}" nil "Ç" "C" "Ç" "Ç") 
("ccedil" "\\c{c}" nil "ç" "c" "ç" "ç") ("Egrave" "\\`{E}" nil 
"È" "E" "È" "È") ("egrave" "\\`{e}" nil "è" "e" "è" "è") 
("Eacute" "\\'{E}" nil "É" "E" "É" "É") ("eacute" "\\'{e}" nil 
"é" "e" "é" "é") ("Ecirc" "\\^{E}" nil "Ê" "E" "Ê" "Ê") ("ecirc" 
"\\^{e}" nil "ê" "e" "ê" "ê") ("Euml" "\\\"{E}" nil "Ë" "E" "Ë" "Ë") 
("euml" "\\\"{e}" nil "ë" "e" "ë" "ë") ("Igrave" "\\`{I}" nil "Ì" 
"I" "Ì" "Ì") ("igrave" "\\`{i}" nil "ì" "i" "ì" "ì") ("Iacute" "\\'{I}" 
nil "Í" "I" "Í" "Í") ("iacute" "\\'{i}" nil "í" "i" "í" "í") 
("Icirc" "\\^{I}" nil "Î" "I" "Î" "Î") ("icirc" "\\^{i}" nil "î" 
"i" "î" "î") ("Iuml" "\\\"{I}" nil "Ï" "I" "Ï" "Ï") ("iuml" "\\\"{i}" nil 
"ï" "i" "ï" "ï") ("Ntilde" "\\~{N}" nil "Ñ" "N" "Ñ" "Ñ") ("ntilde" 
"\\~{n}" nil "ñ" "n" "ñ" "ñ") ("Ograve" "\\`{O}" nil "Ò" "O" "Ò" 
"Ò") ("ograve" "\\`{o}" nil "ò" "o" "ò" "ò") ("Oacute" "\\'{O}" nil 
"Ó" "O" "Ó" "Ó") ("oacute" "\\'{o}" nil "ó" "o" "ó" "ó") ("Ocirc" 
"\\^{O}" nil "Ô" "O" "Ô" "Ô") ("ocirc" "\\^{o}" nil "ô" "o" "ô" 
"ô") ("Otilde" "\\~{O}" nil "Õ" "O" "Õ" "Õ") ("otilde" "\\~{o}" nil 
"õ" "o" "õ" "õ") ("Ouml" "\\\"{O}" nil "Ö" "Oe" "Ö" "Ö") ("ouml" 
"\\\"{o}" nil "ö" "oe" "ö" "ö") ("Oslash" "\\O" nil "Ø" "O" "Ø" 
"Ø") ("oslash" "\\o{}" nil "ø" "o" "ø" "ø") ("OElig" "\\OE{}" nil 
"Œ" "OE" "OE" "Œ") ...))
  org-compute-latex-and-specials-regexp()
  org-set-regexps-and-options()
  org-mode()
  org-get-local-variables()
  orgstruct-setup()
  orgstruct-mode(1)
  turn-on-orgstruct()
  (progn (turn-on-orgtbl) (turn-on-orgstruct) (turn-on-orgstruct++))
  (if (locate-library "org.el") (progn (turn-on-orgtbl) (turn-on-orgstruct) 
(turn-on-orgstruct++)))
  (when (locate-library "org.el") (turn-on-orgtbl) (turn-on-orgstruct) 
(turn-on-orgstruct++))
  my-message-mode-hook()
  run-hooks(text-mode-hook message-mode-hook)
  apply(run-hooks (text-mode-hook message-mode-hook))
  run-mode-hooks(message-mode-hook)
  message-mode()
  message-pop-to-buffer("*mail*" nil)
  message-mail()
  gnus-group-mail(nil)
  call-interactively(gnus-group-mail nil nil)
--8<---cut here---end--->8---

That's what I got when trying to compose a new mail in Gnus.

Adding `-XXX' in the `locate-library' below temporarily fixes the problem.

--8<---cut here---start->8---
;; operates on messages you send
(defun my-message-mode-hook ()

;;;   ;; prompt for and insert a mail alias
;;;   (local-set-key (kbd "M-a") 'mail-abbrev-insert-alias)

  ;; tab completion for alias in `.mailrc'
  (local-set-key (kbd "M-TAB") 'mail-abbrev-complete-alias)

  ;; enable automatic word-wrap when composing messages
  (setq fill-column 78)
  (turn-on-auto-fill)

  ;; footnote
  (footnote-mode)
  (setq footnote-spaced-footnotes nil)
  (setq footnote-section-tag "")
  (setq footnote-style 'latin)

  (when (locate-library "org.el-XXX")

;; turn on the `org-mode' table editor
(turn-on-orgtbl)

;; turn on orgstruct-mode
(turn-on-orgstruct)

;; turn on the enhanced version of orgstruct-mode
(turn-on-orgstruct++)))

(add-hook 'message-mode-hook 'my-message-mode-hook)
--8<---cut here---end--->8---

Best regards,
  Seb

-- 
Sébastien Vauban


___
Emacs-orgmode mailing list
Please use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode