From e8186ed0f0a293a6f9d2912b1543d66128e0d131 Mon Sep 17 00:00:00 2001 From: Lars Ingebrigtsen Date: Sat, 13 Feb 2016 18:13:03 +1100 Subject: Remove Gnus compat functions defined in gnus.el * lisp/gnus/gnus.el (gnus-extent-detached-p): Remove. (gnus-extent-start-open, gnus-character-to-event) (gnus-assq-delete-all, gnus-add-text-properties) (gnus-put-text-property, gnus-key-press-event-p): --- lisp/gnus/gnus-srvr.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lisp/gnus/gnus-srvr.el') diff --git a/lisp/gnus/gnus-srvr.el b/lisp/gnus/gnus-srvr.el index 35785992373..35a38826a2c 100644 --- a/lisp/gnus/gnus-srvr.el +++ b/lisp/gnus/gnus-srvr.el @@ -308,7 +308,7 @@ The following commands are available: " (cloud)" ""))) (beginning-of-line) - (gnus-add-text-properties + (add-text-properties (point) (prog1 (1+ (point)) ;; Insert the text. @@ -863,7 +863,7 @@ claim them." (prefix (let ((gnus-select-method orig-select-method)) (gnus-group-prefixed-name "" method)))) (while (setq group (pop groups)) - (gnus-add-text-properties + (add-text-properties (point) (prog1 (1+ (point)) (insert -- cgit v1.2.3