emacs-pretest-bug
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: find-alternate-file: void dired-directory


From: Markus Rost
Subject: Re: find-alternate-file: void dired-directory
Date: Wed, 12 Feb 2003 17:01:02 -0500 (EST)

Now that has been fixed already, but in a different way, see below.

I think one can leave the current fix, although now
find-alternate-file will always set dired-directory with setq to nil,
without a defvar and a doc.

If you wish, I will install the autoload cookie anyway.  Otherwise
just forget about the topic and this mail.



   From: Richard Stallman <address@hidden>
   CC: address@hidden
   Reply-to: address@hidden
   Date: Wed, 12 Feb 2003 15:32:52 -0500

       I am not sure how to fix this.  Defvar dired-directory in files.el?
       Autoload dired-directory?

   That is a good solution.  With an autoload cookie on that variable,
   it will always be defined.



2003-02-12  Karl Chen  <address@hidden>  (tiny change)

        * files.el (find-alternate-file): Check whether `dired-directory'
        is bound.

----------------------------
revision 1.634
date: 2003/02/12 09:25:22;  author: lektu;  state: Exp;  lines: +1 -1
(find-alternate-file): Check whether `dired-directory' is bound.
----------------------------

===Buffer *vc-diff*=========================================
Index: files.el
===================================================================
RCS file: /cvsroot/emacs/emacs/lisp/files.el,v
retrieving revision 1.633
retrieving revision 1.634
diff -c -r1.633 -r1.634
*** files.el    4 Feb 2003 10:40:14 -0000       1.633
--- files.el    12 Feb 2003 09:25:22 -0000      1.634
***************
*** 940,946 ****
    (let ((obuf (current-buffer))
        (ofile buffer-file-name)
        (onum buffer-file-number)
!       (odir dired-directory)
        (otrue buffer-file-truename)
        (oname (buffer-name)))
      (if (get-buffer " **lose**")
--- 940,946 ----
    (let ((obuf (current-buffer))
        (ofile buffer-file-name)
        (onum buffer-file-number)
!       (odir (bound-and-true-p dired-directory))
        (otrue buffer-file-truename)
        (oname (buffer-name)))
      (if (get-buffer " **lose**")

============================================================





reply via email to

[Prev in Thread] Current Thread [Next in Thread]