[emacs-wiki-discuss] emacs-wiki and symbolic links

[Pascal Quesseveur]

Hello,

I work with a Wiki directory which is a symbolic link. That directory
is set in emacs-wiki-directories using the symbolic path.  When I use
find-file to open a file in that directory, emacs-wiki mode is not
always set. When I use the symbolic path, the mode is set. But when i
use the real path, the mode is not set.

The problem comes from emacs-wiki-directories-member in
emacs-wiki.el. I have found that it can be corrected by using
file-truename, but a) I am not an Elisp specialist, and b) I have only
tested it with GNU emacs 21.3.1. So, feel free to comment the
following ...

,----
| *** emacs-wiki-orig.el  2004-12-13 18:36:21.000000000 +0100
| --- emacs-wiki.el       2004-12-13 18:42:49.000000000 +0100
| ***************
| *** 626,631 ****
|     "Return non-nil if the current buffer is in `emacs-wiki-directories'."
|     (unless (null buffer-file-name)
| !     (let ((here (expand-file-name
| !                  (file-name-directory buffer-file-name)))
|             (d (or directories emacs-wiki-directories))
|             yes)
| --- 626,631 ----
|     "Return non-nil if the current buffer is in `emacs-wiki-directories'."
|     (unless (null buffer-file-name)
| !     (let ((here (file-truename (expand-file-name
| !                                 (file-name-directory buffer-file-name))))
|             (d (or directories emacs-wiki-directories))
|             yes)
| ***************
| *** 634,638 ****
|                                                  (caar d) (car d)))))
|             (if (and (string-match
| !                     (concat "^" (regexp-quote (expand-file-name dir)))
|                       here)
|                      ;; not an ignored file
| --- 634,639 ----
|                                                  (caar d) (car d)))))
|             (if (and (string-match
| !                     (concat "^" (regexp-quote (file-truename
| !                                                (expand-file-name dir))))
|                       here)
|                      ;; not an ignored file
`----

-- 
Pascal Quesseveur, address@hidden