# HG changeset patch # User Richard M. Stallman # Date 719830448 0 # Node ID 04b4499061fd7cfa28783049dca0f1128389e989 # Parent e2fa3ce65e2a7d135cfbc2d9871cdf468c862d09 (goal-column): Don't put the defvar inside the make-variable-buffer-local. diff -r e2fa3ce65e2a -r 04b4499061fd lisp/simple.el --- 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