Skip to content

Instantly share code, notes, and snippets.

@patmaddox
Created February 26, 2009 07:32
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save patmaddox/70723 to your computer and use it in GitHub Desktop.
Save patmaddox/70723 to your computer and use it in GitHub Desktop.
Debugger entered--Lisp error: (wrong-type-argument number-or-marker-p nil)
=(nil 41)
(if (= (char-before) 41) (progn (backward-list)))
(when (= (char-before) 41) (backward-list))
(progn (skip-syntax-backward " ") (when (= ... 41) (backward-list)) (back-to-indentation) (cond (same-indent-p ...) (continued-expr-p ...) (t ...)))
(if (looking-at "[({[][ ]*\\(/[/*]\\|$\\)") (progn (skip-syntax-backward " ") (when ... ...) (back-to-indentation) (cond ... ... ...)) (unless same-indent-p (forward-char) (skip-chars-forward " ")) (current-column))
(cond (ctrl-stmt-indent) ((js-continued-var-decl-list-p) (js-re-search-backward "\\<var\\>" nil t) (+ ... javascript-indent-level)) ((nth 1 parse-status) (goto-char ...) (if ... ... ... ...)) (continued-expr-p javascript-indent-level) (t (let ... ... ind)))
(let ((ctrl-stmt-indent ...) (same-indent-p ...) (continued-expr-p ...)) (cond (ctrl-stmt-indent) (... ... ...) (... ... ...) (continued-expr-p javascript-indent-level) (t ...)))
(save-excursion (back-to-indentation) (let (... ... ...) (cond ... ... ... ... ...)))
js-proper-indentation((1 1 nil nil nil nil 0 nil nil (1)))
(indent-line-to (js-proper-indentation parse-status))
(progn (indent-line-to (js-proper-indentation parse-status)) (when (> offset 0) (forward-char offset)))
(if (not (nth 8 parse-status)) (progn (indent-line-to ...) (when ... ...)))
(when (not (nth 8 parse-status)) (indent-line-to (js-proper-indentation parse-status)) (when (> offset 0) (forward-char offset)))
(let ((parse-status ...) (offset ...)) (when (not ...) (indent-line-to ...) (when ... ...)))
javascript-indent-line()
indent-according-to-mode()
newline-and-indent()
(if (and (> ... 0) (string= ... "")) (newline-and-indent))
(let ((content ...)) (if (and ... ...) (newline-and-indent)))
(save-excursion (let (...) (if ... ...)))
insert-line-before-closing-braces()
(lambda nil (interactive) (insert-line-before-closing-braces) (newline-and-indent))()
call-interactively((lambda nil (interactive) (insert-line-before-closing-braces) (newline-and-indent)) nil nil)
(defun insert-line-before-closing-braces ()
(interactive)
(save-excursion
(let ((content (buffer-substring (point) (line-end-position))))
(if (and (> (length content) 0)
(string= (replace-regexp-in-string ")\\\|}" "" content) ""))
(newline-and-indent)))))
(add-hook 'javascript-mode-hook
(lambda ()
(make-local-variable 'parens-require-spaces)
(setq parens-require-spaces nil)
(local-set-key "(" 'insert-pair)
(local-set-key "{" 'insert-pair)
(local-set-key "\r"
(lambda () (interactive)
(insert-line-before-closing-braces)
(newline-and-indent)))))
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment