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

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

[elpa] externals/fountain-mode c1a01e3 12/17: Remove old page-count vars


From: Paul Rankin
Subject: [elpa] externals/fountain-mode c1a01e3 12/17: Remove old page-count vars/options
Date: Sun, 19 May 2019 09:55:59 -0400 (EDT)

branch: externals/fountain-mode
commit c1a01e31ee9c3e01c7b20d4bfc914993a6b54d20
Author: Paul W. Rankin <address@hidden>
Commit: Paul W. Rankin <address@hidden>

    Remove old page-count vars/options
---
 fountain-mode.el | 28 ----------------------------
 1 file changed, 28 deletions(-)

diff --git a/fountain-mode.el b/fountain-mode.el
index 00fb749..c493f82 100644
--- a/fountain-mode.el
+++ b/fountain-mode.el
@@ -1373,34 +1373,6 @@ script, you may get incorrect output."
   :type 'boolean
   :safe 'booleanp)
 
-(defvar fountain-page-count-timer
-  nil)
-
-(defvar-local fountain-page-count-string
-  nil)
-
-(defcustom fountain-pages-count-delay
-  2.0
-  "Idle time in seconds before calculating page count."
-  :type 'number
-  :safe 'numberp)
-
-(defcustom fountain-pages-show-in-mode-line
-  nil
-  "If non-nil show current page of total pages in mode-line."
-  :type '(choice (const :tag "No page count" nil)
-                 (const :tag "Show with manual update" force)
-                 (const :tag "Show with automatic update" timer))
-  :safe (lambda (value) (memq value '(nil force timer)))
-  :set (lambda (symbol value)
-         (set-default symbol value)
-         ;; Don't call fountain-count-pages-maybe while in the middle of
-         ;; loading this file!
-         (when (featurep 'fountain-mode)
-           (dolist (buffer (buffer-list))
-             (with-current-buffer buffer
-               (fountain-count-pages-maybe value))))))
-
 (defvar fountain-elements
   '((section-heading
      :tag "Section Heading"



reply via email to

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