Re: [patch] 21.3 dired.el direx-aux.el dired-read-shell-command and default values

[Jari Aalto+mail.linux]

* Mon 2004-02-09 Kevin Rodgers <ihs_4664 <AT> yahoo.com> gnu.emacs.bug
* 
<http://groups.google.com/groups?oi=djq&as_umsgid=%3Cmailman.2134.1076352719.928.bug-gnu-emacs@gnu.org>
| Dan can get the behavior he desires by installing dired-x as documented
| and adding a ("\\.pod\\'" "perldoc") entry to dired-guess-shell-alist-user.
| 
| If it is a bug that this is not configured by default, then you should
| just patch dired-x.el and add that entry to dired-guess-shell-alist-default,
| instead of defining a new variable and hacking up dired-aux.el.

Didn't know about dired-x's feature. OK, here is the correct patch
against 21.3

Jari


2004-03-24 Wed  Jari Aalto  <jari.aalto <AT> poboxes.com>

        * dired-x.el (dired-guess-shell-alist-default):
        Added Perl .pod support.

Index: dired-x.el
===================================================================
RCS file: 
/cygdrive/h/data/version-control/cvsroot/emacs/gnu-emacs/lisp213/dired-x.el,v
retrieving revision 1.1.1.1
diff -u -IId: -u -b -w -r1.1.1.1 dired-x.el
--- dired-x.el  26 Jun 2003 18:06:08 -0000      1.1.1.1
+++ dired-x.el  24 Mar 2004 11:28:28 -0000
@@ -961,7 +961,7 @@
          ;; Optional conversion to gzip format.
          '(concat "znew" (if dired-guess-shell-gzip-quiet " -q")
                   " " dired-guess-shell-znew-switches))
-
+   '("\\.pod$" "perldoc")               ; Perl documentation
    '("\\.dvi$" "xdvi" "dvips")          ; preview and printing
    '("\\.au$" "play")                   ; play Sun audiofiles
    '("\\.mpg$" "mpeg_play")




-- 
http://tiny-tools.sourceforge.net/
Swatch @time   http://www.mir.com.my/iTime/itime.htm
               http://www.ryanthiessen.com/swatch/resources.htm
Use Licenses!  http://www.linuxjournal.com/article.php?sid=6225
Which Licence? http://www.linuxjournal.com/article.php?sid=4825
OSI Licences   http://www.opensource.org/licenses/