*** empty log message ***

3 files changed, 31 insertions, 18 deletions

diff --git a/lisp/term/bg-mouse.el b/lisp/term/bg-mouse.el
index c08ed9ed28d..4496f0ec4fe 100644
--- a/lisp/term/bg-mouse.el
+++ b/lisp/term/bg-mouse.el
@@ -1,13 +1,18 @@
 ;;; bg-mouse.el --- GNU Emacs code for BBN Bitgraph mouse.
 
+;; Author: John Robinson <jr@bbn-unix.arpa>
+;;      Stephen Gildea <gildea@bbn.com>
+;; Maintainer: FSF
+;; Last-Modified: 14 Jul 1992
+;; Keywords: hardware
+
 ;; Copyright (C) Free Software Foundation, Inc. Oct 1985.
-;; Time stamp <89/03/21 14:27:08 gildea>
 
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 1, or (at your option)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -19,9 +24,11 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
 
 ;;;  Original version by John Robinson (jr@bbn-unix.arpa, bbncca!jr), Oct 1985
 ;;;  Modularized and enhanced by gildea@bbn.com Nov 1987
+;;;  Time stamp <89/03/21 14:27:08 gildea>
 
 ;;;  User customization option:
 
@@ -62,9 +69,9 @@ To reinitialize the mouse if the terminal is reset, type ESC : RET"
   (interactive "P")
   (bg-get-tty-num semicolon)
   (let*
-      ((screen-mouse-x (min (1- (screen-width)) ;don't hit column 86!
+      ((screen-mouse-x (min (1- (frame-width))  ;don't hit column 86!
                             (/ (bg-get-tty-num semicolon) 9)))
-       (screen-mouse-y (- (1- (screen-height)) ;assume default font size.
+       (screen-mouse-y (- (1- (frame-height)) ;assume default font size.
                           (/ (bg-get-tty-num semicolon) 16))) 
        (bg-mouse-buttons (% (bg-get-tty-num ?c) 8))
        (bg-mouse-window (bg-window-from-x-y screen-mouse-x screen-mouse-y))
diff --git a/lisp/term/sun-mouse.el b/lisp/term/sun-mouse.el
index fad388337e8..ccd48d6af71 100644
--- a/lisp/term/sun-mouse.el
+++ b/lisp/term/sun-mouse.el
@@ -1,12 +1,16 @@
 ;;; sun-mouse.el --- mouse handling for Sun windows
 
+;; Author: Jeff Peck
+;; Maintainer: FSF
+;; Last-Modified: 14 Jul 1992
+
 ;; Copyright (C) 1987 Free Software Foundation, Inc.
 
 ;; This file is part of GNU Emacs.
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 1, or (at your option)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -18,6 +22,8 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Commentary:
+
 ;;; Jeff Peck, Sun Microsystems, Jan 1987.
 ;;; Original idea by Stan Jefferson
 
@@ -34,6 +40,8 @@
 ;;;   extra-click-wait, scrollbar-width
 ;;;
 
+;;; Code:
+
 (defvar extra-click-wait 150
   "*Number of milliseconds to wait for an extra click.
 Set this to zero if you don't want chords or double clicks.")
diff --git a/lisp/term/sup-mouse.el b/lisp/term/sup-mouse.el
index be7e7f0ff4d..86e7c6eed9c 100644
--- a/lisp/term/sup-mouse.el
+++ b/lisp/term/sup-mouse.el
@@ -1,15 +1,11 @@
-;;; sup-mouse.el --- GNU Emacs code for lambda/supdup mouse
-
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
-;;                                                                           ;;
-;;      File:     sup-mouse.el                                               ;;
-;;      Author:   Wolfgang Rupprecht                                         ;;
-;;      Created:  Fri Nov 21 19:22:22 1986                                   ;;
-;;      Contents: supdup mouse support for lisp machines                     ;;
-;;                                                                           ;;
-;;     (from code originally written by John Robinson@bbn for the bitgraph)  ;;
-;;                                                                           ;;
-;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;; sup-mouse.el --- supdup mouse support for lisp machines
+
+;; Author: Wolfgang Rupprecht
+;; Maintainer: FSF
+;; Created: 21 Nov 1986
+;; Last-Modified: 16 Mar 1992
+
+;;     (from code originally written by John Robinson@bbn for the bitgraph)
 
 ;; Copyright (C) Free Software Foundation 1985, 1986
 
@@ -17,7 +13,7 @@
 
 ;; GNU Emacs is free software; you can redistribute it and/or modify
 ;; it under the terms of the GNU General Public License as published by
-;; the Free Software Foundation; either version 1, or (at your option)
+;; the Free Software Foundation; either version 2, or (at your option)
 ;; any later version.
 
 ;; GNU Emacs is distributed in the hope that it will be useful,
@@ -29,6 +25,8 @@
 ;; along with GNU Emacs; see the file COPYING.  If not, write to
 ;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
 
+;;; Code:
+
 ;;;  User customization option:
 
 (defvar sup-mouse-fast-select-window nil