bug#9172: 24.0.50; describe-char fails for combining character when on xterm

[Ulrich Mueller]

With Emacs started on an xterm, function describe-char fails when a
combining character is at point.

Steps to reproduce:
$ emacs -Q -nw
a C-x 8 RET combining diaeresis RET C-b C-u C-x =

Actual result:
Error message "Wrong type argument: sequencep, 38"

This happens on GNU/Linux, xterm version 270. I've tried with Emacs
23.3 and with Emacs from BZR as of today (trunk, revision 105322).
The error occurs for both of them.

Debugger backtrace:

Debugger entered--Lisp error: (wrong-type-argument sequencep 38)
  internal-char-font(nil 776)
  (if (internal-char-font nil ch) (compose-string (string ch) 0 1 (format "     
%c      " ch)) (string ch))
  describe-char-padded-string(776)
  mapconcat(describe-char-padded-string #("̈" 0 1 (fontified t)) "")
  (concat " with the following character(s) \"" (mapconcat (quote 
describe-char-padded-string) (buffer-substring (1+ pos) to) "") "\"")
  (setcar composition (concat " with the following character(s) \"" (mapconcat 
(quote describe-char-padded-string) (buffer-substring (1+ pos) to) "") "\""))
  (if (< (1+ pos) to) (setcar composition (concat " with the following 
character(s) \"" (mapconcat (quote describe-char-padded-string) 
(buffer-substring (1+ pos) to) "") "\"")) (setcar composition nil))
  (if (< from pos) (if (< (1+ pos) to) (setcar composition (concat " with the 
surrounding characters \"" (mapconcat (quote describe-char-padded-string) 
(buffer-substring from pos) "") "\" and \"" (mapconcat (quote 
describe-char-padded-string) (buffer-substring (1+ pos) to) "") "\"")) (setcar 
composition (concat " with the preceding character(s) \"" (mapconcat (quote 
describe-char-padded-string) (buffer-substring from pos) "") "\""))) (if (< (1+ 
pos) to) (setcar composition (concat " with the following character(s) \"" 
(mapconcat (quote describe-char-padded-string) (buffer-substring (1+ pos) to) 
"") "\"")) (setcar composition nil)))
  (let ((from (car composition)) (to (nth 1 composition)) (components (nth 2 
composition)) ch) (if (and (vectorp components) (vectorp (aref components 0))) 
(let ((idx (- pos from)) (nglyphs (lgstring-glyph-len components)) (i 0) j 
glyph glyph-from) (while (and (< i nglyphs) (setq glyph (lgstring-glyph 
components i)) (< (lglyph-to glyph) idx)) (setq i (1+ i))) (if (or (not glyph) 
(= i nglyphs)) (throw (quote tag) nil)) (setq glyph-from (lglyph-from glyph) to 
(+ from (lglyph-to glyph) 1) from (+ from glyph-from) j i) (while (and (< j 
nglyphs) (setq glyph (lgstring-glyph components j)) (= (lglyph-from glyph) 
glyph-from)) (setq j (1+ j))) (if (and (= to (1+ from)) (= i (1- j)) (setq 
glyph (lgstring-glyph components i)) (= char (lglyph-char glyph))) (throw 
(quote tag) nil)) (nconc composition (list i (1- j)))) (dotimes (i (length 
components)) (if (integerp (setq ch (aref components i))) (push (cons ch 
(describe-char-display pos ch)) component-chars))) (setq component-chars 
(nreverse component-chars))) (if (< from pos) (if (< (1+ pos) to) (setcar 
composition (concat " with the surrounding characters \"" (mapconcat (quote 
describe-char-padded-string) (buffer-substring from pos) "") "\" and \"" 
(mapconcat (quote describe-char-padded-string) (buffer-substring (1+ pos) to) 
"") "\"")) (setcar composition (concat " with the preceding character(s) \"" 
(mapconcat (quote describe-char-padded-string) (buffer-substring from pos) "") 
"\""))) (if (< (1+ pos) to) (setcar composition (concat " with the following 
character(s) \"" (mapconcat (quote describe-char-padded-string) 
(buffer-substring (1+ pos) to) "") "\"")) (setcar composition nil))) (setcar 
(cdr composition) (format "composed to form \"%s\" (see below)" 
(buffer-substring from to))))
  (catch (quote tag) (let ((from (car composition)) (to (nth 1 composition)) 
(components (nth 2 composition)) ch) (if (and (vectorp components) (vectorp 
(aref components 0))) (let ((idx (- pos from)) (nglyphs (lgstring-glyph-len 
components)) (i 0) j glyph glyph-from) (while (and (< i nglyphs) (setq glyph 
(lgstring-glyph components i)) (< (lglyph-to glyph) idx)) (setq i (1+ i))) (if 
(or (not glyph) (= i nglyphs)) (throw (quote tag) nil)) (setq glyph-from 
(lglyph-from glyph) to (+ from (lglyph-to glyph) 1) from (+ from glyph-from) j 
i) (while (and (< j nglyphs) (setq glyph (lgstring-glyph components j)) (= 
(lglyph-from glyph) glyph-from)) (setq j (1+ j))) (if (and (= to (1+ from)) (= 
i (1- j)) (setq glyph (lgstring-glyph components i)) (= char (lglyph-char 
glyph))) (throw (quote tag) nil)) (nconc composition (list i (1- j)))) (dotimes 
(i (length components)) (if (integerp (setq ch (aref components i))) (push 
(cons ch (describe-char-display pos ch)) component-chars))) (setq 
component-chars (nreverse component-chars))) (if (< from pos) (if (< (1+ pos) 
to) (setcar composition (concat " with the surrounding characters \"" 
(mapconcat (quote describe-char-padded-string) (buffer-substring from pos) "") 
"\" and \"" (mapconcat (quote describe-char-padded-string) (buffer-substring 
... to) "") "\"")) (setcar composition (concat " with the preceding 
character(s) \"" (mapconcat (quote describe-char-padded-string) 
(buffer-substring from pos) "") "\""))) (if (< (1+ pos) to) (setcar composition 
(concat " with the following character(s) \"" (mapconcat (quote 
describe-char-padded-string) (buffer-substring ... to) "") "\"")) (setcar 
composition nil))) (setcar (cdr composition) (format "composed to form \"%s\" 
(see below)" (buffer-substring from to)))))
  (or (catch (quote tag) (let ((from (car composition)) (to (nth 1 
composition)) (components (nth 2 composition)) ch) (if (and (vectorp 
components) (vectorp (aref components 0))) (let ((idx (- pos from)) (nglyphs 
(lgstring-glyph-len components)) (i 0) j glyph glyph-from) (while (and (< i 
nglyphs) (setq glyph ...) (< ... idx)) (setq i (1+ i))) (if (or (not glyph) (= 
i nglyphs)) (throw (quote tag) nil)) (setq glyph-from (lglyph-from glyph) to (+ 
from (lglyph-to glyph) 1) from (+ from glyph-from) j i) (while (and (< j 
nglyphs) (setq glyph ...) (= ... glyph-from)) (setq j (1+ j))) (if (and (= to 
...) (= i ...) (setq glyph ...) (= char ...)) (throw (quote tag) nil)) (nconc 
composition (list i (1- j)))) (dotimes (i (length components)) (if (integerp 
(setq ch ...)) (push (cons ch ...) component-chars))) (setq component-chars 
(nreverse component-chars))) (if (< from pos) (if (< (1+ pos) to) (setcar 
composition (concat " with the surrounding characters \"" (mapconcat ... ... 
"") "\" and \"" (mapconcat ... ... "") "\"")) (setcar composition (concat " 
with the preceding character(s) \"" (mapconcat ... ... "") "\""))) (if (< (1+ 
pos) to) (setcar composition (concat " with the following character(s) \"" 
(mapconcat ... ... "") "\"")) (setcar composition nil))) (setcar (cdr 
composition) (format "composed to form \"%s\" (see below)" (buffer-substring 
from to))))) (setq composition nil))
  (progn (or (catch (quote tag) (let ((from (car composition)) (to (nth 1 
composition)) (components (nth 2 composition)) ch) (if (and (vectorp 
components) (vectorp (aref components 0))) (let ((idx ...) (nglyphs ...) (i 0) 
j glyph glyph-from) (while (and ... ... ...) (setq i ...)) (if (or ... ...) 
(throw ... nil)) (setq glyph-from (lglyph-from glyph) to (+ from ... 1) from (+ 
from glyph-from) j i) (while (and ... ... ...) (setq j ...)) (if (and ... ... 
... ...) (throw ... nil)) (nconc composition (list i ...))) (dotimes (i (length 
components)) (if (integerp ...) (push ... component-chars))) (setq 
component-chars (nreverse component-chars))) (if (< from pos) (if (< (1+ pos) 
to) (setcar composition (concat " with the surrounding characters \"" ... "\" 
and \"" ... "\"")) (setcar composition (concat " with the preceding 
character(s) \"" ... "\""))) (if (< (1+ pos) to) (setcar composition (concat " 
with the following character(s) \"" ... "\"")) (setcar composition nil))) 
(setcar (cdr composition) (format "composed to form \"%s\" (see below)" 
(buffer-substring from to))))) (setq composition nil)))
  (if composition (progn (or (catch (quote tag) (let ((from (car composition)) 
(to (nth 1 composition)) (components (nth 2 composition)) ch) (if (and (vectorp 
components) (vectorp ...)) (let (... ... ... j glyph glyph-from) (while ... 
...) (if ... ...) (setq glyph-from ... to ... from ... j i) (while ... ...) (if 
... ...) (nconc composition ...)) (dotimes (i ...) (if ... ...)) (setq 
component-chars (nreverse component-chars))) (if (< from pos) (if (< ... to) 
(setcar composition ...) (setcar composition ...)) (if (< ... to) (setcar 
composition ...) (setcar composition nil))) (setcar (cdr composition) (format 
"composed to form \"%s\" (see below)" (buffer-substring from to))))) (setq 
composition nil))))
  (when composition (or (catch (quote tag) (let ((from (car composition)) (to 
(nth 1 composition)) (components (nth 2 composition)) ch) (if (and (vectorp 
components) (vectorp (aref components 0))) (let ((idx ...) (nglyphs ...) (i 0) 
j glyph glyph-from) (while (and ... ... ...) (setq i ...)) (if (or ... ...) 
(throw ... nil)) (setq glyph-from (lglyph-from glyph) to (+ from ... 1) from (+ 
from glyph-from) j i) (while (and ... ... ...) (setq j ...)) (if (and ... ... 
... ...) (throw ... nil)) (nconc composition (list i ...))) (dotimes (i (length 
components)) (if (integerp ...) (push ... component-chars))) (setq 
component-chars (nreverse component-chars))) (if (< from pos) (if (< (1+ pos) 
to) (setcar composition (concat " with the surrounding characters \"" ... "\" 
and \"" ... "\"")) (setcar composition (concat " with the preceding 
character(s) \"" ... "\""))) (if (< (1+ pos) to) (setcar composition (concat " 
with the following character(s) \"" ... "\"")) (setcar composition nil))) 
(setcar (cdr composition) (format "composed to form \"%s\" (see below)" 
(buffer-substring from to))))) (setq composition nil)))
  (let* ((char (char-after pos)) (eight-bit-p (and (not 
enable-multibyte-characters) (>= char 128))) (charset (if eight-bit-p (quote 
eight-bit) (or (get-text-property pos (quote charset)) (char-charset char)))) 
(composition (find-composition pos nil nil t)) (component-chars nil) 
(display-table (or (window-display-table) buffer-display-table 
standard-display-table)) (disp-vector (and display-table (aref display-table 
char))) (multibyte-p enable-multibyte-characters) (overlays (mapcar (lambda (o) 
(overlay-properties o)) (overlays-at pos))) (char-description (if (not 
multibyte-p) (single-key-description char) (if (< char 128) 
(single-key-description char) (string-to-multibyte (char-to-string char))))) 
(text-props-desc (let ((tmp-buf (generate-new-buffer " *text-props*"))) 
(unwind-protect (progn (describe-text-properties pos tmp-buf) 
(with-current-buffer tmp-buf (buffer-string))) (kill-buffer tmp-buf)))) 
item-list max-width code) (if multibyte-p (or (setq code (encode-char char 
charset)) (setq charset (char-charset char) code (encode-char char charset))) 
(setq code char)) (when composition (or (catch (quote tag) (let ((from (car 
composition)) (to (nth 1 composition)) (components (nth 2 composition)) ch) (if 
(and (vectorp components) (vectorp ...)) (let (... ... ... j glyph glyph-from) 
(while ... ...) (if ... ...) (setq glyph-from ... to ... from ... j i) (while 
... ...) (if ... ...) (nconc composition ...)) (dotimes (i ...) (if ... ...)) 
(setq component-chars (nreverse component-chars))) (if (< from pos) (if (< ... 
to) (setcar composition ...) (setcar composition ...)) (if (< ... to) (setcar 
composition ...) (setcar composition nil))) (setcar (cdr composition) (format 
"composed to form \"%s\" (see below)" (buffer-substring from to))))) (setq 
composition nil))) (setq item-list (\` (("character" (\, (format "%s (%d, #o%o, 
#x%x)" (apply ... char-description ...) char char char))) ("preferred charset" 
(\, (\` (insert-text-button ... ... ... ... ...))) (\, (format "(%s)" 
(charset-description charset)))) ("code point" (\, (let (...) (if ... ... 
str)))) ("syntax" (\, (let (...) (with-temp-buffer ... ...)))) ("category" (\,@ 
(if (not eight-bit-p) (let ... ...)))) ("to input" (\,@ (if (not eight-bit-p) 
(let ... ...)))) ("buffer code" (\, (if multibyte-p (encoded-string-description 
... nil) (format "#x%02X" char)))) ("file code" (\,@ (if multibyte-p (let* ... 
...) (list ...)))) ("display" (\, (cond (disp-vector ... ... ...) (composition 
...) (t ...)))) (\,@ (let ((face ...)) (if face (list ...)))) (\,@ (if (not 
eight-bit-p) (let (...) (if unicodedata ...))))))) (setq max-width (apply 
(quote max) (mapcar (lambda (x) (if (cadr x) (length (car x)) 0)) item-list))) 
(set-buffer src-buf) (help-setup-xref (list (quote describe-char) pos buffer) 
(called-interactively-p (quote interactive))) (with-help-window (help-buffer) 
(with-current-buffer standard-output (set-buffer-multibyte multibyte-p) (let 
((formatter (format "%%%ds:" max-width))) (dolist (elt item-list) (when (cadr 
elt) (insert (format formatter ...)) (dolist (clm ...) (if ... ... ... ...)) 
(insert "\n")))) (when overlays (save-excursion (goto-char (point-min)) 
(re-search-forward "character:[     \n]+") (let ((end ...)) (mapc (lambda ... 
...) overlays)))) (when disp-vector (insert "\nThe display table entry is 
displayed by ") (if (display-graphic-p (selected-frame)) (progn (insert "these 
fonts (glyph codes):\n") (dotimes (i ...) (insert ... 58 ... ... "\n") (let ... 
...))) (insert "these terminal codes:\n") (dotimes (i (length disp-vector)) 
(insert (car ...) (propertize " " ... ...) (or ... "-- not encodable --") 
"\n")))) (when composition (insert "\nComposed") (if (car composition) (insert 
(car composition))) (if (and (vectorp (nth 2 composition)) (vectorp (aref ... 
0))) (let* ((gstring ...) (font ...) (from ...) (to ...) glyph) (if (fontp 
font) (progn ... ...) (insert " by these characters:\n") (while ... ... ...))) 
(insert " by the rule:\n        (") (let ((first t)) (mapc (lambda ... ... ...) 
(nth 2 composition))) (insert ")\nThe component character(s) are displayed by 
") (if (display-graphic-p (selected-frame)) (progn (insert "these fonts (glyph 
codes):") (dolist ... ...)) (insert "these terminal codes:") (dolist (elt 
component-chars) (insert "\n  " ... ":" ... ...))) (insert "\nSee the variable 
`reference-point-alist' for " "the meaning of the rule.\n"))) (unless 
eight-bit-p (insert (if (not describe-char-unidata-list) "\nCharacter code 
properties are not shown: " "\nCharacter code properties: ")) 
(insert-text-button "customize what to show" (quote action) (lambda (&rest 
_ignore) (customize-variable (quote describe-char-unidata-list))) (quote 
follow-link) t) (insert "\n") (dolist (elt (if (eq describe-char-unidata-list 
t) (nreverse ...) describe-char-unidata-list)) (let ((val ...) description) 
(when val (setq description ...) (insert ...))))) (if text-props-desc (insert 
text-props-desc)) (toggle-read-only 1))))
  (let ((src-buf (current-buffer))) (set-buffer buffer) (if (>= pos 
(point-max)) (error "No character follows specified position")) (let* ((char 
(char-after pos)) (eight-bit-p (and (not enable-multibyte-characters) (>= char 
128))) (charset (if eight-bit-p (quote eight-bit) (or (get-text-property pos 
(quote charset)) (char-charset char)))) (composition (find-composition pos nil 
nil t)) (component-chars nil) (display-table (or (window-display-table) 
buffer-display-table standard-display-table)) (disp-vector (and display-table 
(aref display-table char))) (multibyte-p enable-multibyte-characters) (overlays 
(mapcar (lambda (o) (overlay-properties o)) (overlays-at pos))) 
(char-description (if (not multibyte-p) (single-key-description char) (if (< 
char 128) (single-key-description char) (string-to-multibyte (char-to-string 
char))))) (text-props-desc (let ((tmp-buf (generate-new-buffer " 
*text-props*"))) (unwind-protect (progn (describe-text-properties pos tmp-buf) 
(with-current-buffer tmp-buf ...)) (kill-buffer tmp-buf)))) item-list max-width 
code) (if multibyte-p (or (setq code (encode-char char charset)) (setq charset 
(char-charset char) code (encode-char char charset))) (setq code char)) (when 
composition (or (catch (quote tag) (let ((from ...) (to ...) (components ...) 
ch) (if (and ... ...) (let ... ... ... ... ... ... ...) (dotimes ... ...) (setq 
component-chars ...)) (if (< from pos) (if ... ... ...) (if ... ... ...)) 
(setcar (cdr composition) (format "composed to form \"%s\" (see below)" ...)))) 
(setq composition nil))) (setq item-list (\` (("character" (\, (format "%s (%d, 
#o%o, #x%x)" ... char char char))) ("preferred charset" (\, (\` ...)) (\, 
(format "(%s)" ...))) ("code point" (\, (let ... ...))) ("syntax" (\, (let ... 
...))) ("category" (\,@ (if ... ...))) ("to input" (\,@ (if ... ...))) ("buffer 
code" (\, (if multibyte-p ... ...))) ("file code" (\,@ (if multibyte-p ... 
...))) ("display" (\, (cond ... ... ...))) (\,@ (let (...) (if face ...))) (\,@ 
(if (not eight-bit-p) (let ... ...)))))) (setq max-width (apply (quote max) 
(mapcar (lambda (x) (if (cadr x) (length ...) 0)) item-list))) (set-buffer 
src-buf) (help-setup-xref (list (quote describe-char) pos buffer) 
(called-interactively-p (quote interactive))) (with-help-window (help-buffer) 
(with-current-buffer standard-output (set-buffer-multibyte multibyte-p) (let 
((formatter (format "%%%ds:" max-width))) (dolist (elt item-list) (when (cadr 
elt) (insert ...) (dolist ... ...) (insert "\n")))) (when overlays 
(save-excursion (goto-char (point-min)) (re-search-forward "character:[       
\n]+") (let (...) (mapc ... overlays)))) (when disp-vector (insert "\nThe 
display table entry is displayed by ") (if (display-graphic-p (selected-frame)) 
(progn (insert "these fonts (glyph codes):\n") (dotimes ... ... ...)) (insert 
"these terminal codes:\n") (dotimes (i ...) (insert ... ... ... "\n")))) (when 
composition (insert "\nComposed") (if (car composition) (insert (car 
composition))) (if (and (vectorp ...) (vectorp ...)) (let* (... ... ... ... 
glyph) (if ... ... ... ...)) (insert " by the rule:\n   (") (let (...) (mapc 
... ...)) (insert ")\nThe component character(s) are displayed by ") (if 
(display-graphic-p ...) (progn ... ...) (insert "these terminal codes:") 
(dolist ... ...)) (insert "\nSee the variable `reference-point-alist' for " 
"the meaning of the rule.\n"))) (unless eight-bit-p (insert (if (not 
describe-char-unidata-list) "\nCharacter code properties are not shown: " 
"\nCharacter code properties: ")) (insert-text-button "customize what to show" 
(quote action) (lambda (&rest _ignore) (customize-variable ...)) (quote 
follow-link) t) (insert "\n") (dolist (elt (if ... ... 
describe-char-unidata-list)) (let (... description) (when val ... ...)))) (if 
text-props-desc (insert text-props-desc)) (toggle-read-only 1)))))
  describe-char(192)
  what-cursor-position((4))
  call-interactively(what-cursor-position nil nil)


In GNU Emacs 24.0.50.1 (x86_64-pc-linux-gnu, X toolkit)
 of 2011-07-26 on juno
configured using `configure  '--prefix=/usr' '--build=x86_64-pc-linux-gnu' 
'--host=x86_64-pc-linux-gnu' '--mandir=/usr/share/man' 
'--infodir=/usr/share/info' '--datadir=/usr/share' '--sysconfdir=/etc' 
'--localstatedir=/var/lib' '--libdir=/usr/lib64' 
'--disable-dependency-tracking' '--program-suffix=-emacs-24' 
'--infodir=/usr/share/info/emacs-24' 
'--with-crt-dir=/usr/lib/gcc/x86_64-pc-linux-gnu/4.5.2/../../../../lib64' 
'--with-gameuser=games' '--without-compress-info' '--without-hesiod' 
'--without-kerberos' '--without-kerberos5' '--with-gpm' '--with-dbus' 
'--without-gnutls' '--without-selinux' '--with-sound' '--with-x' 
'--without-xml2' '--without-toolkit-scroll-bars' '--without-wide-int' 
'--with-gif' '--with-jpeg' '--with-png' '--with-rsvg' '--with-tiff' 
'--with-xpm' '--with-imagemagick' '--without-gsettings' '--with-gconf' 
'--with-xft' '--without-libotf' '--without-m17n-flt' '--with-x-toolkit=athena' 
'build_alias=x86_64-pc-linux-gnu' 'host_alias=x86_64-pc-linux-gnu' 
'CFLAGS=-march=core2 -ggdb -O2 -pipe' 'LDFLAGS=-Wl,-O1 -Wl,--as-needed''

Important settings:
  value of $LC_ALL: nil
  value of $LC_COLLATE: nil
  value of $LC_CTYPE: nil
  value of $LC_MESSAGES: nil
  value of $LC_MONETARY: nil
  value of $LC_NUMERIC: nil
  value of $LC_TIME: nil
  value of $LANG: en_US.UTF-8
  value of $XMODIFIERS: nil
  locale-coding-system: utf-8-unix
  default enable-multibyte-characters: t

Major mode: Lisp Interaction

Minor modes in effect:
  tooltip-mode: t
  mouse-wheel-mode: t
  tool-bar-mode: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  auto-composition-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t
  line-number-mode: t
  transient-mark-mode: t

Recent input:
ESC [ > 0 ; 2 7 0 ; 0 c a C-x 8 RET c o m b i n i n 
g SPC d i a e r e s i s RET C-b C-u C-x = ESC x r e 
p o r t - e m a c s - b u g RET

Recent messages:
("emacs")
For information about GNU Emacs and the GNU system, type C-h C-a.
describe-char-padded-string: Wrong type argument: sequencep, 38

Load-path shadows:
/usr/share/emacs/site-lisp/org-mode/org-docbook hides 
/usr/share/emacs/24.0.50/lisp/org/org-docbook
/usr/share/emacs/site-lisp/org-mode/ob-ditaa hides 
/usr/share/emacs/24.0.50/lisp/org/ob-ditaa
/usr/share/emacs/site-lisp/org-mode/org-info hides 
/usr/share/emacs/24.0.50/lisp/org/org-info
/usr/share/emacs/site-lisp/org-mode/ob hides 
/usr/share/emacs/24.0.50/lisp/org/ob
/usr/share/emacs/site-lisp/org-mode/ob-emacs-lisp hides 
/usr/share/emacs/24.0.50/lisp/org/ob-emacs-lisp
/usr/share/emacs/site-lisp/org-mode/org-colview hides 
/usr/share/emacs/24.0.50/lisp/org/org-colview
/usr/share/emacs/site-lisp/org-mode/ob-gnuplot hides 
/usr/share/emacs/24.0.50/lisp/org/ob-gnuplot
/usr/share/emacs/site-lisp/org-mode/org-indent hides 
/usr/share/emacs/24.0.50/lisp/org/org-indent
/usr/share/emacs/site-lisp/org-mode/org-vm hides 
/usr/share/emacs/24.0.50/lisp/org/org-vm
/usr/share/emacs/site-lisp/org-mode/org-ctags hides 
/usr/share/emacs/24.0.50/lisp/org/org-ctags
/usr/share/emacs/site-lisp/org-mode/ob-lisp hides 
/usr/share/emacs/24.0.50/lisp/org/ob-lisp
/usr/share/emacs/site-lisp/org-mode/ob-ruby hides 
/usr/share/emacs/24.0.50/lisp/org/ob-ruby
/usr/share/emacs/site-lisp/org-mode/org-datetree hides 
/usr/share/emacs/24.0.50/lisp/org/org-datetree
/usr/share/emacs/site-lisp/org-mode/org hides 
/usr/share/emacs/24.0.50/lisp/org/org
/usr/share/emacs/site-lisp/org-mode/ob-haskell hides 
/usr/share/emacs/24.0.50/lisp/org/ob-haskell
/usr/share/emacs/site-lisp/org-mode/org-bbdb hides 
/usr/share/emacs/24.0.50/lisp/org/org-bbdb
/usr/share/emacs/site-lisp/org-mode/org-gnus hides 
/usr/share/emacs/24.0.50/lisp/org/org-gnus
/usr/share/emacs/site-lisp/org-mode/ob-ref hides 
/usr/share/emacs/24.0.50/lisp/org/ob-ref
/usr/share/emacs/site-lisp/org-mode/ob-clojure hides 
/usr/share/emacs/24.0.50/lisp/org/ob-clojure
/usr/share/emacs/site-lisp/org-mode/ob-R hides 
/usr/share/emacs/24.0.50/lisp/org/ob-R
/usr/share/emacs/site-lisp/org-mode/ob-sass hides 
/usr/share/emacs/24.0.50/lisp/org/ob-sass
/usr/share/emacs/site-lisp/org-mode/org-id hides 
/usr/share/emacs/24.0.50/lisp/org/org-id
/usr/share/emacs/site-lisp/org-mode/ob-perl hides 
/usr/share/emacs/24.0.50/lisp/org/ob-perl
/usr/share/emacs/site-lisp/org-mode/org-latex hides 
/usr/share/emacs/24.0.50/lisp/org/org-latex
/usr/share/emacs/site-lisp/org-mode/org-exp hides 
/usr/share/emacs/24.0.50/lisp/org/org-exp
/usr/share/emacs/site-lisp/org-mode/ob-tangle hides 
/usr/share/emacs/24.0.50/lisp/org/ob-tangle
/usr/share/emacs/site-lisp/org-mode/org-exp-blocks hides 
/usr/share/emacs/24.0.50/lisp/org/org-exp-blocks
/usr/share/emacs/site-lisp/org-mode/org-faces hides 
/usr/share/emacs/24.0.50/lisp/org/org-faces
/usr/share/emacs/site-lisp/org-mode/org-compat hides 
/usr/share/emacs/24.0.50/lisp/org/org-compat
/usr/share/emacs/site-lisp/org-mode/org-w3m hides 
/usr/share/emacs/24.0.50/lisp/org/org-w3m
/usr/share/emacs/site-lisp/org-mode/org-install hides 
/usr/share/emacs/24.0.50/lisp/org/org-install
/usr/share/emacs/site-lisp/org-mode/ob-dot hides 
/usr/share/emacs/24.0.50/lisp/org/ob-dot
/usr/share/emacs/site-lisp/org-mode/org-beamer hides 
/usr/share/emacs/24.0.50/lisp/org/org-beamer
/usr/share/emacs/site-lisp/org-mode/ob-asymptote hides 
/usr/share/emacs/24.0.50/lisp/org/ob-asymptote
/usr/share/emacs/site-lisp/org-mode/org-taskjuggler hides 
/usr/share/emacs/24.0.50/lisp/org/org-taskjuggler
/usr/share/emacs/site-lisp/org-mode/org-clock hides 
/usr/share/emacs/24.0.50/lisp/org/org-clock
/usr/share/emacs/site-lisp/org-mode/ob-latex hides 
/usr/share/emacs/24.0.50/lisp/org/ob-latex
/usr/share/emacs/site-lisp/org-mode/org-timer hides 
/usr/share/emacs/24.0.50/lisp/org/org-timer
/usr/share/emacs/site-lisp/org-mode/org-crypt hides 
/usr/share/emacs/24.0.50/lisp/org/org-crypt
/usr/share/emacs/site-lisp/org-mode/ob-exp hides 
/usr/share/emacs/24.0.50/lisp/org/ob-exp
/usr/share/emacs/site-lisp/org-mode/ob-ledger hides 
/usr/share/emacs/24.0.50/lisp/org/ob-ledger
/usr/share/emacs/site-lisp/org-mode/ob-keys hides 
/usr/share/emacs/24.0.50/lisp/org/ob-keys
/usr/share/emacs/site-lisp/org-mode/ob-table hides 
/usr/share/emacs/24.0.50/lisp/org/ob-table
/usr/share/emacs/site-lisp/org-mode/org-inlinetask hides 
/usr/share/emacs/24.0.50/lisp/org/org-inlinetask
/usr/share/emacs/site-lisp/org-mode/org-mhe hides 
/usr/share/emacs/24.0.50/lisp/org/org-mhe
/usr/share/emacs/site-lisp/org-mode/ob-ocaml hides 
/usr/share/emacs/24.0.50/lisp/org/ob-ocaml
/usr/share/emacs/site-lisp/org-mode/ob-python hides 
/usr/share/emacs/24.0.50/lisp/org/ob-python
/usr/share/emacs/site-lisp/org-mode/ob-calc hides 
/usr/share/emacs/24.0.50/lisp/org/ob-calc
/usr/share/emacs/site-lisp/org-mode/org-macs hides 
/usr/share/emacs/24.0.50/lisp/org/org-macs
/usr/share/emacs/site-lisp/org-mode/org-archive hides 
/usr/share/emacs/24.0.50/lisp/org/org-archive
/usr/share/emacs/site-lisp/org-mode/ob-sql hides 
/usr/share/emacs/24.0.50/lisp/org/ob-sql
/usr/share/emacs/site-lisp/org-mode/org-wl hides 
/usr/share/emacs/24.0.50/lisp/org/org-wl
/usr/share/emacs/site-lisp/org-mode/ob-matlab hides 
/usr/share/emacs/24.0.50/lisp/org/ob-matlab
/usr/share/emacs/site-lisp/org-mode/org-mouse hides 
/usr/share/emacs/24.0.50/lisp/org/org-mouse
/usr/share/emacs/site-lisp/org-mode/org-rmail hides 
/usr/share/emacs/24.0.50/lisp/org/org-rmail
/usr/share/emacs/site-lisp/org-mode/org-docview hides 
/usr/share/emacs/24.0.50/lisp/org/org-docview
/usr/share/emacs/site-lisp/org-mode/ob-C hides 
/usr/share/emacs/24.0.50/lisp/org/ob-C
/usr/share/emacs/site-lisp/org-mode/ob-js hides 
/usr/share/emacs/24.0.50/lisp/org/ob-js
/usr/share/emacs/site-lisp/org-mode/org-footnote hides 
/usr/share/emacs/24.0.50/lisp/org/org-footnote
/usr/share/emacs/site-lisp/org-mode/ob-eval hides 
/usr/share/emacs/24.0.50/lisp/org/ob-eval
/usr/share/emacs/site-lisp/org-mode/org-icalendar hides 
/usr/share/emacs/24.0.50/lisp/org/org-icalendar
/usr/share/emacs/site-lisp/org-mode/org-list hides 
/usr/share/emacs/24.0.50/lisp/org/org-list
/usr/share/emacs/site-lisp/org-mode/ob-octave hides 
/usr/share/emacs/24.0.50/lisp/org/ob-octave
/usr/share/emacs/site-lisp/org-mode/org-habit hides 
/usr/share/emacs/24.0.50/lisp/org/org-habit
/usr/share/emacs/site-lisp/org-mode/ob-sqlite hides 
/usr/share/emacs/24.0.50/lisp/org/ob-sqlite
/usr/share/emacs/site-lisp/org-mode/org-capture hides 
/usr/share/emacs/24.0.50/lisp/org/org-capture
/usr/share/emacs/site-lisp/org-mode/org-plot hides 
/usr/share/emacs/24.0.50/lisp/org/org-plot
/usr/share/emacs/site-lisp/org-mode/org-html hides 
/usr/share/emacs/24.0.50/lisp/org/org-html
/usr/share/emacs/site-lisp/org-mode/ob-mscgen hides 
/usr/share/emacs/24.0.50/lisp/org/ob-mscgen
/usr/share/emacs/site-lisp/org-mode/org-mobile hides 
/usr/share/emacs/24.0.50/lisp/org/org-mobile
/usr/share/emacs/site-lisp/org-mode/org-xoxo hides 
/usr/share/emacs/24.0.50/lisp/org/org-xoxo
/usr/share/emacs/site-lisp/org-mode/ob-comint hides 
/usr/share/emacs/24.0.50/lisp/org/ob-comint
/usr/share/emacs/site-lisp/org-mode/ob-screen hides 
/usr/share/emacs/24.0.50/lisp/org/ob-screen
/usr/share/emacs/site-lisp/org-mode/org-protocol hides 
/usr/share/emacs/24.0.50/lisp/org/org-protocol
/usr/share/emacs/site-lisp/org-mode/ob-sh hides 
/usr/share/emacs/24.0.50/lisp/org/ob-sh
/usr/share/emacs/site-lisp/org-mode/org-freemind hides 
/usr/share/emacs/24.0.50/lisp/org/org-freemind
/usr/share/emacs/site-lisp/org-mode/ob-org hides 
/usr/share/emacs/24.0.50/lisp/org/ob-org
/usr/share/emacs/site-lisp/org-mode/org-mew hides 
/usr/share/emacs/24.0.50/lisp/org/org-mew
/usr/share/emacs/site-lisp/org-mode/org-agenda hides 
/usr/share/emacs/24.0.50/lisp/org/org-agenda
/usr/share/emacs/site-lisp/org-mode/org-irc hides 
/usr/share/emacs/24.0.50/lisp/org/org-irc
/usr/share/emacs/site-lisp/org-mode/org-table hides 
/usr/share/emacs/24.0.50/lisp/org/org-table
/usr/share/emacs/site-lisp/org-mode/ob-scheme hides 
/usr/share/emacs/24.0.50/lisp/org/ob-scheme
/usr/share/emacs/site-lisp/org-mode/org-mks hides 
/usr/share/emacs/24.0.50/lisp/org/org-mks
/usr/share/emacs/site-lisp/org-mode/org-entities hides 
/usr/share/emacs/24.0.50/lisp/org/org-entities
/usr/share/emacs/site-lisp/org-mode/org-mac-message hides 
/usr/share/emacs/24.0.50/lisp/org/org-mac-message
/usr/share/emacs/site-lisp/org-mode/org-feed hides 
/usr/share/emacs/24.0.50/lisp/org/org-feed
/usr/share/emacs/site-lisp/org-mode/org-bibtex hides 
/usr/share/emacs/24.0.50/lisp/org/org-bibtex
/usr/share/emacs/site-lisp/org-mode/org-src hides 
/usr/share/emacs/24.0.50/lisp/org/org-src
/usr/share/emacs/site-lisp/org-mode/ob-plantuml hides 
/usr/share/emacs/24.0.50/lisp/org/ob-plantuml
/usr/share/emacs/site-lisp/org-mode/org-attach hides 
/usr/share/emacs/24.0.50/lisp/org/org-attach
/usr/share/emacs/site-lisp/org-mode/org-remember hides 
/usr/share/emacs/24.0.50/lisp/org/org-remember
/usr/share/emacs/site-lisp/org-mode/ob-lob hides 
/usr/share/emacs/24.0.50/lisp/org/ob-lob
/usr/share/emacs/site-lisp/org-mode/org-jsinfo hides 
/usr/share/emacs/24.0.50/lisp/org/org-jsinfo
/usr/share/emacs/site-lisp/org-mode/org-publish hides 
/usr/share/emacs/24.0.50/lisp/org/org-publish
/usr/share/emacs/site-lisp/org-mode/org-ascii hides 
/usr/share/emacs/24.0.50/lisp/org/org-ascii
/usr/share/emacs/site-lisp/org-mode/ob-css hides 
/usr/share/emacs/24.0.50/lisp/org/ob-css
/usr/share/emacs/site-lisp/nxml-mode/nxml-parse hides 
/usr/share/emacs/24.0.50/lisp/nxml/nxml-parse
/usr/share/emacs/site-lisp/nxml-mode/nxml-ns hides 
/usr/share/emacs/24.0.50/lisp/nxml/nxml-ns
/usr/share/emacs/site-lisp/nxml-mode/rng-nxml hides 
/usr/share/emacs/24.0.50/lisp/nxml/rng-nxml
/usr/share/emacs/site-lisp/nxml-mode/nxml-outln hides 
/usr/share/emacs/24.0.50/lisp/nxml/nxml-outln
/usr/share/emacs/site-lisp/nxml-mode/nxml-enc hides 
/usr/share/emacs/24.0.50/lisp/nxml/nxml-enc
/usr/share/emacs/site-lisp/nxml-mode/rng-dt hides 
/usr/share/emacs/24.0.50/lisp/nxml/rng-dt
/usr/share/emacs/site-lisp/nxml-mode/rng-valid hides 
/usr/share/emacs/24.0.50/lisp/nxml/rng-valid
/usr/share/emacs/site-lisp/nxml-mode/rng-uri hides 
/usr/share/emacs/24.0.50/lisp/nxml/rng-uri
/usr/share/emacs/site-lisp/nxml-mode/rng-maint hides 
/usr/share/emacs/24.0.50/lisp/nxml/rng-maint
/usr/share/emacs/site-lisp/nxml-mode/rng-cmpct hides 
/usr/share/emacs/24.0.50/lisp/nxml/rng-cmpct
/usr/share/emacs/site-lisp/nxml-mode/rng-loc hides 
/usr/share/emacs/24.0.50/lisp/nxml/rng-loc
/usr/share/emacs/site-lisp/nxml-mode/nxml-util hides 
/usr/share/emacs/24.0.50/lisp/nxml/nxml-util
/usr/share/emacs/site-lisp/nxml-mode/xmltok hides 
/usr/share/emacs/24.0.50/lisp/nxml/xmltok
/usr/share/emacs/site-lisp/nxml-mode/nxml-rap hides 
/usr/share/emacs/24.0.50/lisp/nxml/nxml-rap
/usr/share/emacs/site-lisp/nxml-mode/nxml-uchnm hides 
/usr/share/emacs/24.0.50/lisp/nxml/nxml-uchnm
/usr/share/emacs/site-lisp/nxml-mode/rng-match hides 
/usr/share/emacs/24.0.50/lisp/nxml/rng-match
/usr/share/emacs/site-lisp/nxml-mode/rng-parse hides 
/usr/share/emacs/24.0.50/lisp/nxml/rng-parse
/usr/share/emacs/site-lisp/nxml-mode/rng-util hides 
/usr/share/emacs/24.0.50/lisp/nxml/rng-util
/usr/share/emacs/site-lisp/nxml-mode/rng-pttrn hides 
/usr/share/emacs/24.0.50/lisp/nxml/rng-pttrn
/usr/share/emacs/site-lisp/nxml-mode/xsd-regexp hides 
/usr/share/emacs/24.0.50/lisp/nxml/xsd-regexp
/usr/share/emacs/site-lisp/nxml-mode/nxml-mode hides 
/usr/share/emacs/24.0.50/lisp/nxml/nxml-mode
/usr/share/emacs/site-lisp/nxml-mode/nxml-maint hides 
/usr/share/emacs/24.0.50/lisp/nxml/nxml-maint
/usr/share/emacs/site-lisp/nxml-mode/nxml-glyph hides 
/usr/share/emacs/24.0.50/lisp/nxml/nxml-glyph
/usr/share/emacs/site-lisp/nxml-mode/rng-xsd hides 
/usr/share/emacs/24.0.50/lisp/nxml/rng-xsd
/usr/share/emacs/site-lisp/mairix/mairix hides 
/usr/share/emacs/24.0.50/lisp/net/mairix
/usr/share/emacs/site-lisp/erc/erc-replace hides 
/usr/share/emacs/24.0.50/lisp/erc/erc-replace
/usr/share/emacs/site-lisp/erc/erc-compat hides 
/usr/share/emacs/24.0.50/lisp/erc/erc-compat
/usr/share/emacs/site-lisp/erc/erc-identd hides 
/usr/share/emacs/24.0.50/lisp/erc/erc-identd
/usr/share/emacs/site-lisp/erc/erc-netsplit hides 
/usr/share/emacs/24.0.50/lisp/erc/erc-netsplit
/usr/share/emacs/site-lisp/erc/erc-autoaway hides 
/usr/share/emacs/24.0.50/lisp/erc/erc-autoaway
/usr/share/emacs/site-lisp/erc/erc-speedbar hides 
/usr/share/emacs/24.0.50/lisp/erc/erc-speedbar
/usr/share/emacs/site-lisp/erc/erc-fill hides 
/usr/share/emacs/24.0.50/lisp/erc/erc-fill
/usr/share/emacs/site-lisp/erc/erc-track hides 
/usr/share/emacs/24.0.50/lisp/erc/erc-track
/usr/share/emacs/site-lisp/erc/erc-join hides 
/usr/share/emacs/24.0.50/lisp/erc/erc-join
/usr/share/emacs/site-lisp/erc/erc-networks hides 
/usr/share/emacs/24.0.50/lisp/erc/erc-networks
/usr/share/emacs/site-lisp/erc/erc-backend hides 
/usr/share/emacs/24.0.50/lisp/erc/erc-backend
/usr/share/emacs/site-lisp/erc/erc-ibuffer hides 
/usr/share/emacs/24.0.50/lisp/erc/erc-ibuffer
/usr/share/emacs/site-lisp/erc/erc-imenu hides 
/usr/share/emacs/24.0.50/lisp/erc/erc-imenu
/usr/share/emacs/site-lisp/erc/erc-xdcc hides 
/usr/share/emacs/24.0.50/lisp/erc/erc-xdcc
/usr/share/emacs/site-lisp/erc/erc-log hides 
/usr/share/emacs/24.0.50/lisp/erc/erc-log
/usr/share/emacs/site-lisp/erc/erc-capab hides 
/usr/share/emacs/24.0.50/lisp/erc/erc-capab
/usr/share/emacs/site-lisp/erc/erc-lang hides 
/usr/share/emacs/24.0.50/lisp/erc/erc-lang
/usr/share/emacs/site-lisp/erc/erc-ring hides 
/usr/share/emacs/24.0.50/lisp/erc/erc-ring
/usr/share/emacs/site-lisp/erc/erc-pcomplete hides 
/usr/share/emacs/24.0.50/lisp/erc/erc-pcomplete
/usr/share/emacs/site-lisp/erc/erc-page hides 
/usr/share/emacs/24.0.50/lisp/erc/erc-page
/usr/share/emacs/site-lisp/erc/erc-truncate hides 
/usr/share/emacs/24.0.50/lisp/erc/erc-truncate
/usr/share/emacs/site-lisp/erc/erc-notify hides 
/usr/share/emacs/24.0.50/lisp/erc/erc-notify
/usr/share/emacs/site-lisp/erc/erc-goodies hides 
/usr/share/emacs/24.0.50/lisp/erc/erc-goodies
/usr/share/emacs/site-lisp/erc/erc-spelling hides 
/usr/share/emacs/24.0.50/lisp/erc/erc-spelling
/usr/share/emacs/site-lisp/erc/erc hides /usr/share/emacs/24.0.50/lisp/erc/erc
/usr/share/emacs/site-lisp/erc/erc-menu hides 
/usr/share/emacs/24.0.50/lisp/erc/erc-menu
/usr/share/emacs/site-lisp/erc/erc-dcc hides 
/usr/share/emacs/24.0.50/lisp/erc/erc-dcc
/usr/share/emacs/site-lisp/erc/erc-stamp hides 
/usr/share/emacs/24.0.50/lisp/erc/erc-stamp
/usr/share/emacs/site-lisp/erc/erc-list hides 
/usr/share/emacs/24.0.50/lisp/erc/erc-list
/usr/share/emacs/site-lisp/erc/erc-ezbounce hides 
/usr/share/emacs/24.0.50/lisp/erc/erc-ezbounce
/usr/share/emacs/site-lisp/erc/erc-services hides 
/usr/share/emacs/24.0.50/lisp/erc/erc-services
/usr/share/emacs/site-lisp/erc/erc-button hides 
/usr/share/emacs/24.0.50/lisp/erc/erc-button
/usr/share/emacs/site-lisp/erc/erc-match hides 
/usr/share/emacs/24.0.50/lisp/erc/erc-match
/usr/share/emacs/site-lisp/erc/erc-sound hides 
/usr/share/emacs/24.0.50/lisp/erc/erc-sound
/usr/share/emacs/site-lisp/erc/erc-hecomplete hides 
/usr/share/emacs/24.0.50/lisp/obsolete/erc-hecomplete

Features:
(shadow sort gnus-util mail-extr message format-spec rfc822 mml mml-sec
mm-decode mm-bodies mm-encode mail-parse rfc2231 rfc2047 rfc2045
ietf-drums mm-util mail-prsvr mailabbrev mail-utils gmm-utils mailheader
emacsbug pp wid-edit descr-text help-mode easymenu view iso-transl
time-date tooltip ediff-hook vc-hooks lisp-float-type mwheel x-win x-dnd
tool-bar dnd fontset image fringe lisp-mode register page menu-bar
rfn-eshadow timer select scroll-bar mouse jit-lock font-lock syntax
facemenu font-core frame cham georgian utf-8-lang misc-lang vietnamese
tibetan thai tai-viet lao korean japanese hebrew greek romanian slovak
czech european ethiopic indian cyrillic chinese case-table epa-hook
jka-cmpr-hook help simple abbrev minibuffer loaddefs button faces
cus-face files text-properties overlay sha1 md5 base64 format env
code-pages mule custom widget hashtable-print-readable backquote
make-network-process dbusbind dynamic-setting system-font-setting
font-render-setting x-toolkit x multi-tty emacs)