Re: bug in insert-abbrev-table-description

[Frederik Fouvry]

Yes, it seems to.

Thanks,

Frederik Fouvry

,-- On Fri, 25 Mar 2005 01:43:30 -0500, Richard Stallman wrote:
| 

[...]

| Meanwhile, does this patch things work right?
| 
| *** abbrev.el 16 Aug 2004 18:43:55 -0400      1.38
| --- abbrev.el 24 Mar 2005 20:05:13 -0500      
| ***************
| *** 172,186 ****
|      (while (and (not (eobp)) (re-search-forward "^(" nil t))
|        (let* ((buf (current-buffer))
|           (table (read buf))
| !         abbrevs name hook exp count)
|          (forward-line 1)
|          (while (progn (forward-line 1)
|                    (not (eolp)))
| !      (setq name (read buf) count (read buf) exp (read buf))
|        (skip-chars-backward " \t\n\f")
|        (setq hook (if (not (eolp)) (read buf)))
|        (skip-chars-backward " \t\n\f")
| !      (setq abbrevs (cons (list name exp hook count) abbrevs)))
|          (define-abbrev-table table abbrevs)))))
|   
|   (defun read-abbrev-file (&optional file quietly)
| --- 172,189 ----
|      (while (and (not (eobp)) (re-search-forward "^(" nil t))
|        (let* ((buf (current-buffer))
|           (table (read buf))
| !         abbrevs name hook exp count sys)
|          (forward-line 1)
|          (while (progn (forward-line 1)
|                    (not (eolp)))
| !      (setq name (read buf) count (read buf))
| !      (if (equal count '(sys))
| !          (setq sys t count (read buf)))
| !      (setq exp (read buf))
|        (skip-chars-backward " \t\n\f")
|        (setq hook (if (not (eolp)) (read buf)))
|        (skip-chars-backward " \t\n\f")
| !      (setq abbrevs (cons (list name exp hook count sys) abbrevs)))
|          (define-abbrev-table table abbrevs)))))
|   
|   (defun read-abbrev-file (&optional file quietly)