Mercurial > emacs
comparison lisp/thingatpt.el @ 18439:825069bf1e74
(buffer): Don't use beginning-of-buffer, end-of-buffer.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Wed, 25 Jun 1997 03:03:57 +0000 |
| parents | b2bc7438b6b0 |
| children | 4726c7bb05a9 |
comparison
equal
deleted
inserted
replaced
| 18438:947c1b6ea8de | 18439:825069bf1e74 |
|---|---|
| 223 (skip-chars-backward " \t"))) | 223 (skip-chars-backward " \t"))) |
| 224 (setq arg (1+ arg))))) | 224 (setq arg (1+ arg))))) |
| 225 | 225 |
| 226 ;; Buffer | 226 ;; Buffer |
| 227 | 227 |
| 228 (put 'buffer 'end-op 'end-of-buffer) | 228 (put 'buffer 'end-op '(lambda () (goto-char (point-max)))) |
| 229 (put 'buffer 'beginning-op 'beginning-of-buffer) | 229 (put 'buffer 'beginning-op '(lambda () (goto-char (point-min)))) |
| 230 | 230 |
| 231 ;; Symbols | 231 ;; Symbols |
| 232 | 232 |
| 233 (defun forward-symbol (arg) | 233 (defun forward-symbol (arg) |
| 234 (interactive "p") | 234 (interactive "p") |