diff options
| -rw-r--r-- | lisp/ezimage.el | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/lisp/ezimage.el b/lisp/ezimage.el index a00703d5471..a689adc25cd 100644 --- a/lisp/ezimage.el +++ b/lisp/ezimage.el | |||
| @@ -78,7 +78,7 @@ IMAGESPEC is the image data, and DOCSTRING is documentation for the image." | |||
| 78 | 78 | ||
| 79 | ) | 79 | ) |
| 80 | (if (not (fboundp 'make-glyph)) | 80 | (if (not (fboundp 'make-glyph)) |
| 81 | 81 | ||
| 82 | (defmacro defezimage (variable imagespec docstring) | 82 | (defmacro defezimage (variable imagespec docstring) |
| 83 | "Don't bother loading up an image... | 83 | "Don't bother loading up an image... |
| 84 | Argument VARIABLE is the variable to define. | 84 | Argument VARIABLE is the variable to define. |
| @@ -194,7 +194,7 @@ IMAGESPEC is the image data, and DOCSTRING is documentation for the image." | |||
| 194 | 194 | ||
| 195 | (defezimage ezimage-mail | 195 | (defezimage ezimage-mail |
| 196 | ((:type xpm :file "ezimage/mail.xpm" :ascent center)) | 196 | ((:type xpm :file "ezimage/mail.xpm" :ascent center)) |
| 197 | "Image if an envelope.") | 197 | "Image of an envelope.") |
| 198 | 198 | ||
| 199 | (defezimage ezimage-checkout | 199 | (defezimage ezimage-checkout |
| 200 | ((:type xpm :file "ezimage/checkmark.xpm" :ascent center)) | 200 | ((:type xpm :file "ezimage/checkmark.xpm" :ascent center)) |
| @@ -206,7 +206,7 @@ IMAGESPEC is the image data, and DOCSTRING is documentation for the image." | |||
| 206 | 206 | ||
| 207 | (defezimage ezimage-object-out-of-date | 207 | (defezimage ezimage-object-out-of-date |
| 208 | ((:type xpm :file "ezimage/bitsbang.xpm" :ascent center)) | 208 | ((:type xpm :file "ezimage/bitsbang.xpm" :ascent center)) |
| 209 | "Image representing bits with a ! in it. (an out of data object file.)") | 209 | "Image representing bits with a ! in it. (An out of data object file.)") |
| 210 | 210 | ||
| 211 | (defezimage ezimage-label | 211 | (defezimage ezimage-label |
| 212 | ((:type xpm :file "ezimage/label.xpm" :ascent center)) | 212 | ((:type xpm :file "ezimage/label.xpm" :ascent center)) |
| @@ -264,7 +264,7 @@ IMAGESPEC is the image data, and DOCSTRING is documentation for the image." | |||
| 264 | "Insert an image button based on text starting at START for LENGTH chars. | 264 | "Insert an image button based on text starting at START for LENGTH chars. |
| 265 | If buttontext is unknown, just insert that text. | 265 | If buttontext is unknown, just insert that text. |
| 266 | If we have an image associated with it, use that image. | 266 | If we have an image associated with it, use that image. |
| 267 | Optional argument STRING is a st ring upon which to add text properties." | 267 | Optional argument STRING is a string upon which to add text properties." |
| 268 | (when ezimage-use-images | 268 | (when ezimage-use-images |
| 269 | (let* ((bt (buffer-substring start (+ length start))) | 269 | (let* ((bt (buffer-substring start (+ length start))) |
| 270 | (a (assoc bt ezimage-expand-image-button-alist))) | 270 | (a (assoc bt ezimage-expand-image-button-alist))) |
| @@ -293,7 +293,7 @@ Return STRING with properties applied." | |||
| 293 | 293 | ||
| 294 | (defun ezimage-insert-over-text (image start end &optional string) | 294 | (defun ezimage-insert-over-text (image start end &optional string) |
| 295 | "Place IMAGE over the text between START and END. | 295 | "Place IMAGE over the text between START and END. |
| 296 | Assumes the image is part of a gui and can be clicked on. | 296 | Assumes the image is part of a GUI and can be clicked on. |
| 297 | Optional argument STRING is a string upon which to add text properties." | 297 | Optional argument STRING is a string upon which to add text properties." |
| 298 | (when ezimage-use-images | 298 | (when ezimage-use-images |
| 299 | (if (featurep 'xemacs) | 299 | (if (featurep 'xemacs) |