bashrc: add f __ssh_with_cd

bashrc

@@ -413,6 +413,20 @@ ssh(){
     command ssh "$@"
 }
 
+__ssh_with_cd(){
+    # __ssh_with_cd <host> <directory> [<arg> ...]
+    if test -z "$2"
+    then
+        echo "usage: __ssh_with_cd <host> <directory> [<arg> ...]"
+        return 1
+    fi
+    host="$1"
+    shift
+    dir="$1"
+    shift
+    ssh "$host" "$@" -t "cd \"$dir\"; \$SHELL -l"
+}
+
 memo(){
     if test -z "$1"
     then

emacs.el

@@ -2049,6 +2049,19 @@ this is test, does not rename files"
                (message file))
       (message "not visiting file."))))
 
+(defvar kill-ring-buffer-name "*kill-ring*"
+  "Buffer name for `kill-ring-buffer'.")
+(defun open-kill-ring-buffer ()
+  "Open kill- ring buffer."
+  (interactive)
+  (pop-to-buffer
+   (with-current-buffer (get-buffer-create kill-ring-buffer-name)
+     (erase-buffer)
+     (yank)
+     (text-mode)
+     (current-local-map)
+     (goto-char (point-min)))))
+
 ;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
 ;; ;; savage emacs
 ;; ;; when enabled emacs fails to complete