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") |