[elpa] externals/adaptive-wrap 07e03a8 08/15: * adaptive-wrap.el: Fix bug#14974 by using define-key-after

[Stefan Monnier]

branch: externals/adaptive-wrap
commit 07e03a8fd70ccae283d96280bb6af611dc98a047
Author: Stephen Berman <stephen.berman@gmx.net>
Commit: Stephen Berman <stephen.berman@gmx.net>

    * adaptive-wrap.el: Fix bug#14974 by using define-key-after
    instead of easy-menu-add-item.
    (adaptive-wrap-unload-function): Remove.
---
 adaptive-wrap.el | 28 ++++++++--------------------
 1 file changed, 8 insertions(+), 20 deletions(-)

diff --git a/adaptive-wrap.el b/adaptive-wrap.el
index a81990e..3787a99 100644
--- a/adaptive-wrap.el
+++ b/adaptive-wrap.el
@@ -4,7 +4,7 @@
 
 ;; Author: Stephen Berman <stephen.berman@gmx.net>
 ;;         Stefan Monnier <monnier@iro.umontreal.ca>
-;; Version: 0.4
+;; Version: 0.5
 
 ;; 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
@@ -103,25 +103,13 @@ extra indent = 2
         (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"))
+(define-key-after (lookup-key menu-bar-options-menu [line-wrapping])
+  [adaptive-wrap]
+  '(menu-item "Adaptive Wrap" adaptive-wrap-prefix-mode
+             :visible (menu-bar-menu-frame-live-and-visible-p)
+             :help "Show wrapped long lines with an adjustable prefix"
+             :button (:toggle . (bound-and-true-p adaptive-wrap-prefix-mode)))
+  word-wrap)
 
 (provide 'adaptive-wrap)
 ;;; adaptive-wrap.el ends here