127 |
(> c ?\177)) ;; EXTENSION: Support non-ascii chars. |
(> c ?\177)) ;; EXTENSION: Support non-ascii chars. |
128 |
(not (memq c stoken))) |
(not (memq c stoken))) |
129 |
(setq value (buffer-substring |
(setq value (buffer-substring |
130 |
(point) (progn (forward-sexp) (point))))) |
(point) |
131 |
|
(progn |
132 |
|
(forward-sexp) |
133 |
|
;; We might not have reached at the end of |
134 |
|
;; the value because of non-ascii chars, |
135 |
|
;; so we should jump over them if any. |
136 |
|
(while (and (not (eobp)) |
137 |
|
(> (char-after) ?\177)) |
138 |
|
(forward-char 1) |
139 |
|
(forward-sexp)) |
140 |
|
(point))))) |
141 |
(t |
(t |
142 |
(error "Invalid header: %s" string))) |
(error "Invalid header: %s" string))) |
143 |
(if number |
(if number |