Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in / Register
Toggle navigation
Open sidebar
emacs
emacs
Commits
96fd6ea2
Commit
96fd6ea2
authored
Sep 13, 2013
by
Glenn Morris
Browse files
* lisp/gnus/gnus-html.el (image-size): Declare.
(declare-function): Add compat stub for ancient Emacs.
parent
5c3f9bcc
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
12 additions
and
0 deletions
+12
-0
lisp/gnus/ChangeLog
lisp/gnus/ChangeLog
+5
-0
lisp/gnus/gnus-html.el
lisp/gnus/gnus-html.el
+7
-0
No files found.
lisp/gnus/ChangeLog
View file @
96fd6ea2
2013-09-13 Glenn Morris <rgm@gnu.org>
* gnus-html.el (declare-function): Add compat stub for ancient Emacs.
(image-size): Declare.
2013-09-12 Glenn Morris <rgm@gnu.org>
* gnus-icalendar.el (gnus-icalendar-event--build-reply-event-body):
...
...
lisp/gnus/gnus-html.el
View file @
96fd6ea2
...
...
@@ -28,6 +28,10 @@
;;; Code:
;; For Emacs <22.2 and XEmacs.
(
eval-and-compile
(
unless
(
fboundp
'declare-function
)
(
defmacro
declare-function
(
&rest
r
))))
(
eval-when-compile
(
require
'cl
))
(
require
'gnus-art
)
...
...
@@ -438,6 +442,9 @@ Return a string with image data."
(
truncate
(
*
gnus-max-image-proportion
(
-
(
nth
3
edges
)
(
nth
1
edges
)))))))
;; Behind display-graphic-p test.
(
declare-function
image-size
"image.c"
(
spec
&optional
pixels
frame
))
(
defun
gnus-html-put-image
(
data
url
&optional
alt-text
)
"Put an image with DATA from URL and optional ALT-TEXT."
(
when
(
gnus-graphic-display-p
)
...
...
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