Subject: Re: bug#13134: 24.3.50; Box has no right border

From: Eli Zaretskii <[email-masked]>
Date: Mon, 10 Dec 2012 12:03:55 +0200

> From: "Fabrice Niessen" <[email-masked]>
> Date: Mon, 10 Dec 2012 10:54:22 +0100
> 
> Some boxes are drawn OK, some aren't. Here a .org example file:
> 
> --8<---------------cut here---------------start------------->8---
> * TODO This box around the Org TODO keyword is OK
> 
> A box around the error work is OK as well, with the following code:
> 
> #+begin_src emacs-lisp
>   ;; highlight FIXME notes
>   (defvar lvn/highlight-regexps
>     "\\(TODO\\|FIXME\\|BUG\\|XXX\\|[Ee]rror\\|ERROR\\|[Ww]arning\\|WARNING\\)"
>     "Patterns to highlight.")
> 
>   (defface lvn/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.")
> 
>   ;; set up highlighting of special patterns for proper selected major modes
>   ;; only
>   (dolist (mode '(fundamental-mode
>                   text-mode))
>     (font-lock-add-keywords mode
>      `((,lvn/highlight-regexps 1 'lvn/highlight-face prepend))))
> #+end_src
> 
> But boxes around =org-code= or ~org-verbatim~ are not OK: they don't have the
> right border!?
> --8<---------------cut here---------------end--------------->8---
> 
> See http://screencast.com/t/Tv8Yi7yKIJZD.
> 
> Extract from my color theme:
> 
> #+begin_src emacs-lisp
>   (org-code ((t (:box (:line-width 1 :color "#DDDDDD") :foreground "#000088" :background "#FFFFE0"))))
>   (org-verbatim ((t (:box (:line-width 1 :color "#DDDDDD") :foreground "#000088" :background "#E0FFE0"))))
> #+end_src

Thanks, but could you perhaps provide a recipe starting from "emacs -Q"
which doesn't require to load Org at all?  That would make the job of
debugging this a lot easier.