diff options
| author | Richard M. Stallman | 1994-09-03 23:33:50 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1994-09-03 23:33:50 +0000 |
| commit | e55e22671daabfd546e692fd1ca172a56555bb09 (patch) | |
| tree | c0978b0374798efaccf439bee969f2497753adc1 | |
| parent | a8e0effbfb643b914fc9e1b5555b9bc21f2c57fd (diff) | |
| download | emacs-e55e22671daabfd546e692fd1ca172a56555bb09.tar.gz emacs-e55e22671daabfd546e692fd1ca172a56555bb09.zip | |
(mark-ring): Add permanent-local prop. Doc fix.
| -rw-r--r-- | lisp/simple.el | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 1725dd6585b..c26690c9ca3 100644 --- a/lisp/simple.el +++ b/lisp/simple.el | |||
| @@ -1343,9 +1343,9 @@ store it in a Lisp variable. Example: | |||
| 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.") |