[Orgmode] [Testing + Babel] Old Org HTML hides Org HTML

[Sébastien Vauban]

#+TITLE:     Old-Org-HTML-hides-Org-HTML.txt
#+DATE:      2010-10-15
#+LANGUAGE:  en_US

Hello,

Yesterday, still being in the loop of (re-)installations after my laptop
crashed end of last week, I've *moved* my Org repository from
=~/Downloads/emacs/site-lisp/org-mode= to =~/src/org= and have updated the
=load-path=:

#+begin_src emacs-lisp
      (my/add-to-load-path "~/src/org" 'with-subdirs 'recursive)
#+end_src

before

#+begin_src emacs-lisp
      (when (require 'org-install)
       ...)
#+end_src

and have restarted Emacs 23.

FYI, here is my definition of =my/add-to-load-path=:

#+begin_src emacs-lisp
      (defun my/add-to-load-path (this-directory
                                   &optional with-subdirs recursive)
        "Add THIS-DIRECTORY at the beginning of the load-path, if it exists.
Add all its subdirectories not starting with a '.' if the
optional argument WITH-SUBDIRS is not nil.
Do it recursively if the third argument is not nil."
        (when (and this-directory
                   (file-directory-p this-directory))
          (let* ((this-directory (expand-file-name this-directory))
                 (files (directory-files this-directory t "^[^\\.]")))

            ;; completely canonicalize the directory name (*may not* begin
            ;; with `~')
            (while (not (string= this-directory
                                 (expand-file-name this-directory)))
              (setq this-directory (expand-file-name this-directory)))

            (message "Adding `%s' to load-path..." this-directory)
            (add-to-list 'load-path this-directory)

            (when with-subdirs
              (while files
                (setq dir-or-file (car files))
                (when (file-directory-p dir-or-file)
                  (if recursive
                      (my/add-to-load-path dir-or-file
                                            'with-subdirs 'recursive)
                    (my/add-to-load-path dir-or-file)))
                (setq files (cdr files)))))))
#+end_src

And could be the cause of problems I now have:

#+begin_src emacs-lisp
Symbol's value as variable is void: org-html-entities
#+end_src

In details (here, when replying to an email in Gnus -- but the same happens in
different Org situations):

#+begin_src emacs-lisp
Debugger entered--Lisp error: (void-variable org-html-entities)
  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("*reply to Kate*")
  message-reply(nil nil)
  gnus-summary-reply((4248) nil)
  gnus-summary-reply-with-original(nil)
  call-interactively(gnus-summary-reply-with-original nil nil)
#+end_src

I see; in Version 6.35 (info from =Changes.org=), that:

#+begin_src txt
The constant =org-html-entities= is obsolete
#+end_src

But, AFAIK, I don't reference it anywhere -- nowhere in my =.emacs=, neither
in my =.gnus=.

So, a lot of small things don't work anymore. Am I the responsible of this,
or do things have changed?

I don't see any mix of versions that I could have caused, but...

#+begin_src emacs-lisp :results output
(list-load-path-shadows)
#+end_src

#+results:
#+begin_example

90 Emacs Lisp load-path shadowings were found
#+end_example

Weird... Lines are not outputted... *Bug*?

Here a copy/paste of the top 10 lines containing the string =org=:

#+begin_src emacs-lisp
c:/home/sva/src/org/testing/old/org-html hides c:/home/sva/src/org/lisp/org-html
c:/home/sva/src/org/contrib/lisp/org-velocity hides 
c:/home/sva/Downloads/emacs/site-lisp/org-velocity
c:/home/sva/src/org/contrib/lisp/org-invoice hides 
c:/home/sva/Downloads/emacs/site-lisp/org-invoice
c:/home/sva/src/org/contrib/lisp/htmlize hides 
c:/home/sva/Downloads/emacs/site-lisp/htmlize
c:/home/sva/src/org/contrib/lisp/org-panel hides c:/Program 
Files/Emacs-23/EmacsW32/nxhtml/util/org-panel
c:/home/sva/src/org/lisp/org hides c:/Program Files/Emacs-23/emacs/lisp/org/org
c:/home/sva/src/org/lisp/org-xoxo hides c:/Program 
Files/Emacs-23/emacs/lisp/org/org-xoxo
c:/home/sva/src/org/lisp/org-wl hides c:/Program 
Files/Emacs-23/emacs/lisp/org/org-wl
c:/home/sva/src/org/lisp/org-w3m hides c:/Program 
Files/Emacs-23/emacs/lisp/org/org-w3m
c:/home/sva/src/org/lisp/org-vm hides c:/Program 
Files/Emacs-23/emacs/lisp/org/org-vm
#+end_src

Aaii, =old/org-html= hides =org-html=...

Solution in my case: rename =org/testing/old= into =org/testing/.old=, so that
it won't be seen by =my/add-to-load-path= (as directories beginning with a dot
are simply ignored).

Restarted Emacs. OK now.

Question: is it acceptable to replace (in Git) =old= by =.old= -- in the hope
you'd be interested by my above function for finding lisp directories?

Best regards,
  Seb

-- 
Sébastien Vauban