From e5cadbd35888ef77ad20e5ea92e82156c249771e Mon Sep 17 00:00:00 2001
From: Michael Witten <mfwitten@gmail.com>
Date: Wed, 3 Oct 2012 21:32:44 +0000
Subject: [PATCH] Zooming: `Ctrl-=' as an alias for `Ctrl-+'

On many keyboards, `-' and `+' are not symmetrical; while `-' requires
only one key to be pressed, `+' requires 2 keys: `Shift' and `='.

Consequently, zooming in is `Ctrl--', but zooming out is `Ctrl-Shift-='.
This commit includes `Ctrl-=' as an alternative for zooming out.
---
 KEYS    | 3 ++-
 main.ml | 2 +-
 2 files changed, 3 insertions(+), 2 deletions(-)

diff --git a/KEYS b/KEYS
index a8e208b..5c3bf57 100644
--- a/KEYS
+++ b/KEYS
@@ -47,7 +47,8 @@ Ctrl-p                  - launch a command with the document path as an argument
 <,>                     - rotate
 [,]                     - decrease/increase page brightness
 Ctrl-g                  - interrupt search
-Ctrl-+/-                - zoom in/out
+Ctrl-+  or  Ctrl-=      - zoom in
+Ctrl--                  - zoom out
 Ctrl-0                  - fit page width and reset panning
 Ctrl-1                  - fit page height
 Ctrl-2                  - zoom to ...
diff --git a/main.ml b/main.ml
index c80a4cd..63a8fa0 100644
--- a/main.ml
+++ b/main.ml
@@ -4713,7 +4713,7 @@ let viewkeyboard key mask =
       enttext (s, "", Some (onhist state.hists.pat),
               textentry, ondone (key = 47), true)
 
-  | 43 | 0xffab when ctrl ->            (* ctrl-+ *)
+  | 43 | 0xffab | 61 when ctrl ->       (* ctrl-+  or  ctrl-=*)
       let incr = if conf.zoom +. 0.01 > 0.1 then 0.1 else 0.01 in
       setzoom (conf.zoom +. incr)
 
-- 
2.11.4.GIT