Mercurial > emacs

comparison lisp/mouse.el @ 37741:7b449aec29d2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(mouse-delete-other-windows): Doc fix.
author Gerd Moellmann <gerd@gnu.org>
date Tue, 15 May 2001 13:16:59 +0000
parents 0d7ea691acc4
children 3cf8f8ea6d0e
comparison
equal deleted inserted replaced
37740:d0ece64f6964 37741:7b449aec29d2
1 ;;; mouse.el --- window system-independent mouse support 1 ;;; mouse.el --- window system-independent mouse support
2 2
3 ;; Copyright (C) 1993, 1994, 1995, 1999, 2000 Free Software Foundation, Inc. 3 ;; Copyright (C) 1993, 1994, 1995, 1999, 2000, 2001
4 ;; Free Software Foundation, Inc.
4 5
5 ;; Maintainer: FSF 6 ;; Maintainer: FSF
6 ;; Keywords: hardware, mouse 7 ;; Keywords: hardware, mouse
7 8
8 ;; This file is part of GNU Emacs. 9 ;; This file is part of GNU Emacs.
262 (select-frame frame) 263 (select-frame frame)
263 (switch-to-buffer buf) 264 (switch-to-buffer buf)
264 (delete-window window))) 265 (delete-window window)))
265 266
266 (defun mouse-delete-other-windows () 267 (defun mouse-delete-other-windows ()
267 "Delete all window except the one you click on." 268 "Delete all windows except the one you click on."
268 (interactive "@") 269 (interactive "@")
269 (delete-other-windows)) 270 (delete-other-windows))
270 271
271 (defun mouse-split-window-vertically (click) 272 (defun mouse-split-window-vertically (click)
272 "Select Emacs window mouse is on, then split it vertically in half. 273 "Select Emacs window mouse is on, then split it vertically in half.