Mercurial > hg > xemacs-beta

comparison lisp/packages/pending-del.el @ 189:489f57a838ef r20-3b21

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r20-3b21
author cvs
date Mon, 13 Aug 2007 09:57:07 +0200
parents 2d532a89d707
children
comparison
equal deleted inserted replaced
188:e29a8e7498d9 189:489f57a838ef
34 ;; functions. It should be somewhat faster, too. 34 ;; functions. It should be somewhat faster, too.
35 35
36 36
37 ;;; Code: 37 ;;; Code:
38 38
39 (defvar pending-delete-mode nil 39 (defcustom pending-delete-mode nil
40 "Non-nil when Pending Delete mode is enabled. 40 "Non-nil when Pending Delete mode is enabled.
41 In Pending Delete mode, typed text replaces the selected region.") 41 In Pending Delete mode, typed text replaces the selected region."
42 :type 'boolean
43 :set (lambda (symbol value)
44 (pending-delete-mode (or value 0)))
45 :initialize 'custom-initialize-default
46 :require 'pending-del
47 :group 'keyboard)
42 48
43 (defcustom pending-delete-modeline-string " PenDel" 49 (defcustom pending-delete-modeline-string " PenDel"
44 "*String to display in the modeline when Pending Delete mode is active." 50 "*String to display in the modeline when Pending Delete mode is active."
45 :type 'string) 51 :type 'string
52 :group 'keyboard)
46 53
47 (add-minor-mode 'pending-delete-mode 'pending-delete-modeline-string) 54 (add-minor-mode 'pending-delete-mode 'pending-delete-modeline-string)
48 55
49 56
50 (defun pending-delete-active-region (&optional killp) 57 (defun pending-delete-active-region (&optional killp)