Mercurial > emacs
changeset 1466:04b4499061fd
(goal-column): Don't put the defvar inside the make-variable-buffer-local.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Fri, 23 Oct 1992 08:54:08 +0000 |
| parents | e2fa3ce65e2a |
| children | 8d8c91b563ee |
| files | lisp/simple.el |
| diffstat | 1 files changed, 5 insertions(+), 4 deletions(-) [+] |
line wrap: on
line diff
--- a/lisp/simple.el Wed Oct 21 19:30:34 1992 +0000 +++ b/lisp/simple.el Fri Oct 23 08:54:08 1992 +0000 @@ -1252,9 +1252,9 @@ 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 @@ 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