Hi Seb, Since this old testing file is obsolete I've just deleted it. Thanks to git it can always be resurrected later as the basis for a modern org-html test suite.
Best -- Eric Sébastien Vauban <wxhgmqzgw...@spammotel.com> writes: > #+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 _______________________________________________ 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