Re: read-abbrev-file (2)

[Andreas Roehler]

Richard Stallman wrote:
> > I cannot reproduce the problem.

It only occurs at the very beginning, after starting Emacs.

> > Maybe it has been fixed since February.
> > Does it fail in the latest sources?

Yes, noticed the change.

> > If so, can you try to debug it by running under GDB and putting
> > a breakpoint at Fsignal?
> >

Will try that, but it would take some time. I'm not familiar with.


__
Andreas Roehler


What about to use this until then?:

;(defalias 'read-abbrev-file 'ar-read-abbrev-file)
;(defalias 'quietly-read-abbrev-file 'ar-quietly-read-abbrev-file)

(defun ar-read-abbrev-file (&optional file)
  "Read abbrev definitions from file written with `write-abbrev-file'.
Optional argument FILE is the name of the file to read;
it defaults to the value of `abbrev-file-name'"
  (interactive
   (list
    (read-from-minibuffer (concat "default: " abbrev-file-name ": "))))
  (if (or (string-match "[ \t]+" file)
          (string= "" file))
      (setq file abbrev-file-name))
  (load file nil)
  (setq abbrevs-changed nil))

(defun ar-quietly-read-abbrev-file (&optional file)
  "Read abbrev definitions from file written with `write-abbrev-file'.
Optional argument FILE is the name of the file to read;
it defaults to the value of `abbrev-file-name'.
Does not display any message."
  (interactive)
  (let ((file file))
    (unless (stringp file)
      (setq file abbrev-file-name))
    (load file nil t)
    (setq abbrevs-changed nil)))