feature request for desktop.el

[Matt Swift]

This bug report will be sent to the Free Software Foundation,
 not to your local site managers!!
Please write in English, because the Emacs maintainers do not have
translators to read other languages for them.

In GNU Emacs 20.7.2 (i386-debian-linux-gnu, X toolkit)
 of Tue Jul 25 2000 on raven
configured using `configure  i386-debian-linux-gnu --prefix=/usr 
--sharedstatedir=/var/lib --libexecdir=/usr/lib --localstatedir=/var/lib 
--infodir=/usr/share/info --with-pop=yes --with-x=yes --with-x-toolkit=yes'

Please describe exactly what actions triggered the bug
and the precise symptoms of the bug:

Hello,

I would like to suggest a modification of the function `desktop-save' in
desktop.el to supply a default directory of `desktop-dirname' rather than the
value currently supplied by the "D" parameter to `interactive', which is
`default-directory' for the current buffer.

The natural default is `desktop-dirname'.  You can see that from a theoretical
point of view, the default value of the global concept of a desktop state
should not be taken from a buffer-local variable, such as `default-directory'.

The relevant line in `desktop-save' is:

  (interactive "DDirectory to save desktop file in: ")

Something like the following seems appropriate:

  (interactive (list (read-string "Directory to save desktop file in [~/]: " (or
  desktop-dirname "~/") nil "~/")))



Recent input:
a v e SPC d e s k t o p - d i r n a m e C-s C-s C-a 
C-p C-p C-p C-SPC C-n C-n C-n C-n C-n C-n C-n C-n C-n 
C-p M-w M-x s u b m i t - e m tab backspace backspace 
backspace backspace backspace backspace backspace backspace 
backspace e m tab a c s - b u g tab M-backspace M-backspace 
b u g tab tab C-h a b u g return M-1 C-h a b u g return 
M-x r e p o r t - e m tab return

Recent messages:
TRACE current buffer desktop.el
Mark set
Mark saved where search started
Mark set
Making completion list...
Quit
Type C-x 4 b RET to restore the other window.  M-C-v to scroll the help.
Type C-x 1 to remove help window.  M-C-v to scroll the help.
Loading emacsbug...
Loading emacsbug...done
None