From 3726946669effb8c66c37fb5f9996178c9adfc80 Mon Sep 17 00:00:00 2001 From: Chong Yidong Date: Sat, 2 Jun 2012 18:56:09 +0800 Subject: [PATCH] Remove incorrect uses of "modeline". * ansi-color.el (ansi-color-faces-vector): Change default faces. * cus-edit.el (mode-line): * dframe.el (dframe-mouse-hscroll): * emacs-lisp/re-builder.el: * emacs-lisp/easy-mmode.el (define-minor-mode): * frame.el (set-frame-name): * help.el (lookup-minor-mode-from-indicator): * net/rcirc.el (rcirc-activity-string, rcirc-short-buffer-name): * progmodes/cc-cmds.el (c-toggle-auto-newline) (c-toggle-hungry-state): * progmodes/antlr-mode.el (antlr-language-alist): * progmodes/idlw-shell.el (idlwave-shell-electric-stop-line-face): * progmodes/vhdl-mode.el (vhdl-mode): * progmodes/which-func.el (which-func, which-func-cleanup-function): * term/ns-win.el (ns-face-at-pos): * term/sup-mouse.el (sup-mouse-report): * textmodes/flyspell.el (flyspell-mode-line-string): * textmodes/ispell.el (ispell-highlight-face): * textmodes/reftex-global.el: * vc/vc-arch.el (vc-arch-mode-line-string): * vc/vc-cvs.el (vc-cvs-mode-line-string): * vc/vc-git.el (vc-git-mode-line-string): * vc/vc-hooks.el (vc-display-status) (vc-default-mode-line-string): * vc/vc-mtn.el (vc-mtn-mode-line-string): Doc fixes. * dired.el (dired-sort-set-mode-line): Rename from dired-sort-set-modeline. All callers changed. * foldout.el (foldout-mode-line-string): Rename from foldout-modeline-string. All callers changed. (foldout-update-mode-line): Rename from foldout-update-modeline. * strokes.el (strokes-lighter): Rename from strokes-modeline-string. * subr.el (redraw-modeline): Make into obsolete alias. * calendar/timeclock.el (timeclock-mode-line-display): Rename from timeclock-modeline-display. Make old name an alias. (timeclock-update-mode-line): Likewise. All callers changed. (timeclock-mode-line-display): No need to check before using add-hook. (timeclock-relative, timeclock-day-over-hook) (timeclock-use-elapsed, timeclock-mode-string) (timeclock-mode-line-display): Doc fix, "modeline" -> "mode line". * emulation/crisp.el (crisp-mode-mode-line-string): Rename from crisp-mode-modeline-string. * erc-track.el (erc-track, erc-track-faces-priority-list) (erc-track-faces-normal-list, erc-track-find-face) (erc-track-modified-channels): Fix modeline -> mode line in docs. * eshell/esh-mode.el (eshell-status-in-mode-line): Rename from eshell-status-in-modeline. * org-clock.el (org-clock-string-limit) (org-clock-modeline-total, org-clock-task-overrun-text) (org-clock-mode-line-entry): Doc fix, "modeline" -> "mode line". * play/solitaire.el (solitaire-build-mode-line): Rename from solitaire-build-modeline. All callers changed. * play/zone.el (zone-hiding-mode-line): Rename from zone-hiding-modeline. All callers changed. (zone): Remove unusued `modeline-hidden-level' property. * progmodes/xscheme.el (xscheme-mode-line-initialize): Rename from xscheme-modeline-initialize. All callers changed. * textmodes/sgml-mode.el (html-face-tag-alist) (html-tag-face-alist): Use mode-line face instead of obsolete alias modeline. Fixes: debbugs:10329 --- lisp/ChangeLog | 73 ++++++++++++++++++++++++ lisp/ansi-color.el | 8 +-- lisp/calculator.el | 20 +++---- lisp/calendar/timeclock.el | 98 +++++++++++++++++---------------- lisp/cus-edit.el | 4 +- lisp/dframe.el | 7 +-- lisp/dired-x.el | 4 +- lisp/dired.el | 15 +++-- lisp/emacs-lisp/easy-mmode.el | 2 +- lisp/emacs-lisp/re-builder.el | 2 +- lisp/emulation/crisp.el | 15 +++-- lisp/emulation/viper-cmd.el | 2 +- lisp/erc/ChangeLog | 6 ++ lisp/erc/erc-track.el | 12 ++-- lisp/eshell/esh-mode.el | 21 ++++--- lisp/foldout.el | 40 ++++++-------- lisp/forms.el | 2 +- lisp/frame.el | 4 +- lisp/help.el | 2 +- lisp/international/robin.el | 2 +- lisp/net/eudc.el | 2 +- lisp/net/newst-ticker.el | 2 +- lisp/net/newsticker.el | 2 +- lisp/net/rcirc.el | 8 +-- lisp/obsolete/old-whitespace.el | 10 ++-- lisp/org/ChangeLog | 6 ++ lisp/org/org-clock.el | 8 +-- lisp/play/solitaire.el | 8 +-- lisp/play/zone.el | 10 +--- lisp/proced.el | 4 +- lisp/progmodes/ada-mode.el | 4 +- lisp/progmodes/antlr-mode.el | 4 +- lisp/progmodes/cc-cmds.el | 4 +- lisp/progmodes/compile.el | 2 +- lisp/progmodes/idlw-shell.el | 2 +- lisp/progmodes/scheme.el | 2 +- lisp/progmodes/vhdl-mode.el | 4 +- lisp/progmodes/which-func.el | 4 +- lisp/progmodes/xscheme.el | 14 ++--- lisp/ses.el | 2 +- lisp/strokes.el | 8 ++- lisp/subr.el | 3 +- lisp/term/ns-win.el | 4 +- lisp/term/sup-mouse.el | 6 +- lisp/textmodes/flyspell.el | 4 +- lisp/textmodes/ispell.el | 6 +- lisp/textmodes/reftex-global.el | 2 +- lisp/textmodes/sgml-mode.el | 4 +- lisp/vc/ediff-wind.el | 4 +- lisp/vc/vc-arch.el | 2 +- lisp/vc/vc-cvs.el | 2 +- lisp/vc/vc-git.el | 2 +- lisp/vc/vc-hooks.el | 6 +- lisp/vc/vc-mtn.el | 2 +- lisp/whitespace.el | 4 +- lisp/window.el | 8 +-- 56 files changed, 300 insertions(+), 208 deletions(-) diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 8253170b384..eeb70bedd99 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,3 +1,76 @@ +2012-06-02 Chong Yidong + + Remove incorrect uses of "modeline" in comments, docstrings, and + function/variable names (Bug#10329). + + * cus-edit.el (mode-line): + * dframe.el (dframe-mouse-hscroll): + * emacs-lisp/re-builder.el: + * emacs-lisp/easy-mmode.el (define-minor-mode): + * frame.el (set-frame-name): + * help.el (lookup-minor-mode-from-indicator): + * net/rcirc.el (rcirc-activity-string, rcirc-short-buffer-name): + * progmodes/cc-cmds.el (c-toggle-auto-newline) + (c-toggle-hungry-state): + * progmodes/antlr-mode.el (antlr-language-alist): + * progmodes/idlw-shell.el (idlwave-shell-electric-stop-line-face): + * progmodes/vhdl-mode.el (vhdl-mode): + * progmodes/which-func.el (which-func, which-func-cleanup-function): + * term/ns-win.el (ns-face-at-pos): + * term/sup-mouse.el (sup-mouse-report): + * textmodes/flyspell.el (flyspell-mode-line-string): + * textmodes/ispell.el (ispell-highlight-face): + * textmodes/reftex-global.el: + * vc/vc-arch.el (vc-arch-mode-line-string): + * vc/vc-cvs.el (vc-cvs-mode-line-string): + * vc/vc-git.el (vc-git-mode-line-string): + * vc/vc-hooks.el (vc-display-status) + (vc-default-mode-line-string): + * vc/vc-mtn.el (vc-mtn-mode-line-string): Doc fixes. + + * ansi-color.el (ansi-color-faces-vector): Change default faces. + + * dired.el (dired-sort-set-mode-line): Rename from + dired-sort-set-modeline. All callers changed. + + * eshell/esh-mode.el (eshell-status-in-mode-line): Rename from + eshell-status-in-modeline. + + * foldout.el (foldout-mode-line-string): Rename from + foldout-modeline-string. All callers changed. + (foldout-update-mode-line): Rename from foldout-update-modeline. + + * subr.el (redraw-modeline): Make into obsolete alias. + + * calendar/timeclock.el (timeclock-mode-line-display): Rename from + timeclock-modeline-display. Make old name an alias. + (timeclock-update-mode-line): Likewise. All callers changed. + (timeclock-mode-line-display): No need to check before using + add-hook. + (timeclock-relative, timeclock-day-over-hook) + (timeclock-use-elapsed, timeclock-mode-string) + (timeclock-mode-line-display): Doc fix, "modeline" -> "mode line". + + * emulation/crisp.el (crisp-mode-mode-line-string): Rename from + crisp-mode-modeline-string. + + * play/solitaire.el (solitaire-build-mode-line): Rename from + solitaire-build-modeline. All callers changed. + + * play/zone.el (zone-hiding-mode-line): Rename from + zone-hiding-modeline. All callers changed. + (zone): Remove unusued `modeline-hidden-level' property. + + * progmodes/xscheme.el (xscheme-mode-line-initialize): Rename from + xscheme-modeline-initialize. All callers changed. + + * strokes.el (strokes-lighter): Rename from + strokes-modeline-string. + + * textmodes/sgml-mode.el (html-face-tag-alist) + (html-tag-face-alist): Use mode-line face instead of obsolete + alias modeline. + 2012-06-02 Stefan Merten * textmodes/rst.el: Always require `cl'. diff --git a/lisp/ansi-color.el b/lisp/ansi-color.el index 6a82f176676..d677f706704 100644 --- a/lisp/ansi-color.el +++ b/lisp/ansi-color.el @@ -90,7 +90,7 @@ as a PDF file ." :group 'processes) (defcustom ansi-color-faces-vector - [default bold default italic underline bold bold-italic modeline] + [default bold default italic underline success warning error] "Faces used for SGR control sequences determining a face. This vector holds the faces used for SGR control sequence parameters 0 to 7. @@ -101,9 +101,9 @@ Parameter Description Face used by default 2 faint default 3 italic italic 4 underlined underline - 5 slowly blinking bold - 6 rapidly blinking bold-italic - 7 negative image modeline + 5 slowly blinking success + 6 rapidly blinking warning + 7 negative image error Note that the symbol `default' is special: It will not be combined with the current face. diff --git a/lisp/calculator.el b/lisp/calculator.el index 6e935f246a0..14f50a0adcb 100644 --- a/lisp/calculator.el +++ b/lisp/calculator.el @@ -717,17 +717,17 @@ See the documentation for `calculator-mode' for more information." (cond ((not (get-buffer-window calculator-buffer)) (let ((window-min-height 2)) - ;; maybe leave two lines for our window because of the normal - ;; `raised' modeline in Emacs 21 + ;; maybe leave two lines for our window because of the + ;; normal `raised' mode line (select-window (split-window-below - ;; If the modeline might interfere with the calculator buffer, - ;; use 3 lines instead. + ;; If the mode line might interfere with the calculator + ;; buffer, use 3 lines instead. (if (and (fboundp 'face-attr-construct) (let* ((dh (plist-get (face-attr-construct 'default) :height)) - (mf (face-attr-construct 'modeline)) + (mf (face-attr-construct 'mode-line)) (mh (plist-get mf :height))) - ;; If the modeline is shorter than the default, + ;; If the mode line is shorter than the default, ;; stick with 2 lines. (It may be necessary to ;; check how much shorter.) (and @@ -739,7 +739,7 @@ See the documentation for `calculator-mode' for more information." (not (integerp mh)) (< mh 1)))) (or - ;; If the modeline is taller than the default, + ;; If the mode line is taller than the default, ;; use 3 lines. (and (integerp dh) (integerp mh) @@ -747,7 +747,7 @@ See the documentation for `calculator-mode' for more information." (and (numberp mh) (not (integerp mh)) (> mh 1)) - ;; If the modeline has a box with non-negative line-width, + ;; If the mode line has a box with non-negative line-width, ;; use 3 lines. (let* ((bx (plist-get mf :box)) (lh (plist-get bx :line-width))) @@ -755,8 +755,8 @@ See the documentation for `calculator-mode' for more information." (or (not lh) (> lh 0)))) - ;; If the modeline has an overline, use 3 lines. - (plist-get (face-attr-construct 'modeline) :overline))))) + ;; If the mode line has an overline, use 3 lines. + (plist-get (face-attr-construct 'mode-line) :overline))))) -3 -2))) (switch-to-buffer calculator-buffer))) ((not (eq (current-buffer) calculator-buffer)) diff --git a/lisp/calendar/timeclock.el b/lisp/calendar/timeclock.el index 7f9b46dfd82..8ca14b37d70 100644 --- a/lisp/calendar/timeclock.el +++ b/lisp/calendar/timeclock.el @@ -43,19 +43,19 @@ ;; (define-key ctl-x-map "to" 'timeclock-out) ;; (define-key ctl-x-map "tc" 'timeclock-change) ;; (define-key ctl-x-map "tr" 'timeclock-reread-log) -;; (define-key ctl-x-map "tu" 'timeclock-update-modeline) +;; (define-key ctl-x-map "tu" 'timeclock-update-mode-line) ;; (define-key ctl-x-map "tw" 'timeclock-when-to-leave-string) ;; If you want Emacs to display the amount of time "left" to your -;; workday in the modeline, you can either set the value of -;; `timeclock-modeline-display' to t using M-x customize, or you -;; can add this code to your .emacs file: +;; workday in the mode-line, you can either set the value of +;; `timeclock-mode-line-display' to t using M-x customize, or you can +;; add this code to your .emacs file: ;; ;; (require 'timeclock) -;; (timeclock-modeline-display) +;; (timeclock-mode-line-display) ;; -;; To cancel this modeline display at any time, just call -;; `timeclock-modeline-display' again. +;; To cancel this mode line display at any time, just call +;; `timeclock-mode-line-display' again. ;; You may also want Emacs to ask you before exiting, if you are ;; currently working on a project. This can be done either by setting @@ -98,7 +98,7 @@ work four hours on Monday, then the amount of time \"remaining\" on Tuesday is twelve hours -- relative to an averaged work period of eight hours -- or eight hours, non-relative. So relative time takes into account any discrepancy of time under-worked or over-worked on -previous days. This only affects the timeclock modeline display." +previous days. This only affects the timeclock mode line display." :type 'boolean :group 'timeclock) @@ -145,39 +145,39 @@ This variable only has effect if set with \\[customize]." ;; For byte-compiler. (defvar display-time-hook) -(defvar timeclock-modeline-display) +(defvar timeclock-mode-line-display) (defcustom timeclock-use-display-time t - "If non-nil, use `display-time-hook' for doing modeline updates. + "If non-nil, use `display-time-hook' for doing mode line updates. The advantage of this is that one less timer has to be set running amok in Emacs's process space. The disadvantage is that it requires you to have `display-time' running. If you don't want to use -`display-time', but still want the modeline to show how much time is +`display-time', but still want the mode line to show how much time is left, set this variable to nil. Changing the value of this variable -while timeclock information is being displayed in the modeline has no -effect. You should call the function `timeclock-modeline-display' with +while timeclock information is being displayed in the mode line has no +effect. You should call the function `timeclock-mode-line-display' with a positive argument to force an update." :set (lambda (symbol value) (let ((currently-displaying - (and (boundp 'timeclock-modeline-display) - timeclock-modeline-display))) + (and (boundp 'timeclock-mode-line-display) + timeclock-mode-line-display))) ;; if we're changing to the state that - ;; `timeclock-modeline-display' is already using, don't + ;; `timeclock-mode-line-display' is already using, don't ;; bother toggling it. This happens on the initial loading ;; of timeclock.el. (if (and currently-displaying (or (and value (boundp 'display-time-hook) - (memq 'timeclock-update-modeline + (memq 'timeclock-update-mode-line display-time-hook)) (and (not value) timeclock-update-timer))) (setq currently-displaying nil)) (and currently-displaying - (set-variable 'timeclock-modeline-display nil)) + (set-variable 'timeclock-mode-line-display nil)) (setq timeclock-use-display-time value) (and currently-displaying - (set-variable 'timeclock-modeline-display t)) + (set-variable 'timeclock-mode-line-display t)) timeclock-use-display-time)) :type 'boolean :group 'timeclock @@ -205,7 +205,7 @@ to today." (defcustom timeclock-day-over-hook nil "A hook that is run when the workday has been completed. This hook is only run if the current time remaining is being displayed -in the modeline. See the variable `timeclock-modeline-display'." +in the mode line. See the variable `timeclock-mode-line-display'." :type 'hook :group 'timeclock) @@ -251,7 +251,7 @@ worked so far today. Also, if `timeclock-relative' is nil, this value will be the same as `timeclock-discrepancy'.") (defvar timeclock-use-elapsed nil - "Non-nil if the modeline should display time elapsed, not remaining.") + "Non-nil if the mode line should display time elapsed, not remaining.") (defvar timeclock-last-period nil "Integer representing the number of seconds in the last period. @@ -259,7 +259,7 @@ Note that you shouldn't access this value, but instead should use the function `timeclock-last-period'.") (defvar timeclock-mode-string nil - "The timeclock string (optionally) displayed in the modeline. + "The timeclock string (optionally) displayed in the mode line. The time is bracketed by <> if you are clocked in, otherwise by [].") (defvar timeclock-day-over nil @@ -267,15 +267,18 @@ The time is bracketed by <> if you are clocked in, otherwise by [].") ;;; User Functions: +(define-obsolete-function-alias 'timeclock-modeline-display + 'timeclock-mode-line-display "24.2") + ;;;###autoload -(defun timeclock-modeline-display (&optional arg) - "Toggle display of the amount of time left today in the modeline. +(defun timeclock-mode-line-display (&optional arg) + "Toggle display of the amount of time left today in the mode line. If `timeclock-use-display-time' is non-nil (the default), then -the function `display-time-mode' must be active, and the modeline +the function `display-time-mode' must be active, and the mode line will be updated whenever the time display is updated. Otherwise, the timeclock will use its own sixty second timer to do its -updating. With prefix ARG, turn modeline display on if and only -if ARG is positive. Returns the new status of timeclock modeline +updating. With prefix ARG, turn mode line display on if and only +if ARG is positive. Returns the new status of timeclock mode line display (non-nil means on)." (interactive "P") ;; cf display-time-mode. @@ -283,49 +286,49 @@ display (non-nil means on)." (or global-mode-string (setq global-mode-string '(""))) (let ((on-p (if arg (> (prefix-numeric-value arg) 0) - (not timeclock-modeline-display)))) + (not timeclock-mode-line-display)))) (if on-p (progn (or (memq 'timeclock-mode-string global-mode-string) (setq global-mode-string (append global-mode-string '(timeclock-mode-string)))) - (unless (memq 'timeclock-update-modeline timeclock-event-hook) - (add-hook 'timeclock-event-hook 'timeclock-update-modeline)) + (add-hook 'timeclock-event-hook 'timeclock-update-mode-line) (when timeclock-update-timer (cancel-timer timeclock-update-timer) (setq timeclock-update-timer nil)) (if (boundp 'display-time-hook) - (remove-hook 'display-time-hook 'timeclock-update-modeline)) + (remove-hook 'display-time-hook 'timeclock-update-mode-line)) (if timeclock-use-display-time (progn ;; Update immediately so there is a visible change ;; on calling this function. - (if display-time-mode (timeclock-update-modeline) + (if display-time-mode + (timeclock-update-mode-line) (message "Activate `display-time-mode' or turn off \ `timeclock-use-display-time' to see timeclock information")) - (add-hook 'display-time-hook 'timeclock-update-modeline)) + (add-hook 'display-time-hook 'timeclock-update-mode-line)) (setq timeclock-update-timer - (run-at-time nil 60 'timeclock-update-modeline)))) + (run-at-time nil 60 'timeclock-update-mode-line)))) (setq global-mode-string (delq 'timeclock-mode-string global-mode-string)) - (remove-hook 'timeclock-event-hook 'timeclock-update-modeline) + (remove-hook 'timeclock-event-hook 'timeclock-update-mode-line) (if (boundp 'display-time-hook) (remove-hook 'display-time-hook - 'timeclock-update-modeline)) + 'timeclock-update-mode-line)) (when timeclock-update-timer (cancel-timer timeclock-update-timer) (setq timeclock-update-timer nil))) (force-mode-line-update) - (setq timeclock-modeline-display on-p))) + (setq timeclock-mode-line-display on-p))) ;; This has to be here so that the function definition of -;; `timeclock-modeline-display' is known to the "set" function. -(defcustom timeclock-modeline-display nil - "Toggle modeline display of time remaining. +;; `timeclock-mode-line-display' is known to the "set" function. +(defcustom timeclock-mode-line-display nil + "Toggle mode line display of time remaining. You must modify via \\[customize] for this variable to have an effect." :set (lambda (symbol value) - (setq timeclock-modeline-display - (timeclock-modeline-display (or value 0)))) + (setq timeclock-mode-line-display + (timeclock-mode-line-display (or value 0)))) :type 'boolean :group 'timeclock :require 'timeclock) @@ -477,8 +480,8 @@ Returns the new value of `timeclock-discrepancy'." (interactive) (setq timeclock-discrepancy nil) (timeclock-find-discrep) - (if (and timeclock-discrepancy timeclock-modeline-display) - (timeclock-update-modeline)) + (if (and timeclock-discrepancy timeclock-mode-line-display) + (timeclock-update-mode-line)) timeclock-discrepancy) (defun timeclock-seconds-to-string (seconds &optional show-seconds @@ -645,8 +648,11 @@ arguments of `completing-read'." (timeclock-completing-read "Reason for clocking out: " (mapcar 'list timeclock-reason-list))) -(defun timeclock-update-modeline () - "Update the `timeclock-mode-string' displayed in the modeline. +(define-obsolete-function-alias 'timeclock-update-modeline + 'timeclock-update-mode-line "24.2") + +(defun timeclock-update-mode-line () + "Update the `timeclock-mode-string' displayed in the mode line. The value of `timeclock-relative' affects the display as described in that variable's documentation." (interactive) diff --git a/lisp/cus-edit.el b/lisp/cus-edit.el index e946279ee57..fe491de8c76 100644 --- a/lisp/cus-edit.el +++ b/lisp/cus-edit.el @@ -371,7 +371,7 @@ :group 'editing) (defgroup mode-line nil - "Content of the modeline." + "Contents of the mode line." :group 'environment) (defgroup editing-basics nil @@ -2101,7 +2101,7 @@ and `face'." ;;; The `custom' Widget. (defface custom-button - '((((type x w32 ns) (class color)) ; Like default modeline + '((((type x w32 ns) (class color)) ; Like default mode line (:box (:line-width 2 :style released-button) :background "lightgrey" :foreground "black")) (t diff --git a/lisp/dframe.el b/lisp/dframe.el index 2cdf4784eb0..59849e98c9e 100644 --- a/lisp/dframe.el +++ b/lisp/dframe.el @@ -516,7 +516,7 @@ LOCATION can be one of 'random, 'left-right, or 'top-bottom." (defun dframe-needed-height (&optional frame) "The needed height for the tool bar FRAME (in characters)." (or frame (setq frame (selected-frame))) - ;; The 1 is the missing modeline/minibuffer + ;; The 1 is the missing mode line or minibuffer (+ 1 (/ (frame-pixel-height frame) ;; This obscure code avoids a byte compiler warning in Emacs. (let ((f 'face-height)) @@ -969,7 +969,7 @@ broken because of the dedicated frame." (switch-to-buffer buffer) (call-interactively 'switch-to-buffer nil nil))) -;; XEmacs: this can be implemented using modeline keymaps, but there +;; XEmacs: this can be implemented using mode line keymaps, but there ;; is no use, as we have horizontal scrollbar (as the docstring ;; hints.) (defun dframe-mouse-hscroll (e) @@ -987,8 +987,7 @@ mode-line. This is only useful for non-XEmacs." ((> click-col (- (window-width) 5)) (scroll-right 2)) (t (dframe-message - "Click on the edge of the modeline to scroll left/right"))) - )) + "Click on the edge of the mode line to scroll left/right"))))) (provide 'dframe) diff --git a/lisp/dired-x.el b/lisp/dired-x.el index 1012deccd3c..f176cf7dbe0 100644 --- a/lisp/dired-x.el +++ b/lisp/dired-x.el @@ -800,8 +800,8 @@ See also `dired-enable-local-variables'." (hack-local-variables)) ;; Delete this stuff: `eobp' is used to find last subdir by dired.el. (delete-region opoint (point-max))) - ;; Make sure that the modeline shows the proper information. - (dired-sort-set-modeline)))) + ;; Make sure that the mode line shows the proper information. + (dired-sort-set-mode-line)))) (make-obsolete 'dired-hack-local-variables 'hack-dir-local-variables-non-file-buffer "24.1") diff --git a/lisp/dired.el b/lisp/dired.el index 465e485a996..7428087ca8f 100644 --- a/lisp/dired.el +++ b/lisp/dired.el @@ -3460,9 +3460,9 @@ format, use `\\[universal-argument] \\[dired]'.") "Non-nil means the Dired sort command is disabled. The idea is to set this buffer-locally in special dired buffers.") -(defun dired-sort-set-modeline () - ;; Set modeline display according to dired-actual-switches. - ;; Modeline display of "by name" or "by date" guarantees the user a +(defun dired-sort-set-mode-line () + ;; Set mode line display according to dired-actual-switches. + ;; Mode line display of "by name" or "by date" guarantees the user a ;; match with the corresponding regexps. Non-matching switches are ;; shown literally. (when (eq major-mode 'dired-mode) @@ -3478,6 +3478,9 @@ The idea is to set this buffer-locally in special dired buffers.") (concat "Dired " dired-actual-switches))))) (force-mode-line-update))) +(define-obsolete-function-alias 'dired-sort-set-modeline + 'dired-sort-set-mode-line "24.2") + (defun dired-sort-toggle-or-edit (&optional arg) "Toggle sorting by date, and refresh the Dired buffer. With a prefix argument, edit the current listing switches instead." @@ -3509,7 +3512,7 @@ With a prefix argument, edit the current listing switches instead." ;; Now, if we weren't sorting by date before, add the -t switch. (unless sorting-by-date (setq dired-actual-switches (concat dired-actual-switches " -t")))) - (dired-sort-set-modeline) + (dired-sort-set-mode-line) (revert-buffer)) ;; Some user code loads dired especially for this. @@ -3532,7 +3535,7 @@ set the minor mode accordingly, others appear literally in the mode line. With optional second arg NO-REVERT, don't refresh the listing afterwards." (dired-sort-R-check switches) (setq dired-actual-switches switches) - (dired-sort-set-modeline) + (dired-sort-set-mode-line) (or no-revert (revert-buffer))) (defvar dired-subdir-alist-pre-R nil @@ -4200,7 +4203,7 @@ instead. ;;;*** ;;;### (autoloads (dired-do-relsymlink dired-jump-other-window dired-jump) -;;;;;; "dired-x" "dired-x.el" "d09d49d54080e60ad6ecee5573b4e517") +;;;;;; "dired-x" "dired-x.el" "d2461aa6efb8c1d7de8f245728ab448e") ;;; Generated autoloads from dired-x.el (autoload 'dired-jump "dired-x" "\ diff --git a/lisp/emacs-lisp/easy-mmode.el b/lisp/emacs-lisp/easy-mmode.el index d522f07249a..abb1edca4ee 100644 --- a/lisp/emacs-lisp/easy-mmode.el +++ b/lisp/emacs-lisp/easy-mmode.el @@ -99,7 +99,7 @@ the mode if the argument is `toggle'. If DOC is nil this function adds a basic doc-string stating these facts. Optional INIT-VALUE is the initial value of the mode's variable. -Optional LIGHTER is displayed in the modeline when the mode is on. +Optional LIGHTER is displayed in the mode line when the mode is on. Optional KEYMAP is the default keymap bound to the mode keymap. If non-nil, it should be a variable name (whose value is a keymap), or an expression that returns either a keymap or a list of diff --git a/lisp/emacs-lisp/re-builder.el b/lisp/emacs-lisp/re-builder.el index c8733202f31..05bb7577d22 100644 --- a/lisp/emacs-lisp/re-builder.el +++ b/lisp/emacs-lisp/re-builder.el @@ -38,7 +38,7 @@ ;; the target buffer are marked automatically with colored overlays ;; (for non-color displays see below) giving you feedback over the ;; extents of the matched (sub) expressions. The (non-)validity is -;; shown only in the modeline without throwing the errors at you. If +;; shown only in the mode line without throwing the errors at you. If ;; you want to know the reason why RE Builder considers it as invalid ;; call `reb-force-update' ("\C-c\C-u") which should reveal the error. diff --git a/lisp/emulation/crisp.el b/lisp/emulation/crisp.el index 087a7e2898d..cfb8ed07595 100644 --- a/lisp/emulation/crisp.el +++ b/lisp/emulation/crisp.el @@ -44,9 +44,9 @@ ;; by default run `save-buffers-kill-emacs' instead of the command ;; `execute-extended-command'. -;; Finally, if you want to change the string displayed in the modeline -;; when this mode is in effect, override the definition of -;; `crisp-mode-modeline-string' in your .emacs. The default value is +;; Finally, if you want to change the string displayed in the mode +;; line when this mode is in effect, override the definition of +;; `crisp-mode-mode-line-string' in your .emacs. The default value is ;; " *Crisp*" which may be a bit lengthy if you have a lot of things ;; being displayed there. @@ -173,11 +173,14 @@ All the bindings are done here instead of globally to try and be nice to the world.") -(defcustom crisp-mode-modeline-string " *CRiSP*" - "String to display in the modeline when CRiSP emulation mode is enabled." +(defcustom crisp-mode-mode-line-string " *CRiSP*" + "String to display in the mode line when CRiSP emulation mode is enabled." :type 'string :group 'crisp) +(define-obsolete-variable-alias 'crisp-mode-modeline-string + 'crisp-mode-mode-line-string "24.2") + ;;;###autoload (defcustom crisp-mode nil "Track status of CRiSP emulation mode. @@ -354,7 +357,7 @@ With a prefix argument ARG, enable CRiSP mode if ARG is positive, and disable it otherwise. If called from Lisp, enable the mode if ARG is omitted or nil." :keymap crisp-mode-map - :lighter crisp-mode-modeline-string + :lighter crisp-mode-mode-line-string (when crisp-mode ;; Make menu entries show M-u or f14 in preference to C-x u. (put 'undo :advertised-binding diff --git a/lisp/emulation/viper-cmd.el b/lisp/emulation/viper-cmd.el index 111ce34dc1a..dc767f72e62 100644 --- a/lisp/emulation/viper-cmd.el +++ b/lisp/emulation/viper-cmd.el @@ -3462,7 +3462,7 @@ controlled by the sign of prefix numeric value." (defun viper-adjust-window () (let ((win-height (if (featurep 'xemacs) (window-displayed-height) - (1- (window-height)))) ; adjust for modeline + (1- (window-height)))) ; adjust for mode line (pt (point)) at-top-p at-bottom-p min-scroll direction) diff --git a/lisp/erc/ChangeLog b/lisp/erc/ChangeLog index 9585c249cb2..d15aa448ffc 100644 --- a/lisp/erc/ChangeLog +++ b/lisp/erc/ChangeLog @@ -1,3 +1,9 @@ +2012-06-02 Chong Yidong + + * erc-track.el (erc-track, erc-track-faces-priority-list) + (erc-track-faces-normal-list, erc-track-find-face) + (erc-track-modified-channels): Fix modeline -> mode line in docs. + 2012-05-14 Mike Kazantsev (tiny change) * erc-dcc.el (erc-dcc-handle-ctcp-send): Fix a regression diff --git a/lisp/erc/erc-track.el b/lisp/erc/erc-track.el index e4a41089539..9c56c724224 100644 --- a/lisp/erc/erc-track.el +++ b/lisp/erc/erc-track.el @@ -41,7 +41,7 @@ ;;; Code: (defgroup erc-track nil - "Track active buffers and show activity in the modeline." + "Track active buffers and show activity in the mode line." :group 'erc) (defcustom erc-track-enable-keybindings 'ask @@ -196,7 +196,7 @@ The faces used are the same as used for text in the buffers. erc-notice-face erc-input-face erc-prompt-face) - "A list of faces used to highlight active buffer names in the modeline. + "A list of faces used to highlight active buffer names in the mode line. If a message contains one of the faces in this list, the buffer name will be highlighted using that face. The first matching face is used." :group 'erc-track @@ -228,10 +228,10 @@ setting this variable might not be very useful." erc-default-face erc-action-face) "A list of faces considered to be part of normal conversations. -This list is used to highlight active buffer names in the modeline. +This list is used to highlight active buffer names in the mode line. If a message contains one of the faces in this list, and the -previous modeline face for this buffer is also in this list, then +previous mode line face for this buffer is also in this list, then the buffer name will be highlighted using the face from the message. This gives a rough indication that active conversations are occurring in these channels. @@ -872,7 +872,7 @@ Use `erc-make-mode-line-buffer-name' to create buttons." (erc-modified-channels-display))) (defun erc-track-find-face (faces) - "Return the face to use in the modeline from the faces in FACES. + "Return the face to use in the mode line from the faces in FACES. If `erc-track-faces-priority-list' is set, the one from FACES who is first in that list will be used. If nothing matches or if `erc-track-faces-priority-list' is not set, the default mode-line @@ -906,7 +906,7 @@ element." (defun erc-track-modified-channels () "Hook function for `erc-insert-post-hook' to check if the current -buffer should be added to the modeline as a hidden, modified +buffer should be added to the mode line as a hidden, modified channel. Assumes it will only be called when current-buffer is in `erc-mode'." (let ((this-channel (or (erc-default-target) diff --git a/lisp/eshell/esh-mode.el b/lisp/eshell/esh-mode.el index 74320538fe9..9da3f8e2e79 100644 --- a/lisp/eshell/esh-mode.el +++ b/lisp/eshell/esh-mode.el @@ -193,11 +193,14 @@ This is used by `eshell-watch-for-password-prompt'." :type '(choice (const nil) function) :group 'eshell-mode) -(defcustom eshell-status-in-modeline t - "If non-nil, let the user know a command is running in the modeline." +(defcustom eshell-status-in-mode-line t + "If non-nil, let the user know a command is running in the mode line." :type 'boolean :group 'eshell-mode) +(define-obsolete-variable-alias 'eshell-status-in-modeline + 'eshell-status-in-mode-line "24.2") + (defvar eshell-first-time-p t "A variable which is non-nil the first time Eshell is loaded.") @@ -314,14 +317,14 @@ and the hook `eshell-exit-hook'." (setq eshell-mode-map (make-sparse-keymap)) (use-local-map eshell-mode-map) - (when eshell-status-in-modeline + (when eshell-status-in-mode-line (make-local-variable 'eshell-command-running-string) (let ((fmt (copy-sequence mode-line-format))) (make-local-variable 'mode-line-format) (setq mode-line-format fmt)) - (let ((modeline (memq 'mode-line-modified mode-line-format))) - (if modeline - (setcar modeline 'eshell-command-running-string)))) + (let ((mode-line-elt (memq 'mode-line-modified mode-line-format))) + (if mode-line-elt + (setcar mode-line-elt 'eshell-command-running-string)))) (define-key eshell-mode-map [return] 'eshell-send-input) (define-key eshell-mode-map [(control ?m)] 'eshell-send-input) @@ -434,7 +437,7 @@ and the hook `eshell-exit-hook'." (when eshell-scroll-show-maximum-output (set (make-local-variable 'scroll-conservatively) 1000)) - (when eshell-status-in-modeline + (when eshell-status-in-mode-line (add-hook 'eshell-pre-command-hook 'eshell-command-started nil t) (add-hook 'eshell-post-command-hook 'eshell-command-finished nil t)) @@ -448,12 +451,12 @@ and the hook `eshell-exit-hook'." (put 'eshell-mode 'mode-class 'special) (defun eshell-command-started () - "Indicate in the modeline that a command has started." + "Indicate in the mode line that a command has started." (setq eshell-command-running-string "**") (force-mode-line-update)) (defun eshell-command-finished () - "Indicate in the modeline that a command has finished." + "Indicate in the mode line that a command has finished." (setq eshell-command-running-string "--") (force-mode-line-update)) diff --git a/lisp/foldout.el b/lisp/foldout.el index 4081bfd2823..8d15416d557 100644 --- a/lisp/foldout.el +++ b/lisp/foldout.el @@ -39,7 +39,7 @@ ;; look under one of the level-2 headings, position the cursor on it and do C-c ;; C-z again. This exposes the level-2 body and its level-3 child subheadings ;; and narrows the buffer again. You can keep on zooming in on successive -;; subheadings as much as you like. A string in the modeline tells you how +;; subheadings as much as you like. A string in the mode line tells you how ;; deep you've gone. ;; ;; When zooming in on a heading you might only want to see the child @@ -194,7 +194,7 @@ ;; shows only the subheadings. ;; 1.2 28-Jan-94 -;; Fixed a dumb bug - didn't make `foldout-modeline-string' buffer-local :-( +;; Fixed a dumb bug - didn't make `foldout-mode-line-string' buffer-local :-( ;; ;; Changed `foldout-exit-fold' to use prefix arg to say how many folds to exit. ;; Negative arg means exit but don't hide text. Zero arg means exit all folds. @@ -218,15 +218,15 @@ An end marker of nil means the fold ends after (point-max).") (make-variable-buffer-local 'foldout-fold-list) -(defvar foldout-modeline-string nil - "Modeline string announcing that we are in an outline fold.") -(make-variable-buffer-local 'foldout-modeline-string) +(defvar foldout-mode-line-string nil + "Mode line string announcing that we are in an outline fold.") +(make-variable-buffer-local 'foldout-mode-line-string) ;; put our minor mode string immediately following outline-minor-mode's -(or (assq 'foldout-modeline-string minor-mode-alist) +(or (assq 'foldout-mode-line-string minor-mode-alist) (let ((outl-entry (memq (assq 'outline-minor-mode minor-mode-alist) minor-mode-alist)) - (foldout-entry '((foldout-modeline-string foldout-modeline-string)))) + (foldout-entry '((foldout-mode-line-string foldout-mode-line-string)))) ;; something's wrong with outline if we can't find it (if (null outl-entry) @@ -296,8 +296,8 @@ optional arg EXPOSURE \(interactively with prefix arg\) changes this:- (setq foldout-fold-list (cons (cons start-marker end-marker) foldout-fold-list)) - ;; update the modeline - (foldout-update-modeline) + ;; update the mode line + (foldout-update-mode-line) ))) @@ -375,8 +375,7 @@ exited and text is left visible." ;; zap the markers so they don't slow down editing (set-marker start-marker nil) - (if end-marker (set-marker end-marker nil)) - ) + (if end-marker (set-marker end-marker nil))) ;; narrow to the enclosing fold if there is one (if foldout-fold-list @@ -386,32 +385,29 @@ exited and text is left visible." (narrow-to-region start-marker (if end-marker (1- (marker-position end-marker)) - (point-max))) - )) + (point-max))))) (recenter) - ;; update the modeline - (foldout-update-modeline) - )) + ;; update the mode line + (foldout-update-mode-line))) -(defun foldout-update-modeline () - "Set the modeline string to indicate our fold depth." +(defun foldout-update-mode-line () + "Set the mode line to indicate our fold depth." (let ((depth (length foldout-fold-list))) - (setq foldout-modeline-string + (setq foldout-mode-line-string (cond ;; if we're not in a fold, keep quiet ((zerop depth) nil) - ;; in outline-minor-mode we're after "Outl:xx" in the modeline + ;; in outline-minor-mode we're after "Outl:xx" in the mode line (outline-minor-mode (format ":%d" depth)) ;; otherwise just announce the depth (I guess we're in outline-mode) ((= depth 1) " Inside 1 fold") (t - (format " Inside %d folds" depth)) - )))) + (format " Inside %d folds" depth)))))) (defun foldout-mouse-zoom (event) diff --git a/lisp/forms.el b/lisp/forms.el index 3175ef9dfa9..4626b28f464 100644 --- a/lisp/forms.el +++ b/lisp/forms.el @@ -669,7 +669,7 @@ Commands: Equivalent keys in read-only mode: ;;(message "forms: proceeding setup...") - ;; Since we aren't really implementing a minor mode, we hack the modeline + ;; Since we aren't really implementing a minor mode, we hack the mode line ;; directly to get the text " View " into forms-read-only form buffers. For ;; that reason, this variable must be buffer only. (make-local-variable 'minor-mode-alist) diff --git a/lisp/frame.el b/lisp/frame.el index 5e380cd8fc6..43704d3f20d 100644 --- a/lisp/frame.el +++ b/lisp/frame.el @@ -1227,8 +1227,8 @@ often have their own features for raising or lowering frames." (defun set-frame-name (name) "Set the name of the selected frame to NAME. When called interactively, prompt for the name of the frame. -The frame name is displayed on the modeline if the terminal displays only -one frame, otherwise the name is displayed on the frame's caption bar." +On text terminals, the frame name is displayed on the mode line. +On graphical displays, it is displayed on the frame's title bar." (interactive "sFrame name: ") (modify-frame-parameters (selected-frame) (list (cons 'name name)))) diff --git a/lisp/help.el b/lisp/help.el index 317d5cf8f46..2dbb31de97b 100644 --- a/lisp/help.el +++ b/lisp/help.el @@ -942,7 +942,7 @@ is currently activated with completion." (error "Cannot find minor mode for `%s'" indicator)))) (defun lookup-minor-mode-from-indicator (indicator) - "Return a minor mode symbol from its indicator on the modeline." + "Return a minor mode symbol from its indicator on the mode line." ;; remove first space if existed (if (and (< 0 (length indicator)) (eq (aref indicator 0) ?\s)) diff --git a/lisp/international/robin.el b/lisp/international/robin.el index c50277686ff..73a06bb2ccd 100644 --- a/lisp/international/robin.el +++ b/lisp/international/robin.el @@ -127,7 +127,7 @@ ;; Use the symbol `robin-use-package' as the third argument. -;; The fourth argument is the prompt that appears in modeline when this +;; The fourth argument is the prompt that appears in mode line when this ;; input method is active. ;; The fifth argument is a documentation string; it may or may not be diff --git a/lisp/net/eudc.el b/lisp/net/eudc.el index 3f24a78cbbe..9bd01806d24 100644 --- a/lisp/net/eudc.el +++ b/lisp/net/eudc.el @@ -1213,7 +1213,7 @@ queries the server for the existing fields and displays a corresponding form." ;;; Load the options file (if (and (not noninteractive) (and (locate-library eudc-options-file) - (progn (message "") t)) ; Remove modeline message + (progn (message "") t)) ; Remove mode line message (not (featurep 'eudc-options-file))) (load eudc-options-file)) diff --git a/lisp/net/newst-ticker.el b/lisp/net/newst-ticker.el index e62dd284f7a..4b5ac3143d3 100644 --- a/lisp/net/newst-ticker.el +++ b/lisp/net/newst-ticker.el @@ -1,4 +1,4 @@ -;; newst-ticker.el --- modeline ticker for newsticker. +;; newst-ticker.el --- mode line ticker for newsticker. ;; Copyright (C) 2003-2012 Free Software Foundation, Inc. diff --git a/lisp/net/newsticker.el b/lisp/net/newsticker.el index fc518c24843..5d673faf0db 100644 --- a/lisp/net/newsticker.el +++ b/lisp/net/newsticker.el @@ -103,7 +103,7 @@ ;; ----- ;; The command newsticker-show-news will display all available headlines in ;; a special buffer, called `*newsticker*'. It will also start the -;; asynchronous download of headlines. The modeline in the `*newsticker*' +;; asynchronous download of headlines. The mode line in the `*newsticker*' ;; buffer informs whenever new headlines have arrived. Clicking ;; mouse-button 2 or pressing RET in this buffer on a headline will call ;; browse-url to load the corresponding news story in your favorite web diff --git a/lisp/net/rcirc.el b/lisp/net/rcirc.el index 1898b3d074f..4bc99c1ef37 100644 --- a/lisp/net/rcirc.el +++ b/lisp/net/rcirc.el @@ -30,7 +30,7 @@ ;; one-to-one communication. ;; Rcirc has simple defaults and clear and consistent behavior. -;; Message arrival timestamps, activity notification on the modeline, +;; Message arrival timestamps, activity notification on the mode line, ;; message filling, nick completion, and keepalive pings are all ;; enabled by default, but can easily be adjusted or turned off. Each ;; discussion takes place in its own buffer and there is a single @@ -394,7 +394,7 @@ will be killed." "List of buffers with unviewed activity.") (defvar rcirc-activity-string "" - "String displayed in modeline representing `rcirc-activity'.") + "String displayed in mode line representing `rcirc-activity'.") (put 'rcirc-activity-string 'risky-local-variable t) (defvar rcirc-server-buffer nil @@ -1599,7 +1599,7 @@ record activity." (buffer-disable-undo) (buffer-enable-undo)) - ;; record modeline activity + ;; record mode line activity (when (and activity (not rcirc-ignore-buffer-activity-flag) (not (and rcirc-dim-nicks sender @@ -2003,7 +2003,7 @@ activity. Only run if the buffer is not visible and buffers ",")) (defun rcirc-short-buffer-name (buffer) - "Return a short name for BUFFER to use in the modeline indicator." + "Return a short name for BUFFER to use in the mode line indicator." (with-current-buffer buffer (or rcirc-short-buffer-name (buffer-name)))) diff --git a/lisp/obsolete/old-whitespace.el b/lisp/obsolete/old-whitespace.el index 3cd5d3a0c38..02c8115f23a 100644 --- a/lisp/obsolete/old-whitespace.el +++ b/lisp/obsolete/old-whitespace.el @@ -35,9 +35,9 @@ ;; 4. Spaces followed by a TAB. (Almost always, we never want that). ;; 5. Spaces or TABS at the end of a line. ;; -;; Whitespace errors are reported in a buffer, and on the modeline. +;; Whitespace errors are reported in a buffer, and on the mode line. ;; -;; Modeline will show a W:! to denote a particular type of whitespace, +;; Mode line will show a W:! to denote a particular type of whitespace, ;; where `x' and `y' can be one (or more) of: ;; ;; e - End-of-Line whitespace. @@ -46,7 +46,7 @@ ;; s - Space followed by Tab. ;; t - Trailing whitespace. ;; -;; If any of the whitespace checks is turned off, the modeline will display a +;; If any of the whitespace checks is turned off, the mode line will display a ;; !. ;; ;; (since (3) is the most controversial one, here is the rationale: Most @@ -230,7 +230,7 @@ this variable." :group 'whitespace) (defcustom whitespace-silent nil - "All whitespace errors will be shown only in the modeline when t. + "All whitespace errors will be shown only in the mode line when t. Note that setting this may cause all whitespaces introduced in a file to go unnoticed when the buffer is killed, unless the user visits the `*Whitespace @@ -653,7 +653,7 @@ If highlighting is enabled, highlight these characters." nil))) (defun whitespace-update-modeline (&optional whitespace-err) - "Update modeline with whitespace errors. + "Update mode line with whitespace errors. Also with whitespaces whose testing has been turned off." (if whitespace-display-in-modeline (progn diff --git a/lisp/org/ChangeLog b/lisp/org/ChangeLog index 2d2bf699749..9eaf9d512ad 100644 --- a/lisp/org/ChangeLog +++ b/lisp/org/ChangeLog @@ -1,3 +1,9 @@ +2012-06-02 Chong Yidong + + * org-clock.el (org-clock-string-limit) + (org-clock-modeline-total, org-clock-task-overrun-text) + (org-clock-mode-line-entry): Doc fix, "modeline" -> "mode line". + 2012-05-27 Mark Shoulson (tiny change) * org.el (org-fontify-entities): Fix bug: The entities \sup[123] and diff --git a/lisp/org/org-clock.el b/lisp/org/org-clock.el index aabcfc187db..c39fb249e74 100644 --- a/lisp/org/org-clock.el +++ b/lisp/org/org-clock.el @@ -143,7 +143,7 @@ The function is called with point at the beginning of the headline." :type 'function) (defcustom org-clock-string-limit 0 - "Maximum length of clock strings in the modeline. 0 means no limit." + "Maximum length of clock strings in the mode line. 0 means no limit." :group 'org-clock :type 'integer) @@ -202,7 +202,7 @@ file name play this sound file. If not possible, fall back to beep" (file :tag "Play sound file"))) (defcustom org-clock-modeline-total 'auto - "Default setting for the time included for the modeline clock. + "Default setting for the time included for the mode line clock. This can be overruled locally using the CLOCK_MODELINE_TOTAL property. Allowed values are: @@ -221,7 +221,7 @@ auto Automatically, either `all', or `repeat' for repeating tasks" (defvaralias 'org-task-overrun-text 'org-clock-task-overrun-text) (defcustom org-clock-task-overrun-text nil - "The extra modeline text that should indicate that the clock is overrun. + "Extra mode line text to indicate that the clock is overrun. The can be nil to indicate that instead of adding text, the clock time should get a different face (`org-mode-line-clock-overrun'). When this is a string, it is prepended to the clock string as an indication, @@ -669,7 +669,7 @@ Use alsa's aplay tool if available." (= 0 (call-process "which" nil nil nil program-name)))) (defvar org-clock-mode-line-entry nil - "Information for the modeline about the running clock.") + "Information for the mode line about the running clock.") (defun org-find-open-clocks (file) "Search through the given file and find all open clocks." diff --git a/lisp/play/solitaire.el b/lisp/play/solitaire.el index f282fa68b2a..f249faa0e15 100644 --- a/lisp/play/solitaire.el +++ b/lisp/play/solitaire.el @@ -201,12 +201,12 @@ Pick your favorite shortcuts: (setq buffer-read-only t) (setq solitaire-stones 32) (solitaire-insert-board) - (solitaire-build-modeline) + (solitaire-build-mode-line) (goto-char (point-max)) (setq solitaire-center (search-backward ".")) (setq buffer-undo-list (list (point))))) -(defun solitaire-build-modeline () +(defun solitaire-build-mode-line () (setq mode-line-format (list "" "---" 'mode-line-buffer-identification (if (< 1 solitaire-stones) @@ -353,7 +353,7 @@ which a stone will be taken away) and target." (insert ?o) (goto-char target) (setq solitaire-stones (1- solitaire-stones)) - (solitaire-build-modeline) + (solitaire-build-mode-line) (if solitaire-auto-eval (solitaire-do-check)))))) (defun solitaire-undo (arg) @@ -372,7 +372,7 @@ which a stone will be taken away) and target." (<= (solitaire-current-line) solitaire-end-y) (setq count (1+ count)))) count))) - (solitaire-build-modeline) + (solitaire-build-mode-line) (when solitaire-auto-eval (solitaire-do-check))) (defun solitaire-check () diff --git a/lisp/play/zone.el b/lisp/play/zone.el index b64099844e2..34e21193437 100644 --- a/lisp/play/zone.el +++ b/lisp/play/zone.el @@ -30,9 +30,6 @@ ;; Bored by the zone pyrotechnics? Write your own! Add it to ;; `zone-programs'. See `zone-call' for higher-ordered zoning. -;; WARNING: Not appropriate for Emacs sessions over modems or -;; computers as slow as mine. - ;; THANKS: Christopher Mayer, Scott Flinchbaugh, ;; Rachel Kalmar, Max Froumentin, Juri Linkov, ;; Luigi Panzeri, John Paul Wallington. @@ -78,7 +75,7 @@ If nil, don't interrupt for about 1^26 seconds.") `(with-current-buffer (get 'zone 'orig-buffer) ,@body)) -(defmacro zone-hiding-modeline (&rest body) +(defmacro zone-hiding-mode-line (&rest body) ;; This formerly worked by temporarily altering face `mode-line', ;; which did not even work right, it seems. `(let (mode-line-format) @@ -116,7 +113,6 @@ If the element is a function or a list of a function and a number, (wp (1+ (- (window-point (selected-window)) (window-start))))) (put 'zone 'orig-buffer (current-buffer)) - (put 'zone 'modeline-hidden-level 0) (switch-to-buffer outbuf) (setq mode-name "Zone") (erase-buffer) @@ -586,7 +582,7 @@ If the element is a function or a list of a function and a number, (setq ok (zerop (forward-line 1)) lines (cons (buffer-substring p (point)) lines)))) (sit-for 5) - (zone-hiding-modeline + (zone-hiding-mode-line (let ((msg "Zoning... (zone-pgm-stress)")) (while (not (string= msg "")) (message (setq msg (substring msg 1))) @@ -603,7 +599,7 @@ If the element is a function or a list of a function and a number, (defun zone-pgm-stress-destress () (zone-call 'zone-pgm-stress 25) - (zone-hiding-modeline + (zone-hiding-mode-line (sit-for 3) (erase-buffer) (sit-for 3) diff --git a/lisp/proced.el b/lisp/proced.el index da82186fe30..930f7d99f9e 100644 --- a/lisp/proced.el +++ b/lisp/proced.el @@ -1651,8 +1651,8 @@ After updating a displayed Proced buffer run the normal hook (goto-char new-pos) (goto-char (point-min)) (proced-move-to-goal-column))) - ;; update modeline - ;; Does the long `mode-name' clutter the modeline? It would be nice + ;; update mode line + ;; Does the long `mode-name' clutter the mode line? It would be nice ;; to have some other location for displaying the values of the various ;; flags that affect the behavior of proced (flags one might want ;; to change on the fly). Where?? diff --git a/lisp/progmodes/ada-mode.el b/lisp/progmodes/ada-mode.el index 33ff4645a77..1825098a55e 100644 --- a/lisp/progmodes/ada-mode.el +++ b/lisp/progmodes/ada-mode.el @@ -105,7 +105,7 @@ ;; should be loaded before the ada-mode, which will then setup some variables ;; to improve the support for Ada code. ;; Here is the list of these modes: -;; `which-function-mode': Display in the modeline the name of the subprogram +;; `which-function-mode': Display in the mode line the name of the subprogram ;; the cursor is in. ;; `outline-mode': Provides the capability to collapse or expand the code ;; for specific language constructs, for instance if you want to hide the @@ -5055,7 +5055,7 @@ Since the search can be long, the results are cached." (re-search-backward ada-imenu-subprogram-menu-re nil t)) ;; Get the function name, but not the properties, or this changes - ;; the face in the modeline on Emacs 21 + ;; the face in the mode line on Emacs 21 (setq func-name (match-string-no-properties 3)) (if (and (not (ada-in-comment-p)) (not (save-excursion diff --git a/lisp/progmodes/antlr-mode.el b/lisp/progmodes/antlr-mode.el index 345ca563906..4062646c967 100644 --- a/lisp/progmodes/antlr-mode.el +++ b/lisp/progmodes/antlr-mode.el @@ -235,11 +235,11 @@ MAJOR-MODE, the major mode of the code in the grammar's actions, is the value of `antlr-language' if the first group in the string matched by REGEXP in `antlr-language-limit-n-regexp' is one of the OPTION-VALUEs. An OPTION-VALUE of nil denotes the fallback element. MODELINE-STRING is -also displayed in the modeline next to \"Antlr\"." +also displayed in the mode line next to \"Antlr\"." :group 'antlr :type '(repeat (group :value (java-mode "") (function :tag "Major mode") - (string :tag "Modeline string") + (string :tag "Mode line string") (repeat :tag "ANTLR language option" :inline t (choice (const :tag "Default" nil) string ))))) diff --git a/lisp/progmodes/cc-cmds.el b/lisp/progmodes/cc-cmds.el index 9cf20ccb516..4a3577bb29b 100644 --- a/lisp/progmodes/cc-cmds.el +++ b/lisp/progmodes/cc-cmds.el @@ -310,7 +310,7 @@ left out. Turning on auto-newline automatically enables electric indentation. When the auto-newline feature is enabled (indicated by \"/la\" on the -modeline after the mode name) newlines are automatically inserted +mode line after the mode name) newlines are automatically inserted after special characters such as brace, comma, semi-colon, and colon." (interactive "P") (setq c-auto-newline @@ -329,7 +329,7 @@ positive, turns it off when negative, and just toggles it when zero or left out. When the hungry-delete-key feature is enabled (indicated by \"/h\" on -the modeline after the mode name) the delete key gobbles all preceding +the mode line after the mode name) the delete key gobbles all preceding whitespace in one fell swoop." (interactive "P") (setq c-hungry-delete-key (c-calculate-state arg c-hungry-delete-key)) diff --git a/lisp/progmodes/compile.el b/lisp/progmodes/compile.el index 45986591499..5c9d5c7e351 100644 --- a/lisp/progmodes/compile.el +++ b/lisp/progmodes/compile.el @@ -1646,7 +1646,7 @@ Returns the compilation buffer created." (cons proc compilation-in-progress))) ;; No asynchronous processes available. (message "Executing `%s'..." command) - ;; Fake modeline display as if `start-process' were run. + ;; Fake mode line display as if `start-process' were run. (setq mode-line-process (list (propertize ":run" 'face 'compilation-warning))) (force-mode-line-update) diff --git a/lisp/progmodes/idlw-shell.el b/lisp/progmodes/idlw-shell.el index da8f30bab43..4f9109284ae 100644 --- a/lisp/progmodes/idlw-shell.el +++ b/lisp/progmodes/idlw-shell.el @@ -481,7 +481,7 @@ line where IDL is stopped. See also `idlwave-shell-mark-stop-line'." (defcustom idlwave-shell-electric-stop-line-face (prog1 - (copy-face 'modeline 'idlwave-shell-electric-stop-line) + (copy-face 'mode-line 'idlwave-shell-electric-stop-line) (set-face-background 'idlwave-shell-electric-stop-line idlwave-shell-electric-stop-color) (condition-case nil diff --git a/lisp/progmodes/scheme.el b/lisp/progmodes/scheme.el index 1fa75f239eb..7cab07fe387 100644 --- a/lisp/progmodes/scheme.el +++ b/lisp/progmodes/scheme.el @@ -201,7 +201,7 @@ Editing commands are similar to those of `lisp-mode'. In addition, if an inferior Scheme process is running, some additional commands will be defined, for evaluating expressions and controlling the interpreter, and the state of the process will be displayed in the -modeline of all Scheme buffers. The names of commands that interact +mode line of all Scheme buffers. The names of commands that interact with the Scheme process start with \"xscheme-\" if you use the MIT Scheme-specific `xscheme' package; for more information see the documentation for `xscheme-interaction-mode'. Use \\[run-scheme] to diff --git a/lisp/progmodes/vhdl-mode.el b/lisp/progmodes/vhdl-mode.el index dbf2cb26b83..5177bc6d9f5 100644 --- a/lisp/progmodes/vhdl-mode.el +++ b/lisp/progmodes/vhdl-mode.el @@ -4226,7 +4226,7 @@ Usage: brackets and removed if the queried string is left empty. Prompts for mandatory arguments remain in the code if the queried string is left empty. They can be queried again by `C-c C-t C-q'. Enabled - electrification is indicated by `/e' in the modeline. + electrification is indicated by `/e' in the mode line. Typing `M-SPC' after a keyword inserts a space without calling the template generator. Automatic template generation (i.e. @@ -4253,7 +4253,7 @@ Usage: Double striking of some keys inserts cumbersome VHDL syntax elements. Stuttering can be disabled (enabled) by typing `C-c C-m C-s' or by option `vhdl-stutter-mode'. Enabled stuttering is indicated by `/s' in - the modeline. The stuttering keys and their effects are: + the mode line. The stuttering keys and their effects are: ;; --> \" : \" [ --> ( -- --> comment ;;; --> \" := \" [[ --> [ --CR --> comment-out code diff --git a/lisp/progmodes/which-func.el b/lisp/progmodes/which-func.el index 07cb43b64a2..1c3c6a95774 100644 --- a/lisp/progmodes/which-func.el +++ b/lisp/progmodes/which-func.el @@ -68,7 +68,7 @@ "String to display in the mode line when current function is unknown.") (defgroup which-func nil - "Display the current function name in the modeline." + "Display the current function name in the mode line." :group 'tools :version "20.3") @@ -163,7 +163,7 @@ single string, the new name of the item.") (defvar which-func-cleanup-function nil "Function to transform a string before displaying it in the mode line. The function is called with one argument, the string to display. -Its return value is displayed in the modeline. +Its return value is displayed in the mode line. If nil, no function is called. The default value is nil. This feature can be useful if Imenu is set up to make more diff --git a/lisp/progmodes/xscheme.el b/lisp/progmodes/xscheme.el index f9d83da1a3a..52ebdfbdcdf 100644 --- a/lisp/progmodes/xscheme.el +++ b/lisp/progmodes/xscheme.el @@ -74,7 +74,7 @@ by the scheme process, so additional control-g's are to be ignored.") (defconst default-xscheme-runlight '(": " xscheme-runlight-string) - "Default global (shared) xscheme-runlight modeline format.") + "Default global (shared) xscheme-runlight mode line format.") (defvar xscheme-runlight "") (defvar xscheme-runlight-string nil) @@ -326,7 +326,7 @@ buffer is not visible at that time, the value will also be displayed in the minibuffer. If an error occurs, the process buffer will automatically pop up to show you the error message. -While the Scheme process is running, the modelines of all buffers in +While the Scheme process is running, the mode lines of all buffers in scheme-mode are modified to show the state of the process. The possible states and their meanings are: @@ -334,7 +334,7 @@ input waiting for input run evaluating gc garbage collecting -The process buffer's modeline contains additional information where +The process buffer's mode line contains additional information where the buffer's name is normally displayed: the command interpreter level and type. @@ -404,7 +404,7 @@ with no args, if that value is non-nil. (cons (process-filter process) (process-sentinel process))) (xscheme-process-filter-initialize t) - (xscheme-modeline-initialize xscheme-buffer-name) + (xscheme-mode-line-initialize xscheme-buffer-name) (set-process-sentinel process 'xscheme-process-sentinel) (set-process-filter process 'xscheme-process-filter)) (setq xscheme-previous-process-state (cons nil nil))))))) @@ -817,7 +817,7 @@ Control returns to the top level rep loop." xscheme-buffer-name) (set-marker (process-mark process) (point-max)) (xscheme-process-filter-initialize t) - (xscheme-modeline-initialize xscheme-buffer-name) + (xscheme-mode-line-initialize xscheme-buffer-name) (set-process-sentinel process 'xscheme-process-sentinel) (set-process-filter process 'xscheme-process-filter) (run-hooks 'xscheme-start-hook))))) @@ -951,7 +951,7 @@ the remaining input.") (if running-p (let ((name (buffer-name (current-buffer)))) (setq scheme-mode-line-process '(": " xscheme-runlight-string)) - (xscheme-modeline-initialize name) + (xscheme-mode-line-initialize name) (if (equal name (default-value 'xscheme-buffer-name)) (setq-default xscheme-runlight default-xscheme-runlight)))) (if (or (eq xscheme-runlight default-xscheme-runlight) @@ -1059,7 +1059,7 @@ the remaining input.") (set-buffer (process-buffer process)) (goto-char (process-mark process)))) -(defun xscheme-modeline-initialize (name) +(defun xscheme-mode-line-initialize (name) (setq xscheme-runlight-string "") (if (equal name (default-value 'xscheme-buffer-name)) (setq-default xscheme-runlight-string "")) diff --git a/lisp/ses.el b/lisp/ses.el index 876537413ca..a6a6aa91b5c 100644 --- a/lisp/ses.el +++ b/lisp/ses.el @@ -1933,7 +1933,7 @@ narrows the buffer now." ;; do the narrowing. (narrow-to-region (point-min) ses--data-marker) (setq ses--deferred-narrow nil)) - ;; Update the modeline. + ;; Update the mode line. (let ((oldcell ses--curcell)) (ses-set-curcell) (unless (eq ses--curcell oldcell) diff --git a/lisp/strokes.el b/lisp/strokes.el index 8b5aa7a76d8..1ae2300559d 100644 --- a/lisp/strokes.el +++ b/lisp/strokes.el @@ -212,11 +212,13 @@ static char * stroke_xpm[] = { :link '(emacs-commentary-link "strokes") :group 'mouse) -(defcustom strokes-modeline-string " Strokes" - "Modeline identification when Strokes mode is on \(default is \" Strokes\"\)." +(defcustom strokes-lighter " Strokes" + "Mode line identifier for Strokes mode." :type 'string :group 'strokes) +(define-obsolete-variable-alias 'strokes-modeline-string 'strokes-lighter "24.2") + (defcustom strokes-character ?@ "Character used when drawing strokes in the strokes buffer. \(The default is `@', which works well.\)" @@ -1403,7 +1405,7 @@ Encode/decode your strokes with \\[strokes-encode-buffer], \\[strokes-decode-buffer]. \\{strokes-mode-map}" - nil strokes-modeline-string strokes-mode-map + nil strokes-lighter strokes-mode-map :group 'strokes :global t (cond ((not (display-mouse-p)) (error "Can't use Strokes without a mouse")) diff --git a/lisp/subr.el b/lisp/subr.el index 1e1f8bcb222..7dc5d66b747 100644 --- a/lisp/subr.el +++ b/lisp/subr.el @@ -2466,7 +2466,8 @@ This finishes the change group by reverting all of its changes." ;;;; Display-related functions. ;; For compatibility. -(defalias 'redraw-modeline 'force-mode-line-update) +(define-obsolete-function-alias 'redraw-modeline + 'force-mode-line-update "24.2") (defun force-mode-line-update (&optional all) "Force redisplay of the current buffer's mode line and header line. diff --git a/lisp/term/ns-win.el b/lisp/term/ns-win.el index 6dd9eed0d2b..344c3d434d2 100644 --- a/lisp/term/ns-win.el +++ b/lisp/term/ns-win.el @@ -565,7 +565,7 @@ unless the current buffer is a scratch buffer." parameters)))))))) ;; frame will be focused anyway, so select it -;; (if this is not done, modeline is dimmed until first interaction) +;; (if this is not done, mode line is dimmed until first interaction) (add-hook 'after-make-frame-functions 'select-frame) (defvar tool-bar-mode) @@ -825,7 +825,7 @@ See the documentation of `create-fontset-from-fontset-spec' for the format.") ((not window-pos) nil) ((eq window-pos 'mode-line) - 'modeline) + 'mode-line) ((eq window-pos 'vertical-line) 'default) ((consp window-pos) diff --git a/lisp/term/sup-mouse.el b/lisp/term/sup-mouse.el index 71a4e06afe8..c70080c9062 100644 --- a/lisp/term/sup-mouse.el +++ b/lisp/term/sup-mouse.el @@ -63,7 +63,7 @@ executes the mouse commands. 2R delete region | 3R copy region | -on modeline on \"scroll bar\" in minibuffer +on mode line on \"scroll bar\" in minibuffer L scroll-up line to top execute-extended-command C proportional goto-char line to middle mouse-help R scroll-down line to bottom eval-expression" @@ -79,14 +79,14 @@ on modeline on \"scroll bar\" in minibuffer (old-window (selected-window)) (in-minibuf-p (eq y (1- (frame-height)))) (same-window-p (and (not in-minibuf-p) (eq window old-window))) - (in-modeline-p (eq y (1- (nth 3 edges)))) + (in-mode-line-p (eq y (1- (nth 3 edges)))) (in-scrollbar-p (>= x (1- (nth 2 edges))))) (setq x (- x (nth 0 edges))) (setq y (- y (nth 1 edges))) ; (error "mouse-hit %d %d %d" buttons x y) ;;;; debug - (cond (in-modeline-p + (cond (in-mode-line-p (select-window window) (cond ((= buttons mouse-left) (scroll-up)) diff --git a/lisp/textmodes/flyspell.el b/lisp/textmodes/flyspell.el index 26d39f33163..e13f786d306 100644 --- a/lisp/textmodes/flyspell.el +++ b/lisp/textmodes/flyspell.el @@ -232,8 +232,8 @@ URL `http://www.gnu.org/software/auctex/'" :type 'boolean) (defcustom flyspell-mode-line-string " Fly" - "String displayed on the modeline when flyspell is active. -Set this to nil if you don't want a modeline indicator." + "String displayed on the mode line when flyspell is active. +Set this to nil if you don't want a mode line indicator." :group 'flyspell :type '(choice string (const :tag "None" nil))) diff --git a/lisp/textmodes/ispell.el b/lisp/textmodes/ispell.el index 197f7b6f92f..fc2155893a9 100644 --- a/lisp/textmodes/ispell.el +++ b/lisp/textmodes/ispell.el @@ -297,9 +297,7 @@ error is highlighted lazily using isearch lazy highlighting (see :version "22.1") (defcustom ispell-highlight-face (if ispell-lazy-highlight 'isearch 'highlight) - "The face used for Ispell highlighting. For Emacsen with overlays. -Possible values are `highlight', `modeline', `secondary-selection', -`region', and `underline'. + "Face used for Ispell highlighting. This variable can be set by the user to whatever face they desire. It's most convenient if the cursor color and highlight color are slightly different." @@ -4037,7 +4035,7 @@ Both should not be used to define a buffer-local dictionary." ; LocalWords: alists minibuffer bufferp autoload loaddefs aff Dansk KOI SPC op ; LocalWords: Francais Nederlands charset autoloaded popup nonmenu regexp num ; LocalWords: AMStex hspace includeonly nocite epsfig displaymath eqnarray reg -; LocalWords: minipage modeline pers dict unhighlight buf grep sync prev inc +; LocalWords: minipage pers dict unhighlight buf grep sync prev inc ; LocalWords: fn oldot NB AIX msg init read's bufs pt cmd Quinlan eg ; LocalWords: uuencoded unidiff sc nn VM SGML eval IspellPersDict ; LocalWords: lns XEmacs HTML casechars Multibyte diff --git a/lisp/textmodes/reftex-global.el b/lisp/textmodes/reftex-global.el index 295d1787abc..d836bbb6cb8 100644 --- a/lisp/textmodes/reftex-global.el +++ b/lisp/textmodes/reftex-global.el @@ -460,7 +460,7 @@ With no argument, this command toggles (kill-local-variable 'isearch-next-buffer-function)) (setq reftex-isearch-minor-mode nil)))) (remove-hook 'reftex-mode-hook 'reftex-isearch-minor-mode))) - ;; Force modeline redisplay. + ;; Force mode line redisplay. (set-buffer-modified-p (buffer-modified-p)))) (add-minor-mode 'reftex-isearch-minor-mode "/I" nil nil diff --git a/lisp/textmodes/sgml-mode.el b/lisp/textmodes/sgml-mode.el index 46ba2cf8599..aed4ecb4e3e 100644 --- a/lisp/textmodes/sgml-mode.el +++ b/lisp/textmodes/sgml-mode.el @@ -1664,7 +1664,7 @@ This takes effect when first loading the library.") '((bold . "b") (italic . "i") (underline . "u") - (modeline . "rev")) + (mode-line . "rev")) "Value of `sgml-face-tag-alist' for HTML mode.") (defvar html-tag-face-alist @@ -1680,7 +1680,7 @@ This takes effect when first loading the library.") ("h5" . underline) ("h6" . underline) ("i" . italic) - ("rev" . modeline) + ("rev" . mode-line) ("s" . underline) ("small" . default) ("strong" . bold) diff --git a/lisp/vc/ediff-wind.el b/lisp/vc/ediff-wind.el index 50f2be3b8dc..cc8ef4ad5c0 100644 --- a/lisp/vc/ediff-wind.el +++ b/lisp/vc/ediff-wind.el @@ -957,7 +957,7 @@ into icons, regardless of the window manager." (and (eq this-command 'ediff-toggle-help) dont-iconify-ctl-frame)) - ;; 1 more line for the modeline + ;; 1 more line for the mode line (setq lines (1+ (count-lines (point-min) (point-max))) fheight lines fwidth (max (+ (ediff-help-message-line-length) 2) @@ -1141,7 +1141,7 @@ It assumes that it is called from within the control buffer." ;; Revise the mode line to display which difference we have selected -;; Also resets modelines of buffers A/B, since they may be clobbered by +;; Also resets mode lines of buffers A/B, since they may be clobbered by ;; other invocations of Ediff. (defun ediff-refresh-mode-lines () (let (buf-A-state-diff buf-B-state-diff buf-C-state-diff buf-C-state-merge) diff --git a/lisp/vc/vc-arch.el b/lisp/vc/vc-arch.el index 18dfbe1f5fa..afeab878f1e 100644 --- a/lisp/vc/vc-arch.el +++ b/lisp/vc/vc-arch.el @@ -385,7 +385,7 @@ CALLBACK expects (ENTRIES &optional MORE-TO-COME); see :group 'vc-arch) (defun vc-arch-mode-line-string (file) - "Return string for placement in modeline by `vc-mode-line' for FILE." + "Return a string for `vc-mode-line' to put in the mode line for FILE." (let ((rev (vc-working-revision file))) (dolist (rule vc-arch-mode-line-rewrite) (if (string-match (car rule) rev) diff --git a/lisp/vc/vc-cvs.el b/lisp/vc/vc-cvs.el index 4d06e766a35..300dc463a3c 100644 --- a/lisp/vc/vc-cvs.el +++ b/lisp/vc/vc-cvs.el @@ -256,7 +256,7 @@ See also variable `vc-cvs-sticky-date-format-string'." (vc-file-getprop file 'vc-working-revision)) (defun vc-cvs-mode-line-string (file) - "Return string for placement into the modeline for FILE. + "Return a string for `vc-mode-line' to put in the mode line for FILE. Compared to the default implementation, this function does two things: Handle the special case of a CVS file that is added but not yet committed and support display of sticky tags." diff --git a/lisp/vc/vc-git.el b/lisp/vc/vc-git.el index ebaec2494ac..63243cdbc20 100644 --- a/lisp/vc/vc-git.el +++ b/lisp/vc/vc-git.el @@ -247,7 +247,7 @@ matching the resulting Git log output, and KEYWORDS is a list of (eq 'up-to-date (vc-git-state file))) (defun vc-git-mode-line-string (file) - "Return string for placement into the modeline for FILE." + "Return a string for `vc-mode-line' to put in the mode line for FILE." (let* ((branch (vc-git-working-revision file)) (def-ml (vc-default-mode-line-string 'Git file)) (help-echo (get-text-property 0 'help-echo def-ml))) diff --git a/lisp/vc/vc-hooks.el b/lisp/vc/vc-hooks.el index b6f07ef1dc4..bba72177050 100644 --- a/lisp/vc/vc-hooks.el +++ b/lisp/vc/vc-hooks.el @@ -102,7 +102,7 @@ visited and a warning displayed." :group 'vc) (defcustom vc-display-status t - "If non-nil, display revision number and lock status in modeline. + "If non-nil, display revision number and lock status in mode line. Otherwise, not displayed." :type 'boolean :group 'vc) @@ -790,7 +790,7 @@ If BACKEND is passed use it as the VC backend when computing the result." backend) (defun vc-default-mode-line-string (backend file) - "Return string for placement in modeline by `vc-mode-line' for FILE. + "Return a string for `vc-mode-line' to put in the mode line for FILE. Format: \"BACKEND-REV\" if the file is up-to-date @@ -866,7 +866,7 @@ current, and kill the buffer that visits the link." (let (backend) (cond ((setq backend (with-demoted-errors (vc-backend buffer-file-name))) - ;; Compute the state and put it in the modeline. + ;; Compute the state and put it in the mode line. (vc-mode-line buffer-file-name backend) (unless vc-make-backup-files ;; Use this variable, not make-backup-files, diff --git a/lisp/vc/vc-mtn.el b/lisp/vc/vc-mtn.el index bd3a6207b73..a3d5f09255e 100644 --- a/lisp/vc/vc-mtn.el +++ b/lisp/vc/vc-mtn.el @@ -161,7 +161,7 @@ If nil, use the value of `vc-diff-switches'. If t, use no switches." :group 'vc-mtn) (defun vc-mtn-mode-line-string (file) - "Return string for placement in modeline by `vc-mode-line' for FILE." + "Return a string for `vc-mode-line' to put in the mode line for FILE." (let ((branch (vc-mtn-workfile-branch file))) (dolist (rule vc-mtn-mode-line-rewrite) (if (string-match (car rule) branch) diff --git a/lisp/whitespace.el b/lisp/whitespace.el index a529725fc38..67fe13ae41a 100644 --- a/lisp/whitespace.el +++ b/lisp/whitespace.el @@ -165,10 +165,10 @@ ;; There are also the following useful commands: ;; ;; `whitespace-newline-mode' -;; Toggle NEWLINE minor mode visualization ("nl" on modeline). +;; Toggle NEWLINE minor mode visualization ("nl" on mode line). ;; ;; `global-whitespace-newline-mode' -;; Toggle NEWLINE global minor mode visualization ("NL" on modeline). +;; Toggle NEWLINE global minor mode visualization ("NL" on mode line). ;; ;; `whitespace-report' ;; Report some blank problems in buffer. diff --git a/lisp/window.el b/lisp/window.el index 52b0a31e241..bf5b342b9f3 100644 --- a/lisp/window.el +++ b/lisp/window.el @@ -4453,7 +4453,7 @@ hold: ;; A window can be split vertically when its height is not ;; fixed, it is at least `split-height-threshold' lines high, ;; and it is at least twice as high as `window-min-height' and 2 - ;; if it has a modeline or 1. + ;; if it has a mode line or 1. (and (memq window-size-fixed '(nil width)) (numberp split-height-threshold) (>= (window-height window) @@ -5171,9 +5171,9 @@ where some error may be present." (unless (zerop delta) ;; Setting window-min-height to a value like 1 can lead to very ;; bizarre displays because it also allows Emacs to make *other* - ;; windows 1-line tall, which means that there's no more space for - ;; the modeline. - (let ((window-min-height (min 2 height))) ; One text line plus a modeline. + ;; windows one line tall, which means that there's no more space + ;; for the mode line. + (let ((window-min-height (min 2 height))) (window-resize window delta))))) (defun enlarge-window-horizontally (delta)