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

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)

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

[Eli Zaretskii]

> Date: Tue, 26 Jul 2011 08:44:51 +0200
> From: Ulrich Mueller <ulm@gentoo.org>
> 
> 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"

FWIW, I cannot reproduce this (also on an x86_64 GNU/Linux system),
neither in Emacs 23 nor with today's trunk.  In fact,
internal-char-font doesn't even get called here with this recipe.  I
guess this has something to do with local system differences, and
perhaps with configure-time options.

Hopefully, the backtrace will allow to solve this nonetheless.

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

[Andreas Schwab]

Should be fixed now.

Andreas.

-- 
Andreas Schwab, schwab@linux-m68k.org
GPG Key fingerprint = 58CA 54C7 6D53 942B 1756  01D3 44D5 214B 8276 4ED5
"And now for something completely different."

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

[Eli Zaretskii]

> From: Andreas Schwab <schwab@linux-m68k.org>
> Date: Tue, 26 Jul 2011 13:04:52 +0200
> Cc: 9172-done@debbugs.gnu.org
> 
> Should be fixed now.

"bzr up" doesn't bring any revisions.  Are you sure your commit
succeeded?

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

[Juanma Barranquero]

On Tue, Jul 26, 2011 at 15:19, Eli Zaretskii <eliz@gnu.org> wrote:

> "bzr up" doesn't bring any revisions.  Are you sure your commit
> succeeded?

Perhaps this in emacs-23?

revno: 100616
committer: Andreas Schwab <schwab@linux-m68k.org>
branch nick: emacs
timestamp: Tue 2011-07-26 13:00:23 +0200
message:
  * fontset.c (fontset_get_font_group): Add proper type checks.
  (Bug#9172)

    Juanma