Pekiyi isimi goren birsey yaptim, soyle:

(require 'font-menu)

(defun resize-font (n)
  (font-menu-set-font 
   (car (font-default-family-for-device))
   nil
   (* 10 (+ n (font-default-size-for-device)))))

(defun enlarge-font ()
  (interactive)
  (resize-font +1))

(defun shrink-font ()
  (interactive)
  (resize-font -1))

(global-set-key [(super kp-subtract)] 'shrink-font)
(global-set-key [(super kp-add)] 'enlarge-font)

iyi minciklamalar,

BM


_______________________________________________
cs-lisp mailing list
[email protected]
http://church.cs.bilgi.edu.tr/lcg
http://cs.bilgi.edu.tr/mailman/listinfo/cs-lisp

Cevap