Remove now-inaccurate bytecode comments

[gnu-emacs] / lisp / mouse.el

diff --git a/lisp/mouse.el b/lisp/mouse.el
index 135e1f5d71fab933e15066067bbb0d44bae5486e..75b13c4409c66842bb1abfbcbea3e2e7331177a3 100644 (file)
--- a/lisp/mouse.el
+++ b/lisp/mouse.el
@@ -34,6 +34,11 @@
 ;; Indent track-mouse like progn.
 (put 'track-mouse 'lisp-indent-function 0)
 
+(defgroup mouse nil
+  "Input from the mouse."  ;; "Mouse support."
+  :group 'environment
+  :group 'editing)
+
 (defcustom mouse-yank-at-point nil
   "If non-nil, mouse yank commands yank at point instead of at click."
   :type 'boolean
@@ -542,9 +547,10 @@ must be one of the symbols `header', `mode', or `vertical'."
   "Effect of selecting a region extending backward from double click.
 Nil means keep point at the position clicked (region end);
 non-nil means move point to beginning of region."
-  :version "25.2"
   :type '(choice (const :tag "Don't move point" nil)
-                (const :tag "Move point to beginning of region" t)))
+                (const :tag "Move point to beginning of region" t))
+  :group 'mouse
+  :version "25.2")
 
 (defun mouse-set-point (event &optional promote-to-region)
   "Move point to the position clicked on with the mouse.
@@ -1638,8 +1644,8 @@ and selects that window."
              (let ((others-list
                     (mouse-buffer-menu-alist
                      ;; we don't need split-by-major-mode any more,
-                     ;; so we can ditch it with nconc.
-                     (apply 'nconc (mapcar 'cddr split-by-major-mode)))))
+                     ;; so we can ditch it with nconc (mapcan).
+                     (mapcan 'cddr split-by-major-mode))))
                (and others-list
                     (setq subdivided-menus
                           (cons (cons "Others" others-list)