Mercurial > emacs
changeset 70811:fbbc9639de95
(artist-text-renderer): Make this the alias for the following variable.
(artist-text-renderer-function): Make this the real name.
| author | Roland Winkler <Roland.Winkler@physik.uni-erlangen.de> |
|---|---|
| date | Sun, 21 May 2006 19:10:12 +0000 |
| parents | d464ed82246a |
| children | 5244bd9a8bac |
| files | lisp/textmodes/artist.el |
| diffstat | 1 files changed, 10 insertions(+), 7 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/textmodes/artist.el Sun May 21 18:46:41 2006 +0000 +++ b/lisp/textmodes/artist.el Sun May 21 19:10:12 2006 +0000 @@ -365,10 +365,11 @@ "*If in X Windows, use this pointer shape while drawing with the mouse.") -(defcustom artist-text-renderer 'artist-figlet +(defcustom artist-text-renderer-function 'artist-figlet "Function for doing text rendering." :group 'artist-text :type 'symbol) +(defvaralias 'artist-text-renderer 'artist-text-renderer-function) (defcustom artist-figlet-program "figlet" @@ -2910,23 +2911,25 @@ (defun artist-text-see-thru (x y) "Prompt for text to render, render it at X,Y. -This is done by calling the function specified by `artist-text-renderer', -which must return a list of strings, to be inserted in the buffer. +This is done by calling the function specified by +`artist-text-renderer-function', which must return a list of strings, +to be inserted in the buffer. Text already in the buffer ``shines thru'' blanks in the rendered text." (let* ((input-text (read-string "Type text to render: ")) - (rendered-text (artist-funcall artist-text-renderer input-text))) + (rendered-text (artist-funcall artist-text-renderer-function input-text))) (artist-text-insert-see-thru x y rendered-text))) (defun artist-text-overwrite (x y) "Prompt for text to render, render it at X,Y. -This is done by calling the function specified by `artist-text-renderer', -which must return a list of strings, to be inserted in the buffer. +This is done by calling the function specified by +`artist-text-renderer-function', which must return a list of strings, +to be inserted in the buffer. Blanks in the rendered text overwrites any text in the buffer." (let* ((input-text (read-string "Type text to render: ")) - (rendered-text (artist-funcall artist-text-renderer input-text))) + (rendered-text (artist-funcall artist-text-renderer-function input-text))) (artist-text-insert-overwrite x y rendered-text))) ;;