[elpa] externals/lentic a5a001f999 183/333: Lentic-mode menu corrected and extended.

[ELPA Syncer]

branch: externals/lentic
commit a5a001f999ccb77c874367cba54660229101a048
Author: Phillip Lord <phillip.lord@newcastle.ac.uk>
Commit: Phillip Lord <phillip.lord@newcastle.ac.uk>

    Lentic-mode menu corrected and extended.
    
    The swap menu item was not working, and the short-cut key for
    "right" clashed with senator. Those commands with create a new
    lentic are now disabled when a lentic already exists.
---
 README.md      |  4 ++++
 lentic-mode.el | 15 ++++++++++-----
 2 files changed, 14 insertions(+), 5 deletions(-)

diff --git a/README.md b/README.md
index 1d5ba38490..30ab767520 100644
--- a/README.md
+++ b/README.md
@@ -15,6 +15,10 @@ Previously, lentic was known as linked-buffer.
 
 - haskell->latex support added
 
+#### Bug Fix
+
+- "swap" menu item now functional
+
 ### 0.6.1
 
 #### Bug Fix
diff --git a/lentic-mode.el b/lentic-mode.el
index db36b622d2..c0bec9a1e2 100644
--- a/lentic-mode.el
+++ b/lentic-mode.el
@@ -143,11 +143,16 @@ A and B are the buffers."
 (easy-menu-change
  '("Edit")
  "Lentic"
- '(["Create Here" lentic-mode-create-in-selected-window]
-   ["Split Below" lentic-mode-split-window-below]
-   ["Split Right" lentic-mode-split-window-right]
+ '(["Create Here" lentic-mode-create-in-selected-window
+    :active (not lentic-config)]
+   ["Split Below" lentic-mode-split-window-below
+    :active (not lentic-config)]
+   ["Split Right" lentic-mode-split-window-right
+    :active (not lentic-config)]
+   ["Insert File Local" lentic-mode-insert-file-local
+    :active (not lentic-config)]
    ["Move Here" lentic-mode-move-lentic-window :active lentic-config]
-   ["Swap" lentic-mode-swap-buffer-windows :active lentic-config]))
+   ["Swap" lentic-mode-swap-lentic-window :active lentic-config]))
 
 ;;;###autoload
 (defun lentic-mode-insert-file-local (init-function)
@@ -175,7 +180,7 @@ A and B are the buffers."
   (kbd "C-c ,b") 'lentic-mode-split-window-below)
 
 (define-key lentic-start-mode-map
-  (kbd "C-c ,r") 'lentic-mode-split-window-right)
+  (kbd "C-c ,t") 'lentic-mode-split-window-right)
 
 (define-key lentic-start-mode-map
   (kbd "C-c ,f") 'lentic-mode-insert-file-local)