[nongnu] elpa/dart-mode 89a2d4e 100/192: Add a special mode for popups

[ELPA Syncer]

branch: elpa/dart-mode
commit 89a2d4e7c8659b4c4e2cf127998fa5316a042307
Author: Natalie Weizenbaum <nex342@gmail.com>
Commit: Natalie Weizenbaum <nex342@gmail.com>

    Add a special mode for popups
---
 dart-mode.el | 30 +++++++++++++++++++++++++++---
 1 file changed, 27 insertions(+), 3 deletions(-)

diff --git a/dart-mode.el b/dart-mode.el
index 2788163..a3d183e 100644
--- a/dart-mode.el
+++ b/dart-mode.el
@@ -1093,9 +1093,7 @@ minibuffer."
                      (with-current-buffer-window
                       "*Dart Analysis*" nil nil
                       (insert text)
-                      ;; We should really create our own mode, but this will do
-                      ;; in a pinch.
-                      (help-mode))
+                      (dart-popup-mode))
                    (message "%s" text)))))))))))
 
 (defconst dart--highlight-keyword-re
@@ -1268,6 +1266,7 @@ to add a header and otherwise prepare it for displaying 
results."
                  (total-results 0))
     (with-current-buffer-window
      "*Dart Search*" nil nil
+     (dart-popup-mode)
      (setq buffer (current-buffer))
      (apply callback nil)
      (setq beginning-of-results (point))
@@ -1328,6 +1327,31 @@ to add a header and otherwise prepare it for displaying 
results."
     (goto-char (+ 1 offset))
     (dart--flash-highlight offset length)))
 
+
+;;; Popup Mode
+
+(define-derived-mode dart-popup-mode fundamental-mode "DartPopup"
+  "Major mode for popups."
+  :mode 'dart-popup
+  (use-local-map dart-popup-mode-map))
+
+(put 'dart-popup-mode 'mode-class 'special)
+
+(defvar dart-popup-mode-map (make-sparse-keymap)
+  "Keymap used in Dart popup buffers.")
+(set-keymap-parent dart-popup-mode-map help-mode-map)
+
+;; Unbind help-specific keys.
+(define-key dart-popup-mode-map (kbd "RET") nil)
+(define-key dart-popup-mode-map (kbd "l") nil)
+(define-key dart-popup-mode-map (kbd "r") nil)
+(define-key dart-popup-mode-map (kbd "<XF86Back>") nil)
+(define-key dart-popup-mode-map (kbd "<XF86Forward>") nil)
+(define-key dart-popup-mode-map (kbd "<mouse-2>") nil)
+(define-key dart-popup-mode-map (kbd "C-c C-b") nil)
+(define-key dart-popup-mode-map (kbd "C-c C-c") nil)
+(define-key dart-popup-mode-map (kbd "C-c C-f") nil)
+
 ;;; Formatting
 
 (defcustom dartfmt-command "dartfmt"