使用Ctrl键和鼠标滚动调整Emacs字体大小

Question

notepad ++允许我在按住Ctrl键并旋转鼠标中间滚动按钮前进时增加字体大小.

以同样的方式,当我按住Ctrl并向后旋转鼠标中间滚动按钮时,喜欢的尺寸减小.

我怎样才能与Emacs一样？

Answer 1

使用emacs23,您可以在.emacs.el中添加以下行:

(global-set-key (kbd "<C-mouse-4>") 'text-scale-decrease)
(global-set-key (kbd "<C-mouse-5>") 'text-scale-increase)

Answer 2

AlexCombas答案的代码:

(defun font-big ()
 (interactive)
 (set-face-attribute 'default nil :height 
  (+ (face-attribute 'default :height) 10)))

(defun font-small ()
 (interactive)
 (set-face-attribute 'default nil :height 
  (- (face-attribute 'default :height) 10)))

(global-set-key (kbd "<C-wheel-down>") 'font-small)
(global-set-key (kbd "<C-wheel-up>") 'font-big)

编辑:最小和最大使用

(defun font-big ()
 (interactive)
 (set-face-attribute 'default nil :height 
  (min 720
   (+ (face-attribute 'default :height) 10))))

(defun font-small ()
 (interactive)
 (set-face-attribute 'default nil :height 
  (max 80
   (- (face-attribute 'default :height) 10))))