331 |
(set (make-local-variable 'log-edit-initial-files) (log-edit-files)) |
(set (make-local-variable 'log-edit-initial-files) (log-edit-files)) |
332 |
(when setup (run-hooks 'log-edit-hook)) |
(when setup (run-hooks 'log-edit-hook)) |
333 |
(goto-char (point-min)) (push-mark (point-max)) |
(goto-char (point-min)) (push-mark (point-max)) |
334 |
(message (substitute-command-keys |
(message "%s" (substitute-command-keys |
335 |
"Press \\[log-edit-done] when you are done editing.")))) |
"Press \\[log-edit-done] when you are done editing.")))) |
336 |
|
|
337 |
(define-derived-mode log-edit-mode text-mode "Log-Edit" |
(define-derived-mode log-edit-mode text-mode "Log-Edit" |
426 |
(interactive) |
(interactive) |
427 |
(if (eq last-command 'log-edit-mode-help) |
(if (eq last-command 'log-edit-mode-help) |
428 |
(describe-function major-mode) |
(describe-function major-mode) |
429 |
(message |
(message "%s" |
430 |
(substitute-command-keys |
(substitute-command-keys |
431 |
"Type `\\[log-edit-done]' to finish commit. Try `\\[describe-function] log-edit-done' for more help.")))) |
"Type `\\[log-edit-done]' to finish commit. Try `\\[describe-function] log-edit-done' for more help.")))) |
432 |
|
|