Mercurial > emacs
comparison lisp/international/ogonek.el @ 62314:8ef4dac936f9
(ogonek-jak, ogonek-how): Don't use beginning-of-buffer.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 14 May 2005 11:26:12 +0000 |
| parents | c36561fe0657 |
| children | 18a818a2ee7c f042e7c0fe20 |
comparison
equal
deleted
inserted
replaced
| 62313:6ee2b2667bce | 62314:8ef4dac936f9 |
|---|---|
| 164 "Display `ogonek-informacja' in an auxiliary *ogonek-jak* buffer." | 164 "Display `ogonek-informacja' in an auxiliary *ogonek-jak* buffer." |
| 165 (interactive) | 165 (interactive) |
| 166 (set-buffer (get-buffer-create " *ogonek-jak*")) | 166 (set-buffer (get-buffer-create " *ogonek-jak*")) |
| 167 (insert ogonek-informacja) | 167 (insert ogonek-informacja) |
| 168 (switch-to-buffer " *ogonek-jak*") | 168 (switch-to-buffer " *ogonek-jak*") |
| 169 (beginning-of-buffer)) | 169 (goto-char (point-min))) |
| 170 | 170 |
| 171 ;; ------ A Little Info in English -------- | 171 ;; ------ A Little Info in English -------- |
| 172 | 172 |
| 173 (defconst ogonek-information | 173 (defconst ogonek-information |
| 174 " THE INTERACTIVE FUNCTIONS PROVIDED BY THE LIBRARY `ogonek'. | 174 " THE INTERACTIVE FUNCTIONS PROVIDED BY THE LIBRARY `ogonek'. |
| 262 "Display `ogonek-information' in an auxiliary *recode-how* buffer." | 262 "Display `ogonek-information' in an auxiliary *recode-how* buffer." |
| 263 (interactive "*") | 263 (interactive "*") |
| 264 (set-buffer (get-buffer-create " *ogonek-how*")) | 264 (set-buffer (get-buffer-create " *ogonek-how*")) |
| 265 (insert ogonek-information) | 265 (insert ogonek-information) |
| 266 (switch-to-buffer " *ogonek-how*") | 266 (switch-to-buffer " *ogonek-how*") |
| 267 (beginning-of-buffer)) | 267 (goto-char (point-min))) |
| 268 | 268 |
| 269 ;; ---- Variables keeping the suggested answers to dialogue questions ----- | 269 ;; ---- Variables keeping the suggested answers to dialogue questions ----- |
| 270 (defvar ogonek-encoding-choices | 270 (defvar ogonek-encoding-choices |
| 271 (cons 'choice | 271 (cons 'choice |
| 272 (mapcar (lambda (x) (list 'const (car x))) | 272 (mapcar (lambda (x) (list 'const (car x))) |