0
@@ -197,6 +197,8 @@
0
 
0
 ;; fix twittering-mode bugs mentioned in file
0
 
0
+;; allow edits to occur buffer to get propagated to original buffer
0
+
0
 ;; make column-number-mode only active in coding buffers
0
 
0
 ;; pcomplete for: kill/killall, git, apt-get
0
@@ -205,8 +207,6 @@
0
 
0
 ;; submit patched rcirc completion
0
 
0
-;; make ssh/scp pcompletion use the tramp functions?
0
-
0
 ;; scpaste: use tramp functions, finish scpaste-window
0
 
0
 ;; fix ruby-get-old-input to not care about what the prompt looks like

0
@@ -346,7 +346,7 @@ May be passed BUFFER, otherwise defaults to current buffer."
0
     (goto-char (point-min))
0
     (unless (search-forward target nil t)
0
       (fail "%s expected to be found in buffer %s" target buffer))
0
-    (unless (equal (face (get-text-property (point) 'background)))
0
+    (unless (equal face (get-text-property (point) 'background))
0
       (fail "%s expected to be displayed with face %s" target face))))
0
 
0
 (defun assert-overlay (pos)

0
@@ -68,7 +68,7 @@
0
 (global-set-key (kbd "M-\\") 'my-selective-display)
0
 (global-set-key (kbd "C-x v d") 'vc-status)
0
 
0
-(define-key isearch-mode-map (kbd "C-o") ; occur easily inside isearch
0
+(define-key isearch-mode-map (kbd "C-o") ;; occur easily inside isearch
0
   (lambda ()
0
     (interactive)
0
     (let ((case-fold-search isearch-case-fold-search))

0
@@ -89,17 +89,6 @@
0
 
0
 ;;; Cosmetic stuff
0
 
0
-(defun smallish (&optional font-size)
0
-  (interactive)
0
-  (set-default-font
0
-   (concat "-xos4-terminus-medium-r-normal--"  (or font-size "12") "-120-72-72-c-60-iso8859-1"))
0
-  (tabbar-mode -1)
0
-  (scroll-bar-mode -1))
0
-
0
-(defun bigish ()
0
-  (interactive)
0
-  (set-default-font "-b&h-lucidatypewriter-bold-r-normal-sans-34-240-100-100-m-200-iso8859-1"))
0
-
0
 (defun pretty-lambdas ()
0
   (font-lock-add-keywords
0
    nil `(("(?\\(lambda\\>\\)"
0
@@ -133,10 +122,6 @@
0
   (interactive)
0
   (find-alternate-file (concat "/sudo:root@localhost:" buffer-file-name)))
0
 
0
-(defun insert-timestamp ()
0
-  (interactive)
0
-  (insert (time-stamp-string)))
0
-
0
 (defun lorem ()
0
   "Insert a lorem ipsum."
0
   (interactive)

0
@@ -37,7 +37,8 @@
0
       (:foreground "grey20"))
0
      (((class color) (background light))
0
       (:foreground "grey55")))
0
-   "Face used to dim parentheses.")
0
+   "Face used to dim parentheses."
0
+   :group 'my-faces)
0
 
0
 (defun my-eval-and-replace ()
0
   "Replace the preceding sexp with its value."
0
@@ -61,7 +62,7 @@
0
   (save-excursion
0
     (flush-lines "^$")
0
     (flush-lines "^;")
0
-    (end-of-buffer)
0
+    (goto-char (point-max))
0
     (let ((loc (line-number-at-pos)))
0
       (message (number-to-string loc) " lines of code. Be sure to undo now."))))
0
 

0
@@ -112,9 +112,4 @@
0
   "A yellow face for warnings that are not quite that bad."
0
   :group 'my-faces)
0
 
0
-(dolist ((mode '(ruby-mode lisp-mode emacs-lisp-mode)))
0
-  (font-lock-add-keywords mode
0
-                          (list (list yellow-tokens 0 'my-yellow-face 'prepend)
0
-                                (list red-tokens    0 'my-red-face    'prepend))))
0
-
0
 (provide 'my-misc)
0
\ No newline at end of file

0
@@ -54,7 +54,6 @@
0
 ;;; Todo:
0
 
0
 ;; Try to use tramp instead of shelling out to scp (tramp-handle-copy-file)
0
-;; Investigate htmlfontify.el instead of htmlize.el
0
 ;; Make htmlize convert all URLs to hyperlinks
0
 
0
 ;;; License:
0
@@ -134,8 +133,8 @@ You must have write-access to this directory via `scp'.")
0
   (let ((full-url (concat scpaste-http-destination "/"
0
         (url-hexify-string window-name) ".png")))
0
     (eshell-command (format "import -window %s %s/scpaste.png" window-name scpaste-tmp-dir))
0
-    (eshell-command (format "scp %s/scpaste.png %s/%s.png" scpaste-tmp-dir full-url))
0
-  
0
+    (eshell-command (format "scp %s/scpaste.png %s/%s.png" scpaste-tmp-dir full-url window-name))
0
+
0
     (kill-new full-url)
0
     (message "Pasted to %s (on kill ring)" full-url)))
0
 
0
@@ -153,9 +152,9 @@ You must have write-access to this directory via `scp'.")
0
     (insert-file-contents "~/.emacs.d/scpaste.el") ;; TODO: find elisp's __FILE__
0
     (goto-char (point-min))
0
     (search-forward ";;; Commentary")
0
-	  (previous-line)
0
+	  (forward-line -1)
0
     (insert "\n;;; Pasted Files\n\n")
0
-	  (mapcar (lambda (file) (insert (concat ";; * <" scpaste-http-destination "/" file ">\n"))) file-list)
0
+	  (mapc (lambda (file) (insert (concat ";; * <" scpaste-http-destination "/" file ">\n"))) file-list)
0
     (emacs-lisp-mode) (font-lock-fontify-buffer) (rename-buffer "SCPaste")
0
     (scpaste "index")))
0
       (ignore-errors (kill-buffer "*EShell Command Output*")))))

0
@@ -45,6 +45,7 @@
0
 ;; should warn if you go over 140 chars
0
 ;; sometimes icons get mixed up
0
 ;; should not create a *twittering* buffer when you require it.
0
+;; undo buffer overflows; disable it
0
 
0
 ;;; Code:
0
 

0
@@ -50,12 +50,11 @@
0
 
0
 (defun vc-log-make-buttons ()
0
   "Make each reference to a commit in the current buffer act as a hyperlink."
0
-  (interactive)
0
   (let* ((buffer-read-only nil)
0
    (file (buffer-file-name vc-parent-buffer))
0
    (button-regexp (assocref (vc-backend (list file)) vc-button-regexp-alist)))
0
     (save-excursion
0
-      (beginning-of-buffer)
0
+      (goto-char (point-min))
0
       (while (search-forward-regexp button-regexp nil t)
0
   (lexical-let ((cl-file file) ;; closure time!
0
           (revision (match-string 1)))

0
@@ -1,5 +1,5 @@
0
-*
0
-!.emacs.d*
0
 *elc
0
+!.emacs.d*
0
 !.eshell*
0
-!bin*
0
\ No newline at end of file
0
+!bin*
0
+*
0
\ No newline at end of file