Re: [h-e-w] 6x13 font?

[Chuck Siska]

David Vanderschel wrote:
> 
> On Tuesday, April 02, "Jonathan Arnold" <address@hidden> wrote:
> >If you just do (w32-select-font) from the *scratch* buffer, it
> >will echo back the font string.
> 
> As a point of clarification, the significance of the
> *scratch* buffer is that it has the command
> eval-print-last-sexp, normally bound to C-j, and that
> is the command you should use to execute the function
> there.  Then the output is automatically inserted into
> the buffer (as is also the case with the suggested
> function which works in any buffer).

as david says, "M-x eval-print-last-sexp" will work in any
buffer, so you just need to insert the lisp expression you want
to evaluate into the buffer, run this command, and then remove
the expression, leaving the result.

alternatively, you can include the function, below, in your
.emacs and run it, instead.  it avoids the insertion and removal
because it asks for the lisp expression in the minibuffer.  good
luck.

(defun cs-eval-and-insert (exp)
  "Evaluate the user-supplied lisp expression and insert the
result at point."
  
  (interactive
   (list (read-from-minibuffer "Eval: "
                               nil read-expression-map t
                               'read-expression-history)))
  (eval-expression exp t))

-- 
                                           |\_/\_.-'""``:-._       
What is life without looking for           . . `; -._      )-;-,_`)
the next cute little bug to play with?     v_,-    _  ),(,.\  ``-' 
                                          _.- _.,-_/ /  ((.'       
-- address@hidden  `<}:..     ((,.-'   ((,/