Question

This is a follow-up to How to get C-x C-e to display the result in octal and hexadecimal by default?

Is there a way to get C-x C-e to to display the result in decimal and hexadecimal only?

e.g.

(+ 40 2)

should produce

42 (#x2a)

instead of

42 (#o52, #x2a, ?*)

Answer 1

You just need to rewrite/tweak the routine that creates the printed format for this. Add the following to your .emacs and you’ll be good to go.

(require 'simple)
(defun eval-expression-print-format (value)
  "Format VALUE as a result of evaluated expression.
Return a formatted string which is displayed in the echo area
in addition to the value printed by prin1 in functions which
display the result of expression evaluation."
  (if (and (integerp value)
           (or (not (memq this-command '(eval-last-sexp eval-print-last-sexp)))
               (eq this-command last-command)
               (if (boundp 'edebug-active) edebug-active)))
      (let ((char-string
             (if (or (if (boundp 'edebug-active) edebug-active)
                     (memq this-command '(eval-last-sexp eval-print-last-sexp)))
                 (prin1-char value))))
        (format " (#x%x)" value value))))