[Top][All Lists]

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

[elpa] externals/fountain-mode 459bd14 04/17: Remove --edit-line funcs

From: Paul Rankin
Subject: [elpa] externals/fountain-mode 459bd14 04/17: Remove --edit-line funcs
Date: Sun, 19 May 2019 09:55:58 -0400 (EDT)

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

    Remove --edit-line funcs
 fountain-mode.el | 41 +----------------------------------------
 1 file changed, 1 insertion(+), 40 deletions(-)

diff --git a/fountain-mode.el b/fountain-mode.el
index 379bb33..95f609c 100644
--- a/fountain-mode.el
+++ b/fountain-mode.el
@@ -3972,57 +3972,18 @@ halt at end of scene."
 ;;; Editing
-(require 'help)
-(defun fountain-set-edit-line ()
-  "Set `fountain--edit-line' to current line.
-Added to `post-command-hook'."
-  (setq fountain--edit-line (line-number-at-pos)))
 (defcustom fountain-auto-upcase-scene-headings
   "If non-nil, automatically upcase lines matching 
   :type 'boolean
   :group 'fountain)
-(defvar-local fountain--auto-upcase-line
-  nil
-  "Integer of line number to auto-upcase.
-If nil, auto-upcase is deactivated.")
-(defvar-local fountain--auto-upcase-overlay
-  nil
-  "Overlay used for auto-upcasing current line.")
-(define-obsolete-variable-alias 'fountain-tab-command
-  'fountain-tab-function "fountain-mode-2.7.0")
-(defcustom fountain-tab-function
-  #'fountain-dwim
-  "Command to call when pressing the TAB key."
-  :type '(radio (function-item fountain-dwim)
-                (function-item fountain-outline-cycle)
-                (function-item fountain-toggle-auto-upcase)
-                (function-item completion-at-point))
-  :group 'fountain)
-(defun fountain-tab-action (&optional arg)
-  "Simply calls the value of variable `fountain-tab-function'."
-  (interactive "p")
-  (condition-case nil
-      (funcall fountain-tab-function arg)
-    (wrong-number-of-arguments (funcall fountain-tab-function))))
 (defun fountain-auto-upcase ()
   "Upcase all or part of the current line contextually.
 If `fountain-auto-upcase-scene-headings' is non-nil and point is
 at a scene heading, activate auto upcasing for beginning of line
-to scene number or point.
-Otherwise, activate auto-upcasing for the whole line.
-Added as hook to `post-self-insert-hook'."
+to scene number or point."
   (when (and fountain-auto-upcase-scene-headings
     (upcase-region (line-beginning-position) (or (match-end 2) (point)))))

reply via email to

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