Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
What's new
7
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
7734cb68
Commit
7734cb68
authored
Feb 03, 2007
by
Chong Yidong
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
(newsticker--insert-image): Update docstring. Insert the image directly.
(newsticker--buffer-redraw): Update docstring.
parent
19eee1a9
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
4 additions
and
13 deletions
+4
-13
lisp/net/newsticker.el
lisp/net/newsticker.el
+4
-13
No files found.
lisp/net/newsticker.el
View file @
7734cb68
...
@@ -10,7 +10,7 @@
...
@@ -10,7 +10,7 @@
;; Created: 17. June 2003
;; Created: 17. June 2003
;; Keywords: News, RSS, Atom
;; Keywords: News, RSS, Atom
;; Time-stamp: "29. Januar 2007, 21:05:09 (ulf)"
;; Time-stamp: "29. Januar 2007, 21:05:09 (ulf)"
;; CVS-Version: $Id: newsticker.el,v 1.1
54
2007/0
1/29 20:05:35 u11
Exp $
;; CVS-Version: $Id: newsticker.el,v 1.1
3
2007/0
2/02 14:29:50 eliz
Exp $
;; ======================================================================
;; ======================================================================
...
@@ -4355,7 +4355,7 @@ The mode-line is changed accordingly."
...
@@ -4355,7 +4355,7 @@ The mode-line is changed accordingly."
(
force-mode-line-update
0
))))
(
force-mode-line-update
0
))))
(
defun
newsticker--buffer-redraw
()
(
defun
newsticker--buffer-redraw
()
"
Sometimes (CVS) Emacs forgets to update the
window.
..
"
"
Redraw the newsticker
window."
(
if
(
fboundp
'force-window-update
)
(
if
(
fboundp
'force-window-update
)
(
force-window-update
(
current-buffer
))
(
force-window-update
(
current-buffer
))
(
redraw-frame
(
selected-frame
)))
(
redraw-frame
(
selected-frame
)))
...
@@ -4836,17 +4836,8 @@ The face is chosen according the values of NT-FACE and AGE."
...
@@ -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
))))
(
put-text-property
pos1
(
max
pos1
pos2
)
'face
face
))))
(
defun
newsticker--insert-image
(
img
string
)
(
defun
newsticker--insert-image
(
img
string
)
"Insert IMG with STRING at point.
"Insert IMG with STRING at point."
This is a work-around for a strange behavior of Emacs versions before
(
insert-image
img
string
))
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
))))
;; ======================================================================
;; ======================================================================
;;; HTML rendering
;;; HTML rendering
...
...
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment