Re: Changing open file buffer handling

["Ehud Karni" <ehud@unix.mvs.co.il>]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

On Wed, 05 Mar 2003 13:28:01 -0500, jeff.rancier@softechnics.com (Jeffery B. Rancier) wrote:
> >
> > Add this to your .emacs:
> >
> > (defun dired-find-alternate-file 
> >   "In dired, visit this file or directory instead of dired buffer."
> >   (interactive "P")
> >        (find-alternate-file (dired-get-filename)))
> >
> 
> Should that be
> 
> (defun dired-find-alternate-file 
>   "In dired, visit this file or directory instead of dired buffer."
>   (interactive)
>        (find-alternate-file (dired-get-filename)))

Sorry. It was "too quick" hack of my real function which is:

(defun dired-find-alternate-file (&optional as-directory)
  "In dired, visit this file or directory instead of dired buffer."
  (interactive "P")
       (if as-directory
           (ek-find-alternate-file nil as-directory)
           (ek-find-alternate-file (dired-get-filename))))

;;------------- find-alternate-file (modified from files) ---------------

(defun ek-find-alternate-file (&optional filename as-directory)
  "Find file FILENAME, select its buffer, kill previous buffer.
If the current buffer now contains an empty file that you just visited
\(presumably by mistake), use this command to visit the file you really want.

With non-nil prefix argument AS-DIRECTORY do `dired' on the file-name."
  (interactive)
       (setq as-directory current-prefix-arg)
       (let ((file buffer-file-name)
             (obuf (current-buffer))
             (ofile buffer-file-name)
             (onum buffer-file-number)
             (otrue buffer-file-truename)
             (oname (buffer-name))
             file-name file-dir)
           (or filename
               (and file
                    (setq file-name (file-name-nondirectory file)
                          file-dir (file-name-directory file))
                    nil)
               (setq filename (read-file-name (concat "Find alternate "
                                                   (if as-directory "(dired): " "file: "))
                                              file-dir nil nil file-name)))
           (and (buffer-modified-p) (buffer-file-name)
       ;;       (not buffer-read-only)
                (not (yes-or-no-p (format "Buffer %s is modified, kill anyway? "
                                          (buffer-name))))
                (error "Aborted"))
           (if (get-buffer " **lose**")
               (kill-buffer " **lose**"))
           (rename-buffer " **lose**")
           (unwind-protect
               (progn
                   (unlock-buffer)
                   (setq buffer-file-name nil)
                   (setq buffer-file-number nil)
                   (setq buffer-file-truename nil)
                   (if as-directory
                       (dired filename)
                       (find-file filename))
               (cond (
                   (eq obuf (current-buffer))
                   (setq buffer-file-name ofile)
                      (setq buffer-file-number onum)
                      (setq buffer-file-truename otrue)
                      (lock-buffer)
                      (rename-buffer oname))))
           (or (eq (current-buffer) obuf)
               (kill-buffer obuf)))))

Ehud.


- -- 
 Ehud Karni           Tel: +972-3-7966-561  /"\
 Mivtach - Simon      Fax: +972-3-7966-667  \ /  ASCII Ribbon Campaign
 Insurance agencies   (USA) voice mail and   X   Against   HTML   Mail
 http://www.mvs.co.il  FAX:  1-815-5509341  / \
 mailto:ehud@unix.mvs.co.il                  Better  Safe  Than  Sorry
-----BEGIN PGP SIGNATURE-----
Comment: use http://www.keyserver.net/ to get my key (and others)

iD4DBQE+ZlsnLFvTvpjqOY0RAr03AJ9YLLiL866oq4weVk8uA/LirQfHxwCVEQaV
vAzXxqidzRRm/tXNQOoLAg==
=u/9s
-----END PGP SIGNATURE-----