From 80108537f9dd6a50dc4ee1ece983936657193a15 Mon Sep 17 00:00:00 2001 From: Lute Kamstra Date: Mon, 8 Sep 2003 08:02:45 +0000 Subject: (mode-line-position): Add buffer size indicator. --- lisp/bindings.el | 2 ++ 1 file changed, 2 insertions(+) (limited to 'lisp/bindings.el') diff --git a/lisp/bindings.el b/lisp/bindings.el index fe16b2bcb34..957e51e1ac1 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el @@ -312,6 +312,8 @@ Keymap to display on minor modes.") (setq-default mode-line-position `((-3 . ,(propertize "%p" 'help-echo help-echo)) + (size-indication-mode + (8 ,(propertize " of %I" 'help-echo help-echo))) (line-number-mode ((column-number-mode (10 ,(propertize " (%l,%c)" 'help-echo help-echo)) -- cgit v1.2.1 From 3ba07b01dcea7fb107df80ad2418531ad7f3fe27 Mon Sep 17 00:00:00 2001 From: Lute Kamstra Date: Fri, 26 Sep 2003 12:52:36 +0000 Subject: (mode-line-position): Mention size indication in docstring. --- lisp/bindings.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'lisp/bindings.el') diff --git a/lisp/bindings.el b/lisp/bindings.el index 957e51e1ac1..c9357ea7d7d 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el @@ -251,7 +251,9 @@ Normally nil in most modes, since there is no process to display.") ;; Actual initialization is below. (defvar mode-line-position nil - "Mode-line control for displaying line number, column number and fraction.") + "Mode-line control for displaying the position in the buffer. +Normally displays the buffer percentage and, optionally, the +buffer size, the line number and the column number.") (defvar mode-line-modes nil "Mode-line control for displaying major and minor modes.") -- cgit v1.2.1 From 6acaba070754589190fcf758f7b2d0e45947cbd8 Mon Sep 17 00:00:00 2001 From: Lute Kamstra Date: Mon, 29 Sep 2003 10:28:21 +0000 Subject: (mode-line-modes): Remove superfluous :propertize construct in initialization. (mode-line-position): Change cons cell into proper list in initialization. --- lisp/bindings.el | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) (limited to 'lisp/bindings.el') diff --git a/lisp/bindings.el b/lisp/bindings.el index c9357ea7d7d..b6e02542a53 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el @@ -303,7 +303,7 @@ Keymap to display on minor modes.") `(:propertize ("" mode-name) help-echo "mouse-2: help for current major mode" local-map ,mode-line-major-mode-keymap) - `(:propertize ("" mode-line-process)) + '("" mode-line-process) `(:propertize ("" minor-mode-alist) help-echo "mouse-2: help for minor modes, mouse-3: minor mode menu" local-map ,mode-line-minor-mode-keymap) @@ -313,7 +313,7 @@ Keymap to display on minor modes.") (propertize ")%]--" 'help-echo help-echo))) (setq-default mode-line-position - `((-3 . ,(propertize "%p" 'help-echo help-echo)) + `((-3 ,(propertize "%p" 'help-echo help-echo)) (size-indication-mode (8 ,(propertize " of %I" 'help-echo help-echo))) (line-number-mode -- cgit v1.2.1 From 9556530476d07c11806e6c131b02e911a4c9bc1d Mon Sep 17 00:00:00 2001 From: Dave Love Date: Mon, 6 Oct 2003 16:25:52 +0000 Subject: (completion-ignored-extensions): Remove .log. (global-map): Add again, open, stop keys. --- lisp/bindings.el | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'lisp/bindings.el') diff --git a/lisp/bindings.el b/lisp/bindings.el index b6e02542a53..04353e9c7ec 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el @@ -518,7 +518,9 @@ is okay. See `mode-line-format'.") ;; Gettext ".gmo" ".mo" ;; Texinfo-related - ".toc" ".log" ".aux" + ;; This used to contain .log, but that's commonly used for log + ;; files you do want to see, not just TeX stuff. -- fx + ".toc" ".aux" ".cp" ".fn" ".ky" ".pg" ".tp" ".vr" ".cps" ".fns" ".kys" ".pgs" ".tps" ".vrs"))) @@ -776,6 +778,9 @@ language you are using." (define-key global-map [S-insert] 'yank) (define-key global-map [undo] 'undo) (define-key global-map [redo] 'repeat-complex-command) +(define-key global-map [again] 'repeat-complex-command) ; Sun keyboard +(define-key global-map [open] 'find-file) ; Sun +(define-key global-map [stop] 'keyboard-quit) ; Sun ;; (define-key global-map [clearline] 'function-key-error) (define-key global-map [insertline] 'open-line) (define-key global-map [deleteline] 'kill-line) -- cgit v1.2.1 From aa8b81460143669c1f8a9f56eceba7dd0db99781 Mon Sep 17 00:00:00 2001 From: Dave Love Date: Fri, 10 Oct 2003 18:09:52 +0000 Subject: Don't bind stop. --- lisp/bindings.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'lisp/bindings.el') diff --git a/lisp/bindings.el b/lisp/bindings.el index 04353e9c7ec..ab5bb30699e 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el @@ -780,7 +780,9 @@ language you are using." (define-key global-map [redo] 'repeat-complex-command) (define-key global-map [again] 'repeat-complex-command) ; Sun keyboard (define-key global-map [open] 'find-file) ; Sun -(define-key global-map [stop] 'keyboard-quit) ; Sun +;; The following wouldn't work to interrupt running code since C-g is +;; treated specially in the event loop. +;; (define-key global-map [stop] 'keyboard-quit) ; Sun ;; (define-key global-map [clearline] 'function-key-error) (define-key global-map [insertline] 'open-line) (define-key global-map [deleteline] 'kill-line) -- cgit v1.2.1 From b2236c89a8669f65ac8419908a4282adfad4470a Mon Sep 17 00:00:00 2001 From: John Paul Wallington Date: Wed, 31 Dec 2003 02:46:07 +0000 Subject: (completion-ignored-extensions): Add .pfsl. --- lisp/bindings.el | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) (limited to 'lisp/bindings.el') diff --git a/lisp/bindings.el b/lisp/bindings.el index ab5bb30699e..ed4da745b2d 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el @@ -258,14 +258,14 @@ buffer size, the line number and the column number.") (defvar mode-line-modes nil "Mode-line control for displaying major and minor modes.") -(defvar mode-line-major-mode-keymap +(defvar mode-line-major-mode-keymap (let ((map (make-sparse-keymap))) (define-key map [mode-line mouse-2] 'describe-mode) (define-key map [mode-line down-mouse-3] 'mode-line-mode-menu-1) map) "\ Keymap to display on major mode.") -(defvar mode-line-minor-mode-keymap +(defvar mode-line-minor-mode-keymap (let ((map (make-sparse-keymap))) (define-key map [mode-line mouse-2] 'mode-line-minor-mode-help) (define-key map [mode-line down-mouse-3] 'mode-line-mode-menu-1) @@ -314,7 +314,7 @@ Keymap to display on minor modes.") (setq-default mode-line-position `((-3 ,(propertize "%p" 'help-echo help-echo)) - (size-indication-mode + (size-indication-mode (8 ,(propertize " of %I" 'help-echo help-echo))) (line-number-mode ((column-number-mode @@ -511,8 +511,8 @@ is okay. See `mode-line-format'.") ".fas" ".lib" ".mem" ;; CMUCL ".x86f" ".sparcf" - ;; Other CL implementations (Allegro, LispWorks) - ".fasl" ".ufsl" ".fsl" ".dxl" + ;; Other CL implementations (Allegro, LispWorks, OpenMCL) + ".fasl" ".ufsl" ".fsl" ".dxl" ".pfsl" ;; Libtool ".lo" ".la" ;; Gettext -- cgit v1.2.1 From fdce4c6d9c25b335c9fbe515869d1ed6c1a34d25 Mon Sep 17 00:00:00 2001 From: John Paul Wallington Date: Sat, 10 Jan 2004 01:20:39 +0000 Subject: (mode-line-change-eol): Add EVENT parameter. Temporarily select EVENT's window for changing eol type. --- lisp/bindings.el | 12 +++++++----- 1 file changed, 7 insertions(+), 5 deletions(-) (limited to 'lisp/bindings.el') 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) -- cgit v1.2.1 From 486add9d38b9862445be50158b324f2cc45672c5 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Sat, 1 May 2004 03:50:24 +0000 Subject: (propertized-buffer-identification): Replace `(:weight bold)' by `Buffer-menu-buffer-face'. Add C-M-arrow keys for consistency. --- lisp/bindings.el | 9 ++++++++- 1 file changed, 8 insertions(+), 1 deletion(-) (limited to 'lisp/bindings.el') diff --git a/lisp/bindings.el b/lisp/bindings.el index 1f86f3b6fcb..e1a2739d759 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el @@ -460,7 +460,7 @@ Menu of mode operations in the mode line.") FMT is a format specifier such as \"%12b\". This function adds text properties for face, help-echo, and local-map to it." (list (propertize fmt - 'face '(:weight bold) + 'face 'Buffer-menu-buffer-face 'help-echo (purecopy "mouse-1: previous buffer, mouse-3: next buffer") 'local-map mode-line-buffer-identification-keymap))) @@ -945,6 +945,13 @@ language you are using." ;; This is "move to the clipboard", or as close as we come. (global-set-key [S-delete] 'kill-region) +(global-set-key [C-M-left] 'backward-sexp) +(global-set-key [C-M-right] 'forward-sexp) +(global-set-key [C-M-up] 'backward-up-list) +(global-set-key [C-M-down] 'down-list) +(global-set-key [C-M-home] 'beginning-of-defun) +(global-set-key [C-M-end] 'end-of-defun) + (define-key esc-map "\C-f" 'forward-sexp) (define-key esc-map "\C-b" 'backward-sexp) (define-key esc-map "\C-u" 'backward-up-list) -- cgit v1.2.1 From cd8d6674f6553418204b486ac2a5e6861f51eb87 Mon Sep 17 00:00:00 2001 From: Juri Linkov Date: Sun, 6 Jun 2004 02:42:55 +0000 Subject: * bindings.el (debug-ignored-errors): Add regexps for history related messages. Remove $ from "No further undo information". Move Ediff's messages to ediff.el. --- lisp/bindings.el | 55 ++++++------------------------------------------------- 1 file changed, 6 insertions(+), 49 deletions(-) (limited to 'lisp/bindings.el') diff --git a/lisp/bindings.el b/lisp/bindings.el index e1a2739d759..a46026e30d3 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el @@ -542,63 +542,20 @@ is okay. See `mode-line-format'.") file-supersession "^Previous command was not a yank$" "^Minibuffer window is not active$" + "^No previous history search regexp$" + "^No later matching history item$" + "^No earlier matching history item$" + "^End of history; no default available$" "^End of history; no next item$" "^Beginning of history; no preceding item$" "^No recursive edit is in progress$" "^Changes to be undone are outside visible portion of buffer$" "^No undo information in this buffer$" - "^No further undo information$" + "^No further undo information" "^Save not confirmed$" "^Recover-file cancelled\\.$" "^Cannot switch buffers in a dedicated window$" - - ;; ediff - "^Errors in diff output. Diff output is in " - "^Hmm... I don't see an Ediff command around here...$" - "^Undocumented command! Type `G' in Ediff Control Panel to drop a note to the Ediff maintainer$" - ": This command runs in Ediff Control Buffer only!$" - ": Invalid op in ediff-check-version$" - "^ediff-shrink-window-C can be used only for merging jobs$" - "^Lost difference info on these directories$" - "^This command is inapplicable in the present context$" - "^This session group has no parent$" - "^Can't hide active session, $" - "^Ediff: something wrong--no multiple diffs buffer$" - "^Can't make context diff for Session $" - "^The patch buffer wasn't found$" - "^Aborted$" - "^This Ediff session is not part of a session group$" - "^No active Ediff sessions or corrupted session registry$" - "^No session info in this line$" - "^`.*' is not an ordinary file$" - "^Patch appears to have failed$" - "^Recomputation of differences cancelled$" - "^No fine differences in this mode$" - "^Lost connection to ancestor buffer...sorry$" - "^Not merging with ancestor$" - "^Don't know how to toggle read-only in buffer " - "Emacs is not running as a window application$" - "^This command makes sense only when merging with an ancestor$" - "^At end of the difference list$" - "^At beginning of the difference list$" - "^Nothing saved for diff .* in buffer " - "^Buffer is out of sync for file " - "^Buffer out of sync for file " - "^Output from `diff' not found$" - "^You forgot to specify a region in buffer " - "^All right. Make up your mind and come back...$" - "^Current buffer is not visiting any file$" - "^Failed to retrieve revision: $" - "^Can't determine display width.$" - "^File `.*' does not exist or is not readable$" - "^File `.*' is a directory$" - "^Buffer .* doesn't exist$" - "^Directories . and . are the same: " - "^Directory merge aborted$" - "^Merge of directory revisions aborted$" - "^Buffer .* doesn't exist$" - "^There is no file to merge$" - "^Version control package .*.el not found. Use vc.el instead$")) + )) (make-variable-buffer-local 'indent-tabs-mode) -- cgit v1.2.1 From 7c226e4010262aa37501a29ecd4846647ded8ec8 Mon Sep 17 00:00:00 2001 From: Eli Zaretskii Date: Sat, 12 Jun 2004 10:16:10 +0000 Subject: (completion-ignored-extensions): Add file extensions of Python byte-compiled files. --- lisp/bindings.el | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'lisp/bindings.el') diff --git a/lisp/bindings.el b/lisp/bindings.el index a46026e30d3..b3ea8e562ac 100644 --- a/lisp/bindings.el +++ b/lisp/bindings.el @@ -524,7 +524,9 @@ is okay. See `mode-line-format'.") ;; files you do want to see, not just TeX stuff. -- fx ".toc" ".aux" ".cp" ".fn" ".ky" ".pg" ".tp" ".vr" - ".cps" ".fns" ".kys" ".pgs" ".tps" ".vrs"))) + ".cps" ".fns" ".kys" ".pgs" ".tps" ".vrs" + ;; Python byte-compiled + ".pyc" ".pyo"))) ;; Suffixes used for executables. (setq exec-suffixes -- cgit v1.2.1