Mercurial > emacs

comparison lisp/vcursor.el @ 22901:12fca8181eca

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(vcursor group): Move this to `editing' group.
author Richard M. Stallman <rms@gnu.org>
date Tue, 04 Aug 1998 09:34:25 +0000
parents 2809ce5a1a0a
children d3c34ba6d095
comparison
equal deleted inserted replaced
22900:00d2d08d657b 22901:12fca8181eca
1 ;;; vcursor.el --- manipulate an alternative ("virtual") cursor. 1 ;;; vcursor.el --- manipulate an alternative ("virtual") cursor.
2 2
3 ;; Copyright (C) 1994, 1996, 1998 Free Software Foundation, Inc. 3 ;; Copyright (C) 1994, 1996, 1998 Free Software Foundation, Inc.
4 4
5 ;; Author: Peter Stephenson <pws@ibmth.df.unipi.it> 5 ;; Author: Peter Stephenson <pws@ibmth.df.unipi.it>
6 ;; Keywords: virtual cursor, display, copying 6 ;; Keywords: virtual cursor, convenience
7 7
8 ;; This file is part of GNU Emacs. 8 ;; This file is part of GNU Emacs.
9 9
10 ;; GNU Emacs is free software; you can redistribute it and/or modify 10 ;; GNU Emacs is free software; you can redistribute it and/or modify
11 ;; it under the terms of the GNU General Public License as published by 11 ;; it under the terms of the GNU General Public License as published by
322 ;;; Code: 322 ;;; Code:
323 323
324 (defgroup vcursor nil 324 (defgroup vcursor nil
325 "Manipulate an alternative (\"virtual\") cursor." 325 "Manipulate an alternative (\"virtual\") cursor."
326 :prefix "vcursor-" 326 :prefix "vcursor-"
327 :group 'display) 327 :group 'editing)
328 328
329 (defface vcursor 329 (defface vcursor
330 '((((class color)) (:foreground "blue" :background "cyan" :underline t)) 330 '((((class color)) (:foreground "blue" :background "cyan" :underline t))
331 (t (:inverse-video t :underline t))) 331 (t (:inverse-video t :underline t)))
332 "Face for the virtual cursor." 332 "Face for the virtual cursor."