From dd0531b9da8ed7cc83b19f4fa4f5825d924728ca Mon Sep 17 00:00:00 2001
From: malc <av1474@comtv.ru>
Date: Sat, 3 Mar 2012 12:16:54 +0400
Subject: [PATCH] Move L to ctrl-p

---
 KEYS    | 2 +-
 main.ml | 6 +++---
 2 files changed, 4 insertions(+), 4 deletions(-)

diff --git a/KEYS b/KEYS
index 53af52c..fe2fca3 100644
--- a/KEYS
+++ b/KEYS
@@ -41,7 +41,7 @@ z                       - crop
 r                       - reload document
 P                       - "presentation" mode
 a                       - autoscroll
-L                       - launch a command with the document path as an argument
+ctrl-p                  - launch a command with the document path as an argument
 <,>                     - rotate
 [,]                     - decrease/increase page brightness
 Ctrl-g                  - interrupt search
diff --git a/main.ml b/main.ml
index 9d86b35..82fdec5 100644
--- a/main.ml
+++ b/main.ml
@@ -4549,6 +4549,9 @@ let viewkeyboard key mask =
           else state.autoscroll <- Some conf.autoscrollstep
       end
 
+  | 112 when ctrl ->                    (* ctrl-p *)
+      launchpath ()
+
   | 80 ->                               (* P *)
       conf.presentation <- not conf.presentation;
       if conf.presentation
@@ -4768,9 +4771,6 @@ let viewkeyboard key mask =
       state.anchor <- getanchor ();
       opendoc state.path state.password
 
-  | 76 ->                               (* L *)
-      launchpath ()
-
   | 118 when conf.debug ->              (* v *)
       state.rects <- [];
       List.iter (fun l ->
-- 
2.11.4.GIT