[Emacs-diffs] emacs etc/TODO lisp/ChangeLog lisp/simple.el

[Juri Linkov]

CVSROOT:        /sources/emacs
Module name:    emacs
Changes by:     Juri Linkov <jurta>     09/11/11 00:11:44

Modified files:
        etc            : TODO 
        lisp           : ChangeLog simple.el 

Log message:
        (dired-get-filename)<declare-function>:
        Tell the byte-compiler about dired-get-filename.
        (shell-command): In Dired mode, get filename from the current line
        as the default value.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/emacs/etc/TODO?cvsroot=emacs&r1=1.213&r2=1.214
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/ChangeLog?cvsroot=emacs&r1=1.16591&r2=1.16592
http://cvs.savannah.gnu.org/viewcvs/emacs/lisp/simple.el?cvsroot=emacs&r1=1.1022&r2=1.1023

Patches:
Index: etc/TODO
===================================================================
RCS file: /sources/emacs/emacs/etc/TODO,v
retrieving revision 1.213
retrieving revision 1.214
diff -u -b -r1.213 -r1.214
--- etc/TODO    25 Sep 2009 03:24:52 -0000      1.213
+++ etc/TODO    11 Nov 2009 00:11:40 -0000      1.214
@@ -112,8 +112,6 @@
 
 ** Add function to redraw the tool bar.
 
-** M-! M-n should fetch the buffer-file-name as the default.
-
 ** Redesign the load-history data structure so it can cope better
   with evaluating definitions of the same function from different files,
   recording which file the latest definition came from.

Index: lisp/ChangeLog
===================================================================
RCS file: /sources/emacs/emacs/lisp/ChangeLog,v
retrieving revision 1.16591
retrieving revision 1.16592
diff -u -b -r1.16591 -r1.16592
--- lisp/ChangeLog      10 Nov 2009 08:11:47 -0000      1.16591
+++ lisp/ChangeLog      11 Nov 2009 00:11:41 -0000      1.16592
@@ -1,3 +1,10 @@
+2009-11-11  Juri Linkov  <address@hidden>
+
+       * simple.el (dired-get-filename)<declare-function>:
+       Tell the byte-compiler about dired-get-filename.
+       (shell-command): In Dired mode, get filename from the current line
+       as the default value.
+
 2009-11-10  Glenn Morris  <address@hidden>
 
        * dired.el, hi-lock.el, calendar/cal-menu.el, calendar/calendar.el:

Index: lisp/simple.el
===================================================================
RCS file: /sources/emacs/emacs/lisp/simple.el,v
retrieving revision 1.1022
retrieving revision 1.1023
diff -u -b -r1.1022 -r1.1023
--- lisp/simple.el      30 Oct 2009 02:00:30 -0000      1.1022
+++ lisp/simple.el      11 Nov 2009 00:11:44 -0000      1.1023
@@ -2013,6 +2013,7 @@
 stdout will be intermixed in the output stream.")
 
 (declare-function mailcap-file-default-commands "mailcap" (files))
+(declare-function dired-get-filename "dired" (&optional localp 
no-error-if-not-filep))
 
 (defun minibuffer-default-add-shell-commands ()
   "Return a list of all commands associated with the current file.
@@ -2136,8 +2137,12 @@
   (interactive
    (list
     (read-shell-command "Shell command: " nil nil
-                       (and buffer-file-name
-                            (file-relative-name buffer-file-name)))
+                       (let ((filename
+                              (cond
+                               (buffer-file-name)
+                               ((eq major-mode 'dired-mode)
+                                (dired-get-filename nil t)))))
+                         (and filename (file-relative-name filename))))
     current-prefix-arg
     shell-command-default-error-buffer))
   ;; Look for a handler in case default-directory is a remote file name.