[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[elpa] externals/register-list 45b0cc9 08/12: * register-list/register-l
From: |
Stefan Monnier |
Subject: |
[elpa] externals/register-list 45b0cc9 08/12: * register-list/register-list.el: Use cursor-intangible-mode |
Date: |
Sat, 28 Nov 2020 18:56:14 -0500 (EST) |
branch: externals/register-list
commit 45b0cc91d6639fe840e043e6505397dfbb035342
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>
* register-list/register-list.el: Use cursor-intangible-mode
(register-list--intangible): New const.
(register-list-set-mark, register-list): Use it.
(register-list-mode): Enable cursor-intangible-mode if available.
---
register-list.el | 15 ++++++++++-----
1 file changed, 10 insertions(+), 5 deletions(-)
diff --git a/register-list.el b/register-list.el
index 1bbcb72..f817e4d 100755
--- a/register-list.el
+++ b/register-list.el
@@ -1,6 +1,6 @@
;;; register-list.el --- Interactively list/edit registers -*-
lexical-binding:t -*-
;;
-;; Copyright (C) 2011-2014 Free Software Foundation, Inc.
+;; Copyright (C) 2011-2015 Free Software Foundation, Inc.
;;
;; Filename: register-list.el
;; Author: Bastien Guerry <bzg AT altern DOT org>
@@ -220,11 +220,15 @@ If FORCE-LINE is non-nil, force moving to this line."
(goto-char (point-min))
(line-move (- line 2) t)))
+(defconst register-list--intangible
+ (if (fboundp 'cursor-intangible-mode)
+ 'cursor-intangible 'intangible))
+
(defun register-list-set-mark (mark)
"Set mark at the beginning of the line."
(let ((inhibit-read-only t))
(beginning-of-line)
- (unless (get-text-property (point) 'intangible)
+ (unless (get-text-property (point) register-list--intangible)
(delete-char 1)
(save-excursion (insert mark))
(unless (save-excursion (forward-line 1) (eobp))
@@ -320,6 +324,7 @@ copy the string to the kill ring or jump to the location.
\\[register-list-tab] -- cycle between the key, the type and the value.
\\[register-list-quit] -- quit the register menu."
(setq truncate-lines t)
+ (if (fboundp 'cursor-intangible-mode) (cursor-intangible-mode 1))
(setq buffer-read-only t))
;;\\[register-list-edit-key-or-value] -- edit the key for this register.
@@ -363,12 +368,12 @@ The list is displayed in a buffer named `*Register List*'
in
(setq register-alist ;; TODO better sorting.
(sort register-alist (lambda (a b) (< (car a) (car b)))))
(erase-buffer)
- ;; FIXME: Why `intangible'?
+ ;; FIXME: Why intangible?
(insert (concat (propertize "% Key Type Value\n"
'face 'font-lock-type-face
- 'intangible t) ;; 'front-sticky t)
+ register-list--intangible t) ;; 'front-sticky t)
(propertize "- --- ---- -----\n"
- 'intangible t
+ register-list--intangible t
'face 'font-lock-comment-delimiter-face)))
(dolist (register register-alist)
(let* ((key (char-to-string (car register)))
- [elpa] externals/register-list b004369 05/12: * register-list.el: Use lexical-binding. Remove redundant :groups., (continued)
- [elpa] externals/register-list b004369 05/12: * register-list.el: Use lexical-binding. Remove redundant :groups., Stefan Monnier, 2020/11/28
- [elpa] externals/register-list b6b2e3b 06/12: Update copyright years., Stefan Monnier, 2020/11/28
- [elpa] externals/register-list 3e8c3cb 04/12: register-list.el: Update copyright year., Stefan Monnier, 2020/11/28
- [elpa] externals/register-list 68707de 01/12: Add packages/register-list/register-list.el, Stefan Monnier, 2020/11/28
- [elpa] externals/register-list 4e76327 03/12: * admin/update-archive.sh: Keep old packages., Stefan Monnier, 2020/11/28
- [elpa] externals/register-list 14d719a 02/12: Fix version numbers of sisu-mode, register-list, and windresize., Stefan Monnier, 2020/11/28
- [elpa] externals/register-list 60645da 09/12: register-list.el: Update author's email, Stefan Monnier, 2020/11/28
- [elpa] externals/register-list 64ad389 10/12: Clear executable bit for Emacs Lisp files., Stefan Monnier, 2020/11/28
- [elpa] externals/register-list 6039d0b 11/12: * packages/register-list/register-list.el: Don't require `cl`, Stefan Monnier, 2020/11/28
- [elpa] externals/register-list e731af0 07/12: * packages/register-list/register-list.el (register-list): Pass arg to, Stefan Monnier, 2020/11/28
- [elpa] externals/register-list 45b0cc9 08/12: * register-list/register-list.el: Use cursor-intangible-mode,
Stefan Monnier <=
- [elpa] externals/register-list 31bc18e 12/12: * .gitignore: New file, Stefan Monnier, 2020/11/28