From fdce4c6d9c25b335c9fbe515869d1ed6c1a34d25 Mon Sep 17 00:00:00 2001 From: John Paul Wallington Date: Sat, 10 Jan 2004 01:20:39 +0000 Subject: [PATCH] (mode-line-change-eol): Add EVENT parameter. Temporarily select EVENT's window for changing eol type. --- lisp/ChangeLog | 5 +++++ lisp/bindings.el | 12 +++++++----- 2 files changed, 12 insertions(+), 5 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index dad6eb6b4d4..5d7f5d9c652 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,8 @@ +2004-01-09 John Paul Wallington + + * bindings.el (mode-line-change-eol): Add EVENT parameter. + Temporarily select EVENT's window for changing eol type. + 2004-01-09 Deepak Goel * calendar/diary-lib.el (diary-entry-time): diff --git a/lisp/bindings.el b/lisp/bindings.el index ed4da745b2d..1f86f3b6fcb 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el @@ -135,12 +135,14 @@ corresponding to the mode line clicked." "Local keymap for the coding-system part of the mode line.") -(defun mode-line-change-eol () +(defun mode-line-change-eol (event) "Cycle through the various possible kinds of end-of-line styles." - (interactive) - (let ((eol (coding-system-eol-type buffer-file-coding-system))) - (set-buffer-file-coding-system - (cond ((eq eol 0) 'dos) ((eq eol 1) 'mac) (t 'unix))))) + (interactive "e") + (save-selected-window + (select-window (posn-window (event-start event))) + (let ((eol (coding-system-eol-type buffer-file-coding-system))) + (set-buffer-file-coding-system + (cond ((eq eol 0) 'dos) ((eq eol 1) 'mac) (t 'unix)))))) (defvar mode-line-eol-desc-cache nil) -- 2.39.2