0

我安装OS X Mountain Lion在我的笔记本电脑上,然后下载(在emacs for mac os xEmacs 24上提供的预编译版本)。应用程序窗口的渲染,尤其是当我快速滚动甚至有时缓慢滚动时,简直太可怕了

在此处输入图像描述

如果有人能提出解决方案,我将不胜感激。如果我无法弄清楚这一点,那么让我放弃 Emacs 转而使用其他编辑器已经够糟糕的了。

我可以在 Stackoverflow 上找到的最近的查询是在 OS X 上的 Emacs 中出现奇怪的垂直线?

我正在使用 Kieran Healy 的 Emacs Social Science Starter Kit ( http://kieranhealy.org/emacs-starter-kit.html ),所以我还没有添加我自己的自定义 - 事实上一些现有的自定义是为他的机器,不是我的。但我的 init.el 文件(就是这样)如下:

;;; init.el --- Where all the magic begins
;;
;; Part of the Emacs Starter Kit
;;
;; This is the first thing to get loaded.
;;

;; org-mode windmove compatibility
(setq org-replace-disputed-keys t)

;; setq dotfiles-dir (file-name-directory (or (buffer-file-name) load-file-name)))
(setq dotfiles-dir (file-name-directory (or load-file-name (buffer-file-name))))


(add-to-list 'load-path (expand-file-name
                     "lisp" (expand-file-name
                             "org" (expand-file-name
                                    "src" dotfiles-dir))))

;; Package Locations
;; Location of various local packages (in .emacs.d/vendor or .emacs.d/src)
;;  because I don't want to keep them in =/Applications/Emacs.app/= or in
;;  =/usr/share/local/=.

(if (fboundp 'normal-top-level-add-subdirs-to-load-path)
    (let* ((my-lisp-dir "~/.emacs.d/")
       (default-directory my-lisp-dir))
  (setq load-path (cons my-lisp-dir load-path))
  (normal-top-level-add-subdirs-to-load-path)))

;; Font-face setup. Check the availability of a some default fonts, in
;; order of preference. The first of these alternatives to be found is
;; set as the default font, together with base size and fg/bg
;; colors. If none of the preferred fonts is found, nothing happens
;; and Emacs carries on with the default setup. We do this here to
;; prevent some of the irritating flickering and resizing that
;; otherwise goes on during startup. You can reorder or replace the
;; options here with the names of your preferred choices.

(defun font-existsp (font)
   "Check to see if the named FONT is available."
   (if (null (x-list-fonts font))
     nil t))

;; Set default font. First one found is selected.
(cond
 ((eq window-system nil) nil)
  ((font-existsp "PragmataPro")
  (set-face-attribute 'default nil :height 121 :font "PragmataPro"))
 ((font-existsp "Menlo")
  (set-face-attribute 'default nil :height 121 :font "Menlo"))
 ((font-existsp "Consolas")
  (set-face-attribute 'default nil :height 121 :font "Consolas"))
 ((font-existsp "Inconsolata")
  (set-face-attribute 'default nil :height 121 :font "Inconsolata"))
 )

;; Load up Org Mode and Babel
(require 'org-install)

;; load up the main file
(org-babel-load-file (expand-file-name "starter-kit.org" dotfiles-dir))

;;; init.el ends here
4

1 回答 1

2

尝试检查您没有将框架高度设置为大于屏幕高度。我的 .emacs 设置为从另一台具有更高垂直分辨率的计算机上执行此操作,我看到了与您相同的行为。对我来说,我有这个块:

(setq default-frame-alist
      '((width . 80)
        (height . 40)
        (menu-bar-lines . 1)
        (vertical-scroll-bar . -1)))

我不得不将高度从 60 降低到你在这里看到的 40 以避免这个问题。

于 2013-01-10T00:36:54.647 回答