From 07125a915e33a3a5cadea27f3f43647969ebf496 Mon Sep 17 00:00:00 2001 From: Stefan Monnier Date: Fri, 30 Apr 2010 21:39:58 -0400 Subject: [PATCH] * bindings.el (mode-line-abbrev-mode, mode-line-auto-fill-mode): Remove. --- lisp/ChangeLog | 3 +++ lisp/bindings.el | 18 ------------------ 2 files changed, 3 insertions(+), 18 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 0c1ff471aeb..101ce8ec1d9 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,5 +1,8 @@ 2010-05-01 Stefan Monnier + * bindings.el (mode-line-abbrev-mode, mode-line-auto-fill-mode): + Remove unused functions. + * emacs-lisp/lisp-mode.el (lisp-mode): Use define-derived-mode. Set find-tag-default-function as a variable rather than a property. diff --git a/lisp/bindings.el b/lisp/bindings.el index 6534f44bf0c..05a0ac8bc11 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el @@ -62,24 +62,6 @@ corresponding to the mode line clicked." (force-mode-line-update))) -(defun mode-line-abbrev-mode (event) - "Turn off `abbrev-mode' from the mode-line." - (interactive "e") - (save-selected-window - (select-window (posn-window (event-start event))) - (abbrev-mode) - (force-mode-line-update))) - - -(defun mode-line-auto-fill-mode (event) - "Turn off `auto-fill-mode' from the mode-line." - (interactive "e") - (save-selected-window - (select-window (posn-window (event-start event))) - (auto-fill-mode) - (force-mode-line-update))) - - (defvar mode-line-input-method-map (let ((map (make-sparse-keymap))) (define-key map [mode-line mouse-2] -- 2.39.2