diff options
| author | Richard M. Stallman <rms@gnu.org> | 1992-10-23 08:54:08 +0000 |
|---|---|---|
| committer | Richard M. Stallman <rms@gnu.org> | 1992-10-23 08:54:08 +0000 |
| commit | 912c672856da0a90312da4bbb500bf3c6758a166 (patch) | |
| tree | 920f45e7a7da18a2ea64841c76cc46069318f1ac /lisp | |
| parent | 194ff7c129d43be79d64fb9d280a923588374230 (diff) | |
| download | emacs-912c672856da0a90312da4bbb500bf3c6758a166.tar.gz | |
(goal-column): Don't put the defvar inside the make-variable-buffer-local.
Diffstat (limited to 'lisp')
| -rw-r--r-- | lisp/simple.el | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/lisp/simple.el b/lisp/simple.el index 3048c5139c4..54871b3736c 100644 --- a/lisp/simple.el +++ b/lisp/simple.el @@ -1252,9 +1252,9 @@ to use and more reliable (no dependence on goal column, etc.)." This means moving to the end of each line moved onto. The beginning of a blank line does not count as the end of a line.") -(make-variable-buffer-local - (defvar goal-column nil - "*Semipermanent goal column for vertical motion, as set by \\[set-goal-column], or nil.")) +(defvar goal-column nil + "*Semipermanent goal column for vertical motion, as set by \\[set-goal-column], or nil.") +(make-variable-buffer-local 'goal-column) (defvar temporary-goal-column 0 "Current goal column for vertical motion. @@ -1293,7 +1293,8 @@ When the `track-eol' feature is doing its job, the value is 9999.") Those commands will move to this position in the line moved to rather than trying to keep the same horizontal position. With a non-nil argument, clears out the goal column -so that \\[next-line] and \\[previous-line] resume vertical motion." +so that \\[next-line] and \\[previous-line] resume vertical motion. +The goal column is stored in the variable `goal-column'." (interactive "P") (if arg (progn |