emacs-elpa-diffs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

[elpa] externals/csv-mode 935deaf 10/34: * csv-mode (csv-mode-line-help-


From: Stefan Monnier
Subject: [elpa] externals/csv-mode 935deaf 10/34: * csv-mode (csv-mode-line-help-echo): Remove.
Date: Sun, 29 Nov 2020 18:46:13 -0500 (EST)

branch: externals/csv-mode
commit 935deaf87bc49e005ca22948956e9fb6f0cf0dc7
Author: Stefan Monnier <monnier@iro.umontreal.ca>
Commit: Stefan Monnier <monnier@iro.umontreal.ca>

    * csv-mode (csv-mode-line-help-echo): Remove.
---
 csv-mode.el | 10 ++--------
 1 file changed, 2 insertions(+), 8 deletions(-)

diff --git a/csv-mode.el b/csv-mode.el
index dbc6182..a8ae4e4 100644
--- a/csv-mode.el
+++ b/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 <F.J.Wright at qmul.ac.uk>
 ;; 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))))))
 
 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



reply via email to

[Prev in Thread] Current Thread [Next in Thread]