bug#12906: 24.2.50; Parts of the screen are completely white

[Fabrice Niessen]

Eli,

Eli Zaretskii wrote:
>> From: "Fabrice Niessen" <fni@missioncriticalit.com>
>>
>>>>> On the big Org file (13,000 lines, 454 KB) I'm working on, the problem is
>>>>> pretty reproducible...
>>>>
>>>> Can you send it to me?
>>>
>>> Just to let you know, this problem still occurs with GNU Emacs 24.3.50.1
>>> (i386-mingw-nt5.1.2600) of 2012-12-03 on MS-W7-DANI.
>>
>> As asked by Stefan, I'm testing the emacs-24 branch.
>>
>> And I can confirm the above problem is *still* occurring with:
>>
>>   GNU Emacs 24.2.91.1 (i386-mingw-nt5.1.2600) of 2012-12-15 on MS-W7-DANI
>
> I'm sorry, but I cannot reproduce the problem, using the file you
> mentioned, at least not in "emacs -Q".
>
> You have a lot of optional features turned on; any chance of finding
> out some minimal subset of them that still causes the problem?

Because of heavy workload (with the end of year holidays and so on), I cannot
commit on being able to free up the time needed to do so, if this is
configuration related.

However, the first settings I'd suspect would be in the "Controlling the
display" block. I'm copying it in case it'd trigger some alarm for someone:

--8<---------------cut here---------------start------------->8---
  ;; keep screen position of point when scrolling
  (setq scroll-preserve-screen-position t)

  ;; better scrolling in Emacs (doing a <PageDown> followed by a <PageUp> will
  ;; place the point at the same place)
  (when (locate-library "pager")
    (autoload 'pager-page-up "pager" nil t)
    (autoload 'pager-page-down "pager" nil t)

    (global-set-key (kbd "<prior>") 'pager-page-up)
    (global-set-key (kbd "<next>") 'pager-page-down))

  ;; ;; scroll one line at a time
  ;; (setq scroll-step 1)

  ;; redisplay will never recenter point
  (setq scroll-conservatively 10000)

  ;; ;; number of lines of margin at the top and bottom of a window
  ;; (setq scroll-margin 1)

  ;; scrolling down looks much better
  (setq auto-window-vscroll nil)

  ;; ;; display update isn't paused when input is detected
  ;; (setq redisplay-dont-pause t) ;; default value

  ;; enable the use of the command `narrow-to-region' without confirmation
  (put 'narrow-to-region 'disabled nil)

  ;; highlight FIXME notes
  (defvar my/highlight-regexps
    "\\(TODO\\|FIXME\\|BUG\\|XXX\\|[Ee]rror\\|ERROR\\|[Ww]arning\\|WARNING\\)"
    "Patterns to highlight.")

  (defface my/highlight-face
    '((t (:weight normal :slant normal :box '(:line-width 1 :color "#CC0000")
          :foreground "#CC0000" :background "#FFFF88")))
    "Face for making FIXME and other warnings stand out.")

  (defvar my/highlight-org-regexps
    "\\(FIXME\\|BUG\\|XXX\\|[Ee]rror\\|[Ww]arning\\|WARNING\\)"
    "Patterns to highlight (for Org mode only, to ensure no conflict with the
  Org mode TODO keyword).")

  ;; set up highlighting of special patterns for proper selected major modes
  ;; only
  (dolist (mode '(fundamental-mode
                  text-mode))
    (font-lock-add-keywords mode
     `((,my/highlight-regexps 1 'my/highlight-face prepend))))

  ;; set up highlighting of special patterns for Org mode only
  (dolist (mode '(org-mode))
    (font-lock-add-keywords mode
     `((,my/highlight-org-regexps 1 'my/highlight-face prepend))))

  ;; add fontification patterns (even in comments) to a selected major
  ;; mode *and* all major modes derived from it
  (defun my/font-lock-keywords ()
    (interactive)
    (font-lock-add-keywords nil ;; in the current buffer
     `((,my/highlight-regexps 1 'my/highlight-face prepend))))
  ;; FIXME                     0                     t

  ;; set up highlighting of special patterns for selected major modes *and*
  ;; all major modes derived from them
  (dolist (hook '(prog-mode-hook
                  ;; text-mode-hook ;; avoid Org
                  css-mode-hook ;; fundamental
                  latex-mode-hook
                  shell-mode-hook ;; fundamental (works in *shell* buffers!)
                  ssh-config-mode-hook))
    (add-hook hook 'my/font-lock-keywords))

  ;; stealth fontification should show status messages
  (setq jit-lock-stealth-verbose t)

  ;; colorize color names in buffers
  (GNUEmacs
   (when (locate-library "rainbow-mode")
     (autoload 'rainbow-mode "rainbow-mode" nil t)))

  ;; visually indicate buffer boundaries and scrolling
  (setq indicate-buffer-boundaries t)

  ;; highlight trailing whitespaces in all modes
  (setq-default show-trailing-whitespace t)

  ;; visually indicate empty lines after the buffer end
  (setq-default indicate-empty-lines t)

  (GNUEmacs
   ;; whitespace mode
   (add-hook 'text-mode-hook
             (lambda ()
               (whitespace-mode 1)))

   (add-hook 'prog-mode-hook
             (lambda ()
               (whitespace-mode 1)))

   (eval-after-load "whitespace"
     '(progn
        ;; which kind of blank is visualized
        (setq whitespace-style
              '(face trailing tabs
                ;; lines-tail
                indentation::space space-mark tab-mark))

        ;; column beyond which the line is highlighted
        (setq whitespace-line-column 80)

        ;; mappings for displaying characters
        (setq whitespace-display-mappings
              '((space-mark ?\xA0 [?\u00B7] [?.]) ;; hard space - centered dot
                (tab-mark ?\t [?\u00BB ?\t] [?\\ ?\t]))) ;; tab - left quote 
mark
        )))

  ;; show the line number in each mode line
  (line-number-mode 1)

  ;; show the column number in each mode line
  (column-number-mode 1)

  ;; use inactive face for mode-line in non-selected windows
  (setq mode-line-in-non-selected-windows t)

  (GNUEmacs
   ;; using cursor color to indicate some modes (read-only, insert and
   ;; overwrite modes)
   (setq my/set-cursor-color-color "")
   (setq my/set-cursor-color-buffer "")

   (defun my/set-cursor-color-according-to-mode ()
     "Change cursor color according to some minor modes."
     (let ((color
            (if buffer-read-only "purple1"
              (if overwrite-mode "red"
                "#15FF00"))))  ; insert mode
       (unless (and (string= color my/set-cursor-color-color)
                    (string= (buffer-name) my/set-cursor-color-buffer))
         (set-cursor-color (setq my/set-cursor-color-color color))
         (setq my/set-cursor-color-buffer (buffer-name)))))

   (add-hook 'post-command-hook 'my/set-cursor-color-according-to-mode))

  ;; respect the value of `truncate-lines' in all windows less than the
  ;; full width of the frame
  (setq truncate-partial-width-windows nil)
--8<---------------cut here---------------end--------------->8---

I *will* work with all these settings commented for the following hours and
days, just to see whether the problem appears or not -- but I won't be able to
dissecate all the other settings now, if not related to something there.

Best regards,
Fabrice