Mercurial > emacs
comparison lisp/simple.el @ 8695:0f702e9ab06d
(mark-ring): Add permanent-local prop. Doc fix.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 03 Sep 1994 23:33:50 +0000 |
| parents | bb7bd2b068bf |
| children | bd55f44d82f1 |
comparison
equal
deleted
inserted
replaced
| 8694:67f6d4905d8c | 8695:0f702e9ab06d |
|---|---|
| 1341 (setq mark-active nil) | 1341 (setq mark-active nil) |
| 1342 (run-hooks 'deactivate-mark-hook) | 1342 (run-hooks 'deactivate-mark-hook) |
| 1343 (set-marker (mark-marker) nil))) | 1343 (set-marker (mark-marker) nil))) |
| 1344 | 1344 |
| 1345 (defvar mark-ring nil | 1345 (defvar mark-ring nil |
| 1346 "The list of saved former marks of the current buffer, | 1346 "The list of former marks of the current buffer, most recent first.") |
| 1347 most recent first.") | |
| 1348 (make-variable-buffer-local 'mark-ring) | 1347 (make-variable-buffer-local 'mark-ring) |
| 1348 (put 'mark-ring 'permanent-local t) | |
| 1349 | 1349 |
| 1350 (defconst mark-ring-max 16 | 1350 (defconst mark-ring-max 16 |
| 1351 "*Maximum size of mark ring. Start discarding off end if gets this big.") | 1351 "*Maximum size of mark ring. Start discarding off end if gets this big.") |
| 1352 | 1352 |
| 1353 (defvar global-mark-ring nil | 1353 (defvar global-mark-ring nil |