3668 |
(setq goal-column nil) |
(setq goal-column nil) |
3669 |
(message "No goal column")) |
(message "No goal column")) |
3670 |
(setq goal-column (current-column)) |
(setq goal-column (current-column)) |
3671 |
(message (substitute-command-keys |
;; The older method below can be erroneous if `set-goal-column' is bound |
3672 |
"Goal column %d (use \\[set-goal-column] with an arg to unset it)") |
;; to a sequence containing % |
3673 |
goal-column)) |
;;(message (substitute-command-keys |
3674 |
|
;;"Goal column %d (use \\[set-goal-column] with an arg to unset it)") |
3675 |
|
;;goal-column) |
3676 |
|
(message "%s" |
3677 |
|
(concat |
3678 |
|
(format "Goal column %d " goal-column) |
3679 |
|
(substitute-command-keys |
3680 |
|
"(use \\[set-goal-column] with an arg to unset it)"))) |
3681 |
|
|
3682 |
|
) |
3683 |
nil) |
nil) |
3684 |
|
|
3685 |
|
|