Mercurial > hg > xemacs-beta
comparison lisp/packages/pending-del.el @ 175:2d532a89d707 r20-3b14
Import from CVS: tag r20-3b14
| author | cvs |
|---|---|
| date | Mon, 13 Aug 2007 09:50:14 +0200 |
| parents | 8eaf7971accc |
| children | 489f57a838ef |
comparison
equal
deleted
inserted
replaced
| 174:bb3568571b84 | 175:2d532a89d707 |
|---|---|
| 2 | 2 |
| 3 ;; Copyright (C) 1992, 1994 Free Software Foundation, Inc. | 3 ;; Copyright (C) 1992, 1994 Free Software Foundation, Inc. |
| 4 | 4 |
| 5 ;; Author: Matthieu Devin <devin@lucid.com>, 14 Jul 92. | 5 ;; Author: Matthieu Devin <devin@lucid.com>, 14 Jul 92. |
| 6 ;; Maintainer: Hrvoje Niksic <hniksic@srce.hr> | 6 ;; Maintainer: Hrvoje Niksic <hniksic@srce.hr> |
| 7 ;; Version 2.1 | 7 ;; Version 2.2 |
| 8 | 8 |
| 9 ;; This file is part of XEmacs. | 9 ;; This file is part of XEmacs. |
| 10 | 10 |
| 11 ;; XEmacs is free software; you can redistribute it and/or modify it | 11 ;; XEmacs is free software; you can redistribute it and/or modify it |
| 12 ;; under the terms of the GNU General Public License as published by | 12 ;; under the terms of the GNU General Public License as published by |
| 38 | 38 |
| 39 (defvar pending-delete-mode nil | 39 (defvar 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 | 42 |
| 43 (add-minor-mode 'pending-delete-mode " PenDel") | 43 (defcustom pending-delete-modeline-string " PenDel" |
| 44 "*String to display in the modeline when Pending Delete mode is active." | |
| 45 :type 'string) | |
| 46 | |
| 47 (add-minor-mode 'pending-delete-mode 'pending-delete-modeline-string) | |
| 44 | 48 |
| 45 | 49 |
| 46 (defun pending-delete-active-region (&optional killp) | 50 (defun pending-delete-active-region (&optional killp) |
| 47 (when (and (region-active-p) | 51 (when (and (region-active-p) |
| 48 (eq (extent-object zmacs-region-extent) (current-buffer)) | 52 (eq (extent-object zmacs-region-extent) (current-buffer)) |