Mercurial > emacs
comparison lisp/log-edit.el @ 65582:4d1085b02d64
Message format spec fixes (1)
| author | Deepak Goel <deego@gnufans.org> |
|---|---|
| date | Sun, 18 Sep 2005 12:25:02 +0000 |
| parents | 41bb365f41c4 |
| children | 96187e7edd1b fa0da9b57058 |
comparison
equal
deleted
inserted
replaced
| 65581:fd1833c3398a | 65582:4d1085b02d64 |
|---|---|
| 329 (set (make-local-variable 'log-edit-listfun) listfun) | 329 (set (make-local-variable 'log-edit-listfun) listfun) |
| 330 (if buffer (set (make-local-variable 'log-edit-parent-buffer) parent)) | 330 (if buffer (set (make-local-variable 'log-edit-parent-buffer) parent)) |
| 331 (set (make-local-variable 'log-edit-initial-files) (log-edit-files)) | 331 (set (make-local-variable 'log-edit-initial-files) (log-edit-files)) |
| 332 (when setup (run-hooks 'log-edit-hook)) | 332 (when setup (run-hooks 'log-edit-hook)) |
| 333 (goto-char (point-min)) (push-mark (point-max)) | 333 (goto-char (point-min)) (push-mark (point-max)) |
| 334 (message (substitute-command-keys | 334 (message "%s" (substitute-command-keys |
| 335 "Press \\[log-edit-done] when you are done editing.")))) | 335 "Press \\[log-edit-done] when you are done editing.")))) |
| 336 | 336 |
| 337 (define-derived-mode log-edit-mode text-mode "Log-Edit" | 337 (define-derived-mode log-edit-mode text-mode "Log-Edit" |
| 338 "Major mode for editing version-control log messages. | 338 "Major mode for editing version-control log messages. |
| 339 When done editing the log entry, just type \\[log-edit-done] which | 339 When done editing the log entry, just type \\[log-edit-done] which |
| 424 (defun log-edit-mode-help () | 424 (defun log-edit-mode-help () |
| 425 "Provide help for the `log-edit-mode-map'." | 425 "Provide help for the `log-edit-mode-map'." |
| 426 (interactive) | 426 (interactive) |
| 427 (if (eq last-command 'log-edit-mode-help) | 427 (if (eq last-command 'log-edit-mode-help) |
| 428 (describe-function major-mode) | 428 (describe-function major-mode) |
| 429 (message | 429 (message "%s" |
| 430 (substitute-command-keys | 430 (substitute-command-keys |
| 431 "Type `\\[log-edit-done]' to finish commit. Try `\\[describe-function] log-edit-done' for more help.")))) | 431 "Type `\\[log-edit-done]' to finish commit. Try `\\[describe-function] log-edit-done' for more help.")))) |
| 432 | 432 |
| 433 (defcustom log-edit-common-indent 0 | 433 (defcustom log-edit-common-indent 0 |
| 434 "Minimum indentation to use in `log-edit-set-common-indentation'." | 434 "Minimum indentation to use in `log-edit-set-common-indentation'." |