diff options
| author | Lars Ingebrigtsen | 2016-02-13 16:52:47 +1100 |
|---|---|---|
| committer | Lars Ingebrigtsen | 2016-02-13 16:52:47 +1100 |
| commit | 983436de735ac25dccc13262ffdf7ca016842621 (patch) | |
| tree | 0a869489b36bf07e47d7b9b5f8ee4d495140caf8 | |
| parent | 95a1925714976321c3b20c85d5727fc7045cac8e (diff) | |
| download | emacs-983436de735ac25dccc13262ffdf7ca016842621.tar.gz emacs-983436de735ac25dccc13262ffdf7ca016842621.zip | |
Define gnus-diary-kill-entire-line unconditionally
* lisp/gnus/gnus-diary.el (gnus-diary-kill-entire-line):
Define unconditionally.
| -rw-r--r-- | lisp/gnus/gnus-diary.el | 11 |
1 files changed, 4 insertions, 7 deletions
diff --git a/lisp/gnus/gnus-diary.el b/lisp/gnus/gnus-diary.el index 6f0bfe6766f..af278b4427d 100644 --- a/lisp/gnus/gnus-diary.el +++ b/lisp/gnus/gnus-diary.el | |||
| @@ -83,13 +83,10 @@ There are currently two built-in format functions: | |||
| 83 | 83 | ||
| 84 | ;; Compatibility functions ================================================== | 84 | ;; Compatibility functions ================================================== |
| 85 | 85 | ||
| 86 | (eval-and-compile | 86 | (defun gnus-diary-kill-entire-line () |
| 87 | (if (fboundp 'kill-entire-line) | 87 | (beginning-of-line) |
| 88 | (defalias 'gnus-diary-kill-entire-line 'kill-entire-line) | 88 | (let ((kill-whole-line t)) |
| 89 | (defun gnus-diary-kill-entire-line () | 89 | (kill-line))) |
| 90 | (beginning-of-line) | ||
| 91 | (let ((kill-whole-line t)) | ||
| 92 | (kill-line))))) | ||
| 93 | 90 | ||
| 94 | 91 | ||
| 95 | ;; Summary line format ====================================================== | 92 | ;; Summary line format ====================================================== |