如何讓C-x C-e只顯示十進制和十六進制？

Question

這是一個後續How to get C-x C-e to display the result in octal and hexadecimal by default?

有沒有辦法讓C-X C-ë來顯示結果以十進制和十六進制的唯一？

例如

(+ 40 2) 

應該產生的

42 (#x2a) 

代替

42 (#o52, #x2a, ?*) 

Answer 1

你只需要重寫/調整，爲了這個創建打印格式的程序。將以下內容添加到您的.emacs中，您將會很好。

(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))))