bug#19903: 24.4; Emacs fails to save enriched buffer with error message `wrong-type-argument symbolp "bold"'

[Jorge <jorge13515@gmail.com>]

[-- Attachment #1: Type: text/plain, Size: 3957 bytes --]

Download the attached files to the same directory.  In GNU Bash, with that
directory current, run
emacs -Q --script bug_script.el &> bug_output.txt

I ran the above command for emacs versions 24.4.1 and 24.4.90.  The output
is in `bug_output_24.4.1.txt' and `bug_output_24.4.90.txt' respectively.  The
bug manifests in both tested Emacs versions.
To compose the initial draft of this bug report, I ran
emacs -Q -l bug_script.el
and then called `report-emacs-bug' with the enriched buffer that fails to be
saved as the current buffer.

So, the input file (`enriched_bug_orig.txt') is in enriched mode, and consists
of one `0' followed by newlines.  I expected Emacs to write the buffer to
`enriched_bug_edited.txt', make the `0' bold, and save the buffer.  In
practice, Emacs does make the `0' bold, but then fails to save the buffer.  The
second line of bug_script.el is `(toggle-debug-on-error)' so Emacs should have
provided useful information.

In GNU Emacs 24.4.1 (x86_64-unknown-linux-gnu, GTK+ Version 3.12.2) of
 2015-01-15 on jorge-Notebook-HP-G42
Windowing system distributor `The X.Org Foundation', version 11.0.11600000
System Description: Ubuntu 14.10

Configured using:
 `configure --prefix=/usr/local/emacs'

Important settings:
  value of $LC_MONETARY: pt_BR.UTF-8
  value of $LC_NUMERIC: pt_BR.UTF-8
  value of $LC_TIME: pt_BR.UTF-8
  value of $LANG: en_US.UTF-8
  value of $XMODIFIERS: @im=ibus
  locale-coding-system: utf-8-unix

Major mode: Text

Minor modes in effect:
  enriched-mode: t
  tooltip-mode: t
  electric-indent-mode: t
  mouse-wheel-mode: t
  tool-bar-mode: t
  use-hard-newlines: t
  menu-bar-mode: t
  file-name-shadow-mode: t
  global-font-lock-mode: t
  font-lock-mode: t
  blink-cursor-mode: t
  auto-composition-mode: t
  auto-encryption-mode: t
  auto-compression-mode: t
  line-number-mode: t
  transient-mark-mode: t

Recent input:
C-x o C-x o C-x C-f ~ / D e s k <tab> t r a b a l h
o <tab> <return> C-x o M-x r e p o r t - e m <tab>
<return> C-g C-x o C-x 3 C-x o C-x C-f C-g C-x b <return>
C-f C-SPC C-e C-b M-w C-x o M-x r e p o r t - e m <tab>
<return>

Recent messages:
Note: file is write protected
Saving file /home/jorge/tmp/emacs_enriched_bug/enriched_bug_edited.txt...
Enriched: encoding document...
Wrote /home/jorge/tmp/emacs_enriched_bug/enriched_bug_edited.txt
Saving file /home/jorge/tmp/emacs_enriched_bug/enriched_bug_edited.txt...
Enriched: encoding document...
Entering debugger...
Enriched: decoding document...
Indenting...
Quit [2 times]

Load-path shadows:
None found.

Features:
(shadow sort gnus-util mail-extr emacsbug message format-spec rfc822 mml
mml-sec mm-decode mm-bodies mm-encode mail-parse rfc2231 mailabbrev
gmm-utils mailheader sendmail rfc2047 rfc2045 ietf-drums mm-util
help-fns mail-prsvr mail-utils help-mode easymenu debug disp-table
enriched cus-start cus-load time-date tooltip electric uniquify
ediff-hook vc-hooks lisp-float-type mwheel x-win x-dnd tool-bar dnd
fontset image regexp-opt fringe tabulated-list newcomment lisp-mode
prog-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 nadvice loaddefs button faces cus-face macroexp files
text-properties overlay sha1 md5 base64 format env code-pages mule
custom widget hashtable-print-readable backquote make-network-process
dbusbind gfilenotify dynamic-setting system-font-setting
font-render-setting move-toolbar gtk x-toolkit x multi-tty emacs)

Memory information:
((conses 16 83013 6903)
 (symbols 48 18640 0)
 (miscs 40 67 174)
 (strings 32 11108 4144)
 (string-bytes 1 292848)
 (vectors 16 9828)
 (vector-slots 8 391654 14920)
 (floats 8 72 382)
 (intervals 56 263 1)
 (buffers 960 16)
 (heap 1024 41562 939))

[-- Attachment #2: enriched_bug_orig.txt --]
[-- Type: text/plain, Size: 47 bytes --]

Content-Type: text/enriched
Text-Width: 70

0


[-- Attachment #3: bug_script.el --]
[-- Type: text/x-emacs-lisp, Size: 170 bytes --]

(print (emacs-version))
(toggle-debug-on-error)
(find-file "enriched_bug_orig.txt")
(write-file "enriched_bug_edited.txt")
(facemenu-set-face "bold" 1 2)
(save-buffer 0)

[-- Attachment #4: bug_output_24.4.1.txt --]
[-- Type: text/plain, Size: 4081 bytes --]


Debug on Error enabled globally
Enriched: decoding document...
Indenting...

Saving file /home/jorge/tmp/emacs_enriched_bug/enriched_bug_edited.txt...
Enriched: encoding document...

Wrote /home/jorge/tmp/emacs_enriched_bug/enriched_bug_edited.txt
Saving file /home/jorge/tmp/emacs_enriched_bug/enriched_bug_edited.txt...
Enriched: encoding document...
Debugger entered--Lisp error: (wrong-type-argument symbolp "bold")
  internal-get-lisp-face-attribute("bold" :foreground nil)
  face-attribute("bold" :foreground)
  enriched-face-ans("bold")
  enriched-encode-other-face(nil "bold")
  format-annotate-atomic-property-change(((bold-italic "bold" "italic") (bold "bold") (italic "italic") (underline "underline") (fixed "fixed") (excerpt "excerpt") (default) (nil enriched-encode-other-face)) nil "bold")
  format-annotate-single-property-change(face nil "bold" ((face (bold-italic "bold" "italic") (bold "bold") (italic "italic") (underline "underline") (fixed "fixed") (excerpt "excerpt") (default) (nil enriched-encode-other-face)) (left-margin (4 "indent")) (right-margin (4 "indentright")) (justification (none "nofill") (right "flushright") (left "flushleft") (full "flushboth") (center "center")) (PARAMETER (t "param")) (FUNCTION (enriched-decode-foreground "x-color") (enriched-decode-background "x-bg-color") (enriched-decode-display-prop "x-display")) (read-only (t "x-read-only")) (display (nil enriched-handle-display-prop)) (unknown (nil format-annotate-value))))
  format-annotate-location(1 t (front-sticky rear-nonsticky hard) ((face (bold-italic "bold" "italic") (bold "bold") (italic "italic") (underline "underline") (fixed "fixed") (excerpt "excerpt") (default) (nil enriched-encode-other-face)) (left-margin (4 "indent")) (right-margin (4 "indentright")) (justification (none "nofill") (right "flushright") (left "flushleft") (full "flushboth") (center "center")) (PARAMETER (t "param")) (FUNCTION (enriched-decode-foreground "x-color") (enriched-decode-background "x-bg-color") (enriched-decode-display-prop "x-display")) (read-only (t "x-read-only")) (display (nil enriched-handle-display-prop)) (unknown (nil format-annotate-value))))
  format-annotate-region(1 3 ((face (bold-italic "bold" "italic") (bold "bold") (italic "italic") (underline "underline") (fixed "fixed") (excerpt "excerpt") (default) (nil enriched-encode-other-face)) (left-margin (4 "indent")) (right-margin (4 "indentright")) (justification (none "nofill") (right "flushright") (left "flushleft") (full "flushboth") (center "center")) (PARAMETER (t "param")) (FUNCTION (enriched-decode-foreground "x-color") (enriched-decode-background "x-bg-color") (enriched-decode-display-prop "x-display")) (read-only (t "x-read-only")) (display (nil enriched-handle-display-prop)) (unknown (nil format-annotate-value))) enriched-make-annotation (front-sticky rear-nonsticky hard))
  enriched-encode(1 3 #<buffer enriched_bug_edited.txt>)
  format-encode-run-method(enriched-encode 1 3 #<buffer enriched_bug_edited.txt>)
  format-annotate-function(text/enriched nil nil #<buffer enriched_bug_edited.txt> 0)
  write-region(nil nil "/home/jorge/tmp/emacs_enriched_bug/enriched_bug_edited.txt" nil t "~/tmp/emacs_enriched_bug/enriched_bug_edited.txt")
  basic-save-buffer-2()
  basic-save-buffer-1()
  basic-save-buffer()
  save-buffer(0)
  eval-buffer(#<buffer  *load*> nil "/home/jorge/tmp/emacs_enriched_bug/bug_script.el" nil t)  ; Reading at buffer position 170
  load-with-code-conversion("/home/jorge/tmp/emacs_enriched_bug/bug_script.el" "/home/jorge/tmp/emacs_enriched_bug/bug_script.el" nil t)
  load("/home/jorge/tmp/emacs_enriched_bug/bug_script.el" nil t t)
  command-line-1(("-scriptload" "bug_script.el"))
  command-line()
  normal-top-level()

Enriched: encoding document...
Auto-saving  *Format Temp 0*: Wrong type argument: symbolp, "bold"
Auto-saving  *Format Temp 0*: Wrong type argument: symbolp, "bold"
Auto-saving  *Format Temp 0*: Wrong type argument: symbolp, "bold"

"GNU Emacs 24.4.1 (x86_64-unknown-linux-gnu, GTK+ Version 3.12.2)
 of 2015-01-15 on jorge-Notebook-HP-G42"

[-- Attachment #5: bug_output_24.4.90.txt --]
[-- Type: text/plain, Size: 4072 bytes --]


Debug on Error enabled globally
Enriched: decoding document...
Indenting...

Saving file /home/jorge/tmp/emacs_enriched_bug/enriched_bug_edited.txt...
Enriched: encoding document...

Wrote /home/jorge/tmp/emacs_enriched_bug/enriched_bug_edited.txt
Saving file /home/jorge/tmp/emacs_enriched_bug/enriched_bug_edited.txt...
Enriched: encoding document...
Debugger entered--Lisp error: (wrong-type-argument symbolp "bold")
  internal-get-lisp-face-attribute("bold" :foreground nil)
  face-attribute("bold" :foreground)
  enriched-face-ans("bold")
  enriched-encode-other-face(nil "bold")
  format-annotate-atomic-property-change(((bold-italic "bold" "italic") (bold "bold") (italic "italic") (underline "underline") (fixed "fixed") (excerpt "excerpt") (default) (nil enriched-encode-other-face)) nil "bold")
  format-annotate-single-property-change(face nil "bold" ((face (bold-italic "bold" "italic") (bold "bold") (italic "italic") (underline "underline") (fixed "fixed") (excerpt "excerpt") (default) (nil enriched-encode-other-face)) (left-margin (4 "indent")) (right-margin (4 "indentright")) (justification (none "nofill") (right "flushright") (left "flushleft") (full "flushboth") (center "center")) (PARAMETER (t "param")) (FUNCTION (enriched-decode-foreground "x-color") (enriched-decode-background "x-bg-color") (enriched-decode-display-prop "x-display")) (read-only (t "x-read-only")) (display (nil enriched-handle-display-prop)) (unknown (nil format-annotate-value))))
  format-annotate-location(1 t (front-sticky rear-nonsticky hard) ((face (bold-italic "bold" "italic") (bold "bold") (italic "italic") (underline "underline") (fixed "fixed") (excerpt "excerpt") (default) (nil enriched-encode-other-face)) (left-margin (4 "indent")) (right-margin (4 "indentright")) (justification (none "nofill") (right "flushright") (left "flushleft") (full "flushboth") (center "center")) (PARAMETER (t "param")) (FUNCTION (enriched-decode-foreground "x-color") (enriched-decode-background "x-bg-color") (enriched-decode-display-prop "x-display")) (read-only (t "x-read-only")) (display (nil enriched-handle-display-prop)) (unknown (nil format-annotate-value))))
  format-annotate-region(1 3 ((face (bold-italic "bold" "italic") (bold "bold") (italic "italic") (underline "underline") (fixed "fixed") (excerpt "excerpt") (default) (nil enriched-encode-other-face)) (left-margin (4 "indent")) (right-margin (4 "indentright")) (justification (none "nofill") (right "flushright") (left "flushleft") (full "flushboth") (center "center")) (PARAMETER (t "param")) (FUNCTION (enriched-decode-foreground "x-color") (enriched-decode-background "x-bg-color") (enriched-decode-display-prop "x-display")) (read-only (t "x-read-only")) (display (nil enriched-handle-display-prop)) (unknown (nil format-annotate-value))) enriched-make-annotation (front-sticky rear-nonsticky hard))
  enriched-encode(1 3 #<buffer enriched_bug_edited.txt>)
  format-encode-run-method(enriched-encode 1 3 #<buffer enriched_bug_edited.txt>)
  format-annotate-function(text/enriched nil nil #<buffer enriched_bug_edited.txt> 0)
  write-region(nil nil "/home/jorge/tmp/emacs_enriched_bug/enriched_bug_edited.txt" nil t "~/tmp/emacs_enriched_bug/enriched_bug_edited.txt")
  basic-save-buffer-2()
  basic-save-buffer-1()
  basic-save-buffer()
  save-buffer(0)
  eval-buffer(#<buffer  *load*> nil "/home/jorge/tmp/emacs_enriched_bug/bug_script.el" nil t)  ; Reading at buffer position 170
  load-with-code-conversion("/home/jorge/tmp/emacs_enriched_bug/bug_script.el" "/home/jorge/tmp/emacs_enriched_bug/bug_script.el" nil t)
  load("/home/jorge/tmp/emacs_enriched_bug/bug_script.el" nil t t)
  command-line-1(("-scriptload" "bug_script.el"))
  command-line()
  normal-top-level()

Enriched: encoding document...
Auto-saving  *Format Temp 0*: Wrong type argument: symbolp, "bold"
Auto-saving  *Format Temp 0*: Wrong type argument: symbolp, "bold"
Auto-saving  *Format Temp 0*: Wrong type argument: symbolp, "bold"

"GNU Emacs 24.4.90.1 (x86_64-unknown-linux-gnu, GTK+ Version 3.12.2)
 of 2015-02-19 on SD-271230"