ledger-mode and after-save-hook

[Alan Schmitt]

Hello,

I was editing an html file, and after saving it I got the following
backtrace:

Debugger entered--Lisp error: (wrong-type-argument stringp (sgml-xml-mode 
"XHTML" "HTML"))
  ledger-report-redo()
  run-hooks(after-save-hook)
  basic-save-buffer()
  save-buffer(1)
  call-interactively(save-buffer nil nil)

The problem seems to come from this line of `ledger-report-redo'

  (string= mode-name "Ledger")

Here is the documentation for mode-name in this folder:

  mode-name is a variable defined in `C source code'.
  Its value is (sgml-xml-mode "XHTML" "HTML")
  Local in buffer index.html; global value is 0
  
    Automatically becomes buffer-local when set.
    This variable may be risky if used as a file-local variable.
  
  Documentation:
  Pretty name of current buffer's major mode.
  Usually a string, but can use any of the constructs for `mode-line-format',
  which see.
  Format with `format-mode-line' to produce a string value.

I thus propose to change the line above to

  (string= (format-mode-line 'mode-name) "Ledger")

Best,

Alan

-- 
OpenPGP Key ID : 040D0A3B4ED2E5C7

pgpCeeUvYqxGa.pgp
Description: PGP signature