----
This function does exactly what ''ff-find-other-file'' does, and less. I did not know about ff-find-other-file when I wrote and posted this code. I wish I could delete this page, but PagePruning seems to say I'm stuck with it. Oh, well. This page can serve as a reminder to look *really* hard in emacs before you implement a new function. Odds are it's already there. -ScottDe

	 :	''Ha!  I wrote that a version of that function too.  I didn't know about ff-find-other-file.  BTW, my version of emacs (XEmacs 20.4) doesn't seem to have ff-find-other-file.  Is it part of a particular package?'' -- JimWeirich

Don't worry about it, the same is true for just about any emacs feature. I once wrote a CORBA ORB in emacs lisp, and was shocked to find a few days later that there was already a (much) better one around. -- LukeGorrie

----
Here is some elisp to switch between twins [.h and .cpp files for the same class]. The entry point is "load-twin". It works if the files are stored in the same directory or if you have parallel "src" and "include" directories for
your files.

I am not really a lisp person, hope this code isn't too ugly. If you
try it and it doesn't work, let me know, I may have forgotten to
include a helper function (I extracted this code from a couple of .el
files I wrote, hopefully I got it all). You need to get the AnaphoricLispMacros before this code will work.

-ScottDe
 (defun my-file-exists-p (file-name)
  (if (file-exists-p file-name) file-name nil))
 
 (defun twin-file-name-helper (cur-file cur-ext twin-ext cur-dir twin-dir)
   (if (string-match (concat ".*" cur-ext) cur-file)
       (aif (my-file-exists-p
             (my-replace-lisp-string cur-ext twin-ext
                                     (my-replace-lisp-string cur-dir twin-dir
                                                             cur-file)))
            it
            (my-file-exists-p (my-replace-lisp-string
                               cur-ext
                               twin-ext cur-file)))))
 
 (defun twin-file-name (cur-file)
   (cond
    ((twin-file-name-helper cur-file "cpp$" "h" "/src/" "/include/"))
    ((twin-file-name-helper cur-file "inc$" "h" "/src/" "/include/"))
    ((twin-file-name-helper cur-file "h$" "cpp" "/include/" "/src/"))
    ((twin-file-name-helper cur-file "h$" "inc" "/include/" "/src/"))))
 
 ;; keep find-file-noselect from creating redundent buffers for same file
 
 (setq find-file-existing-other-name t) 
 
 (defun load-twin ()
   "Load the twin of the header or implementation file"
   (interactive)
   (let ((file-name (twin-file-name (buffer-file-name))))
     (cond ((not file-name) (ding t))
           ((file-exists-p file-name) 
            (find-file file-name))
           (t (ding t)))))
 
 ;; you also need the following helper functions
 
 (defun my-lisp-substring (str from to)
   (let ((last-char (1- (length str))))
     (cond ((<= from last-char) (substring str from to))
       (t nil))))
 
 (defun my-replace-lisp-string (f-str r-str str)
   (if (string-match f-str str)
       (let ((first-part (my-lisp-substring str 0 (match-beginning 0)))
         (last-part (my-lisp-substring str (match-end 0) nil)))
     (concat first-part r-str last-part))
     str))

----
CategoryEmacs