From: Stefan Monnier Date: Wed, 15 Jan 2014 15:21:44 +0000 (-0500) Subject: * csv-mode (csv-mode-line-help-echo): Remove. X-Git-Url: https://code.delx.au/gnu-emacs-elpa/commitdiff_plain/c5748a299d000b136f04eaebea3bb1c5eaa75bee * csv-mode (csv-mode-line-help-echo): Remove. --- diff --git a/packages/csv-mode/csv-mode.el b/packages/csv-mode/csv-mode.el index dbc6182b4..a8ae4e410 100644 --- a/packages/csv-mode/csv-mode.el +++ b/packages/csv-mode/csv-mode.el @@ -1,6 +1,6 @@ ;;; csv-mode.el --- Major mode for editing comma/char separated values -*- lexical-binding: t -*- -;; Copyright (C) 2003, 2004, 2012, 2013 Free Software Foundation, Inc +;; Copyright (C) 2003, 2004, 2012, 2013, 2014 Free Software Foundation, Inc ;; Author: Francis J. Wright ;; Time-stamp: <23 August 2004> @@ -247,10 +247,6 @@ Number of spaces used by `csv-align-fields' after separators." ;;; Mode definition, key bindings and menu ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; -(defconst csv-mode-line-help-echo - ;; See bindings.el for details of `mode-line-format' construction. - (get-text-property 0 'help-echo (car (default-value 'mode-line-format))) - "Primary default mode line help echo text.") (defconst csv-mode-line-format ;; See bindings.el for details of `mode-line-format' construction. @@ -260,7 +256,6 @@ Number of spaces used by `csv-align-fields' after separators." (setcdr x (cons `(csv-field-index-string ("" csv-field-index-string - ;; ,(propertize "--" 'help-echo csv-mode-line-help-echo) )) (cdr x)))) ml) @@ -803,8 +798,7 @@ Called by `csv-field-index-idle-timer'." (when (not (eq field csv-field-index-old)) (setq csv-field-index-old field csv-field-index-string - (and field (propertize (format "F%d" field) - 'help-echo csv-mode-line-help-echo))) + (and field (format "F%d" field))) (force-mode-line-update)))))) ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;