Tassilo Horn <tassilo at member.fsf.org>

(ps-mode-map): Enable doc-view-minor-mode.

diff --git a/lisp/ChangeLog b/lisp/ChangeLog
index 37216ca9c0ee010d47bdf6bf7149c2d15eda90a2..200c3776cfaa21ef9c035938035ce27fb234678b 100644 (file)
--- a/lisp/ChangeLog
+++ b/lisp/ChangeLog
@@ -1,3 +1,30 @@
+2007-10-30  Tassilo Horn  <tassilo@member.fsf.org>
+
+       * doc-view.el: Remove cl-dependency.
+       (doc-view-buffer-message): Mention new binding K.
+       (doc-view-convert-current-doc): Use function d-v-current-cache-dir
+       instead of variable.
+       (doc-view-current-cache-dir): Better cache dir naming.
+       (doc-view-current-display): Remove variable.
+       (doc-view-edit-doc, doc-view-display-maybe): Remove functions.
+       (doc-view-kill-proc): Set converter process to nil.
+       (doc-view-minor-mode): New minor mode.
+       (doc-view-minor-mode-map): New keymap.
+       (doc-view-mode): Remove text/image switching code.  Use plain defun.
+       (doc-view-mode-map): New binding K kills converter process.
+       Remove C-c C-e binding.
+       (doc-view-mode-text-map): Remove keymap.
+       (doc-view-pdf/ps->png): Timer calls d-v-display instead of
+       d-v-display-maybe.
+       (doc-view-previous-major-mode): New variable.
+       (doc-view-ps->pdf): Resort args to make ps2pdf happy.
+       (doc-view-remove-if): New function.
+       (doc-view-search-next-match, doc-view-search-previous-match): Use it.
+       (doc-view-toggle-display): Toggle modes instead of display styles.
+       (doc-view-reconvert-doc): Adapt to new way of doing things.
+
+       * progmodes/ps-mode.el (ps-mode-map): Enable doc-view-minor-mode.
+
 2007-10-30  Glenn Morris  <rgm@gnu.org>
 
        * emacs-lisp/bytecomp.el (byte-compile-disable-warning)

diff --git a/lisp/progmodes/ps-mode.el b/lisp/progmodes/ps-mode.el
index c791e217ccbfb2db8026325ec140b5fa791bbcee..c131575f57c3f19a7fd3f59bc4c6f76d2768213b 100644 (file)
--- a/lisp/progmodes/ps-mode.el
+++ b/lisp/progmodes/ps-mode.el
@@ -529,7 +529,10 @@ Typing \\<ps-run-mode-map>\\[ps-run-goto-error] when the cursor is at the number
         t))
   (set (make-local-variable 'comment-start) "%")
   ;; NOTE: `\' has a special meaning in strings only
-  (set (make-local-variable 'comment-start-skip) "%+[ \t]*"))
+  (set (make-local-variable 'comment-start-skip) "%+[ \t]*")
+  ;; enable doc-view-minor-mode => C-c C-c starts viewing the current ps file
+  ;; with doc-view-mode.
+  (doc-view-minor-mode 1))
 
 (defun ps-mode-show-version ()
   "Show current version of PostScript mode."