Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Browse files

Removed extra whitespace and variables that are no longer used

  • Loading branch information...
commit ceb2d6aa156cce9aae819bd4f34f1ccfd2d24bee 1 parent ea4d7bf
@ramblex authored
Showing with 4 additions and 11 deletions.
  1. +4 −11 textmate.el
View
15 textmate.el
@@ -51,8 +51,8 @@
(?\' _ ?\')))
(defcustom tm/non-insert-alist '((emacs-lisp-mode . '(?\'))
- (lisp-mode . '(?\'))
- (lisp-interaction-mode . '(?\')))
+ (lisp-mode . '(?\'))
+ (lisp-interaction-mode . '(?\')))
"The format of this list is '(major-mode . '(chars)) where the given list of
chars are not auto-inserted in major-mode"
:type '(alist :key-type symbol :value-type alist)
@@ -79,13 +79,6 @@ chars are not auto-inserted in major-mode"
:group 'textmate)
(make-variable-buffer-local 'tm/dont-activate)
-(defcustom tm/exempt-quote-modes '(emacs-lisp-mode
- lisp-mode
- lisp-interaction-mode)
- "Modes which should not auto-insert a quote"
- :type '(repeat symbol)
- :group 'textmate)
-
(defun tm/initialize ()
"Do the necessary initialization"
(setq skeleton-pair t)
@@ -135,7 +128,7 @@ chars are not auto-inserted in major-mode"
"Enable users to decide whether or not to use M-l as goto-line"
(let ((tm/goto-line-map (make-sparse-keymap)))
(define-key tm/goto-line-map "\M-l" 'goto-line)
- (add-to-list 'minor-mode-map-alist
+ (add-to-list 'minor-mode-map-alist
(cons 'tm/use-goto-line tm/goto-line-map))))
(defun tm/open-next-line-binding ()
@@ -151,7 +144,7 @@ chars are not auto-inserted in major-mode"
(move-end-of-line nil)
(newline-and-indent))
-;; The following set of functions are taken from
+;; The following set of functions are taken from
;; http://www.emacswiki.org/emacs/AutoPairs#toc2
(defun tm/pair-insert (arg)
(interactive "P")
Please sign in to comment.
Something went wrong with that request. Please try again.