emacs-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[Emacs-diffs] trunk r114464: * doc-view.el (doc-view-scale-reset): Renam


From: Tassilo Horn
Subject: [Emacs-diffs] trunk r114464: * doc-view.el (doc-view-scale-reset): Rename from
Date: Fri, 27 Sep 2013 06:47:27 +0000
User-agent: Bazaar (2.6b2)

------------------------------------------------------------
revno: 114464
revision-id: address@hidden
parent: address@hidden
committer: Tassilo Horn <address@hidden>
branch nick: trunk
timestamp: Fri 2013-09-27 08:46:49 +0200
message:
  * doc-view.el (doc-view-scale-reset): Rename from
  `doc-view-reset-zoom-level'.
  (doc-view-scale-adjust): New command.
  (doc-view-mode-map): Remap `text-scale-adjust' bindings to
  `doc-view-scale-adjust'.
modified:
  lisp/ChangeLog                 changelog-20091113204419-o5vbwnq5f7feedwu-1432
  lisp/doc-view.el               docview.el-20091113204419-o5vbwnq5f7feedwu-6334
=== modified file 'lisp/ChangeLog'
--- a/lisp/ChangeLog    2013-09-26 19:05:50 +0000
+++ b/lisp/ChangeLog    2013-09-27 06:46:49 +0000
@@ -1,3 +1,11 @@
+2013-09-27  Tassilo Horn  <address@hidden>
+
+       * doc-view.el (doc-view-scale-reset): Rename from
+       `doc-view-reset-zoom-level'.
+       (doc-view-scale-adjust): New command.
+       (doc-view-mode-map): Remap `text-scale-adjust' bindings to
+       `doc-view-scale-adjust'.
+
 2013-09-26  Tassilo Horn  <address@hidden>
 
        * doc-view.el (doc-view-reset-zoom-level): New command.

=== modified file 'lisp/doc-view.el'
--- a/lisp/doc-view.el  2013-09-26 19:05:50 +0000
+++ b/lisp/doc-view.el  2013-09-27 06:46:49 +0000
@@ -407,9 +407,8 @@
     (define-key map "+"               'doc-view-enlarge)
     (define-key map "="               'doc-view-enlarge)
     (define-key map "-"               'doc-view-shrink)
-    (define-key map [remap text-scale-adjust] 'doc-view-enlarge)
-    (define-key map (kbd "C-x C--")   'doc-view-shrink)
-    (define-key map (kbd "C-x C-0")   'doc-view-reset-zoom-level)
+    (define-key map "0"               'doc-view-scale-reset)
+    (define-key map [remap text-scale-adjust] 'doc-view-scale-adjust)
     ;; Fit the image to the window
     (define-key map "W"               'doc-view-fit-width-to-window)
     (define-key map "H"               'doc-view-fit-height-to-window)
@@ -757,7 +756,7 @@
   (interactive (list doc-view-shrink-factor))
   (doc-view-enlarge (/ 1.0 factor)))
 
-(defun doc-view-reset-zoom-level ()
+(defun doc-view-scale-reset ()
   "Reset the document size/zoom level to the initial one."
   (interactive)
   (if (and doc-view-scale-internally
@@ -771,6 +770,24 @@
     (kill-local-variable 'doc-view-resolution)
     (doc-view-reconvert-doc)))
 
+(defun doc-view-scale-adjust (factor)
+  "Adjust the scale of the DocView page images by FACTOR.
+FACTOR defaults to `doc-view-shrink-factor'.
+
+The actual adjustment made depends on the final component of the
+key-binding used to invoke the command, with all modifiers removed:
+
+   +, =   Increase the image scale by FACTOR
+   -      Decrease the image scale by FACTOR
+   0      Reset the image scale to the initial scale"
+  (interactive (list doc-view-shrink-factor))
+  (let ((ev last-command-event)
+       (echo-keystrokes nil))
+    (pcase (event-basic-type ev)
+      ((or ?+ ?=) (doc-view-enlarge factor))
+      (?-         (doc-view-shrink factor))
+      (?0         (doc-view-scale-reset)))))
+
 (defun doc-view-fit-width-to-window ()
   "Fit the image width to the window width."
   (interactive)


reply via email to

[Prev in Thread] Current Thread [Next in Thread]