Skip to content

Instantly share code, notes, and snippets.

View sritchie's full-sized avatar
🎯
Focusing

Sam Ritchie sritchie

🎯
Focusing
View GitHub Profile
;; Copyright (c) 2010 Charles Cave
;;
;; Permission is hereby granted, free of charge, to any person
;; obtaining a copy of this software and associated documentation
;; files (the "Software"), to deal in the Software without
;; restriction, including without limitation the rights to use,
;; copy, modify, merge, publish, distribute, sublicense, and/or sell
;; copies of the Software, and to permit persons to whom the
;; Software is furnished to do so, subject to the following
;; conditions:
(let (ad-return-value) (follow-avoid-tail-recenter) (setq ad-return-value (ad-Orig-sit-for seconds nodisp obsolete)) ad-return-value)
ad-Orig-sit-for(0 nil nil)
(setq ad-return-value (ad-Orig-sit-for seconds nodisp obsolete))
(let (ad-return-value) (follow-avoid-tail-recenter) (setq ad-return-value (ad-Orig-sit-for seconds nodisp obsolete)) ad-return-value)
ad-Orig-sit-for(0 nil nil)
(setq ad-return-value (ad-Orig-sit-for seconds nodisp obsolete))
(let (ad-return-value) (follow-avoid-tail-recenter) (setq ad-return-value (ad-Orig-sit-for seconds nodisp obsolete)) ad-return-value)
ad-Orig-sit-for(0 nil nil)
sit-for(0)
isearch-lazy-highlight-new-loop()
sit-for(0)
isearch-lazy-highlight-new-loop()
isearch-update()
isearch-mode(t nil nil nil)
isearch-forward(nil 1)
call-interactively(isearch-forward nil nil)
Debugger entered--Lisp error: (error "Lisp nesting exceeds `max-lisp-eval-depth'")
(... a ton of times)
(setq ad-return-value (ad-Orig-sit-for seconds nodisp obsolete))
(let (ad-return-value) (follow-avoid-tail-recenter) (setq ad-return-value (ad-Orig-sit-for seconds nodisp obsolete)) ad-return-value)
ad-Orig-sit-for(0 nil nil)
sit-for(0)
isearch-lazy-highlight-new-loop()
isearch-update()
isearch-mode(t nil nil nil)
isearch-forward(nil 1)
(defadvice find-tag
(before discover-before-lookup)
(discover-corresponding-tags-file))
sit-for is a compiled Lisp function in `subr.el'.
(sit-for SECONDS &optional NODISP)
Perform redisplay, then wait for SECONDS seconds or until input is available.
SECONDS may be a floating-point value.
(On operating systems that do not support waiting for fractions of a
second, floating-point values are rounded down to the nearest integer.)
If optional arg NODISP is t, don't redisplay, just wait for input.
;; This prevents all packages that calls `sit-for' directly
;; to recenter tail windows.
(if follow-avoid-tail-recenter-p
(defadvice sit-for (before follow-sit-for activate)
"Adviced by Follow mode.
Avoid to recenter windows displaying only the end of a file as when
displaying a short file in two windows, using Follow mode."
(follow-avoid-tail-recenter)))
def login_as(user)
session[:user_id] = users(user).id
end
def logout
sessions.delete :user_id
end
def setup
login_as :one if defined? session
cd find: ~/*: No such file or directory
find: ~/Library/*: No such file or directory
find: ~/Documents/Projects/*: No such file or directory
# System-wide .bashrc file for interactive bash(1) shells.
if [ -z "$PS1" ]; then
return
fi
PS1='\h:\W \u\$ '
# Make bash check its window size after a process completes
shopt -s checkwinsize