From 7734cb684b6e98cae2f71cd714e01f2bf938e294 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sat, 3 Feb 2007 17:34:57 +0000 Subject: [PATCH] (newsticker--insert-image): Update docstring. Insert the image directly. (newsticker--buffer-redraw): Update docstring. --- lisp/net/newsticker.el | 17 ++++------------- 1 file changed, 4 insertions(+), 13 deletions(-) diff --git a/lisp/net/newsticker.el b/lisp/net/newsticker.el index ff4e6a311e0..c667fba2bca 100644 --- a/lisp/net/newsticker.el +++ b/lisp/net/newsticker.el @@ -10,7 +10,7 @@ ;; Created: 17. June 2003 ;; Keywords: News, RSS, Atom ;; Time-stamp: "29. Januar 2007, 21:05:09 (ulf)" -;; CVS-Version: $Id: newsticker.el,v 1.154 2007/01/29 20:05:35 u11 Exp $ +;; CVS-Version: $Id: newsticker.el,v 1.13 2007/02/02 14:29:50 eliz Exp $ ;; ====================================================================== @@ -4355,7 +4355,7 @@ The mode-line is changed accordingly." (force-mode-line-update 0)))) (defun newsticker--buffer-redraw () - "Sometimes (CVS) Emacs forgets to update the window..." + "Redraw the newsticker window." (if (fboundp 'force-window-update) (force-window-update (current-buffer)) (redraw-frame (selected-frame))) @@ -4836,17 +4836,8 @@ The face is chosen according the values of NT-FACE and AGE." (put-text-property pos1 (max pos1 pos2) 'face face)))) (defun newsticker--insert-image (img string) - "Insert IMG with STRING at point. -This is a work-around for a strange behavior of Emacs versions before -21.3.50. Images inserted with `insert-image' vanished after doing -`fill-region'." - ;; This should work: - ;;(insert-image img string) - ;; but it does not. Therefore we do this, which should be equivalent! - (let ((pos (point))) - ;;(insert string) - (insert ":-)") - (add-text-properties pos (point) (list 'display img)))) + "Insert IMG with STRING at point." + (insert-image img string)) ;; ====================================================================== ;;; HTML rendering -- 2.39.2