[ELPA-diffs] elpa r417: * adaptive-wrap.el (menu-bar-options-menu): Add checkbox for Adaptive Wrap

[Stephen Berman]

------------------------------------------------------------
revno: 417
revision-id: address@hidden
parent: address@hidden
author: Rüdiger Sonderfeld <address@hidden>
committer: Stephen Berman <address@hidden>
branch nick: elpa
timestamp: Fri 2013-07-19 14:43:48 +0200
message:
  * adaptive-wrap.el (menu-bar-options-menu): Add checkbox for Adaptive Wrap
  to the Line Wrapping submenu.
  (adaptive-wrap-unload-function): New function.
modified:
  packages/adaptive-wrap/adaptive-wrap.el 
awpmode.el-20111125144856-uveole7rrkcku37u-2

=== modified file 'packages/adaptive-wrap/adaptive-wrap.el'
--- a/packages/adaptive-wrap/adaptive-wrap.el   2013-01-31 16:09:34 +0000
+++ b/packages/adaptive-wrap/adaptive-wrap.el   2013-07-19 12:43:48 +0000
@@ -1,10 +1,10 @@
 ;;; adaptive-wrap.el --- Smart line-wrapping with wrap-prefix
 
-;; Copyright (C) 2011, 2012  Free Software Foundation, Inc.
+;; Copyright (C) 2011-2013  Free Software Foundation, Inc.
 
 ;; Author: Stephen Berman <address@hidden>
 ;;         Stefan Monnier <address@hidden>
-;; Version: 0.2
+;; Version: 0.3
 
 ;; This program is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
@@ -101,5 +101,25 @@
         (widen)
         (remove-text-properties (point-min) (point-max) '(wrap-prefix nil))))))
 
+;;;###autoload
+(easy-menu-add-item menu-bar-options-menu
+                    '("Line Wrapping in This Buffer")
+                    ["Adaptive Wrap"
+                     (lambda ()
+                       (interactive)
+                      (if adaptive-wrap-prefix-mode
+                          (adaptive-wrap-prefix-mode -1)
+                        (adaptive-wrap-prefix-mode 1)))
+                     :visible (menu-bar-menu-frame-live-and-visible-p)
+                     :help "Show wrapped long lines with an adjustable prefix"
+                     :style toggle
+                     :selected adaptive-wrap-prefix-mode])
+
+(defun adaptive-wrap-unload-function ()
+  "Cleanup adaptive-wrap package."
+  (easy-menu-remove-item menu-bar-options-menu
+                         '("Line Wrapping in This Buffer")
+                         "Adaptive Wrap"))
+
 (provide 'adaptive-wrap)
 ;;; adaptive-wrap.el ends here