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
0ad550ba
Commit
0ad550ba
authored
Jun 13, 2000
by
Dave Love
Browse files
Fix last change to be in insert-image as intended.
parent
f290ca08
Changes
2
Hide whitespace changes
Inline
Side-by-side
Showing
2 changed files
with
5 additions
and
5 deletions
+5
-5
lisp/ChangeLog
lisp/ChangeLog
+1
-1
lisp/image.el
lisp/image.el
+4
-4
No files found.
lisp/ChangeLog
View file @
0ad550ba
2000-06-13 Dave Love <fx@gnu.org>
* image.el (
pu
t-image): Default STRING to a space.
* image.el (
inser
t-image): Default STRING to a space.
* info.el Doc fixes.
(Info-build-node-completions): Match Ref tags.
...
...
lisp/image.el
View file @
0ad550ba
...
...
@@ -122,9 +122,7 @@ AREA is where to display the image. AREA nil or omitted means
display it in the text area, a value of `left-margin' means
display it in the left marginal area, a value of `right-margin'
means display it in the right marginal area."
;; Use a space as least likely to cause trouble when it's a hidden
;; character in the buffer.
(
unless
string
(
setq
string
" "
))
(
unless
string
(
setq
string
"x"
))
(
let
((
buffer
(
current-buffer
)))
(
unless
(
eq
(
car-safe
image
)
'image
)
(
error
"Not an image: %s"
image
))
...
...
@@ -148,7 +146,9 @@ AREA is where to display the image. AREA nil or omitted means
display it in the text area, a value of `left-margin' means
display it in the left marginal area, a value of `right-margin'
means display it in the right marginal area."
(
unless
string
(
setq
string
"x"
))
;; Use a space as least likely to cause trouble when it's a hidden
;; character in the buffer.
(
unless
string
(
setq
string
" "
))
(
unless
(
eq
(
car-safe
image
)
'image
)
(
error
"Not an image: %s"
image
))
(
unless
(
or
(
null
area
)
(
memq
area
'
(
left-margin
right-margin
)))
...
...
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