Changeset 3372

Timestamp:

07/24/04 11:07:46 (4 years ago)

Author:

miyoshi

Message:

(dired-view-command-alist): New alist from Emacs CVS
HEAD.

Files:

• branches/2.1/lisp/ChangeLog.Meadow (modified) (1 diff)
• branches/2.1/lisp/dired.el (modified) (1 diff)

branches/2.1/lisp/ChangeLog.Meadow

@@ +1 @@
+2004-07-24  MIYOSHI Masanori  <miyoshi@meadowy.org>
+
+        * dired.el (dired-view-command-alist): New alist from Emacs CVS
+        HEAD.
+
-2004-07-16  Masayuki Fujii  <boochang@m4.kcn.ne.jp>
-

branches/2.1/lisp/dired.el

@@ -188 +188 @@
-;; Note this can't simply be run inside function `dired-ls' as the hook
-;; functions probably depend on the dired-subdir-alist to be OK.
+
+(defcustom dired-view-command-alist
+  '(("[.]\\(ps\\|ps_pages\\|eps\\)\\'" . "gv -spartan -color -watch %s")
+    ("[.]pdf\\'" . "xpdf %s")
+    ("[.]\\(jpe?g\\|gif\\|png\\)\\'" . "eog %s")
+    ("[.]dvi\\'" . "xdvi -sidemargin 0.5 -topmargin 1 %s"))
+  "Alist specifying how to view special types of files.
+Each element has the form (REGEXP . SHELL-COMMAND).
+When the file name matches REGEXP, `dired-view-file'
+invokes SHELL-COMMAND to view the file, processing it through `format'.
+Use `%s' in SHELL-COMMAND to specify where to put the file name."
+  :group 'dired
+  :type '(alist :key-type regexp :value-type string)
+  :version "21.4")
-
-;;; Internal variables