From 5b549c31a7863fb45ff175879337d14059a5ddbe Mon Sep 17 00:00:00 2001 From: Glenn Morris Date: Tue, 30 Oct 2007 06:31:50 +0000 Subject: [PATCH] Tassilo Horn (ps-mode-map): Enable doc-view-minor-mode. --- lisp/ChangeLog | 27 +++++++++++++++++++++++++++ lisp/progmodes/ps-mode.el | 5 ++++- 2 files changed, 31 insertions(+), 1 deletion(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 37216ca9c0e..200c3776cfa 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,30 @@ +2007-10-30 Tassilo Horn + + * 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 * emacs-lisp/bytecomp.el (byte-compile-disable-warning) diff --git a/lisp/progmodes/ps-mode.el b/lisp/progmodes/ps-mode.el index c791e217ccb..c131575f57c 100644 --- a/lisp/progmodes/ps-mode.el +++ b/lisp/progmodes/ps-mode.el @@ -529,7 +529,10 @@ Typing \\\\[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." -- 2.39.2