hbsnow

<?php
/**
 * ブラウザをゆるく判別
 *
 * @version 1.2.2
 */

class CheckBrowser
{

donghee

(defun jump-match-paren (arg)
  "Go to the matching parenthesis."
  (interactive "p")
  (cond ((looking-at "\\s\(\\|\\s\[") (forward-list 1) (backward-char 1))
        ((looking-at "\\s\)\\|\\s\]") (forward-char 1) (backward-list 1))
        (t (back-to-indentation))
        ))

(global-set-key [C-return] 'jump-match-paren)

halsk

;; http://taiyaki.org/elisp/urlencode/
;; にある urlencode.el のデフォルトをutf-8にして、Emacs3 用に関数を修正

(defvar urlencode-default-coding-system 'utf-8)
;(defvar urlencode-default-coding-system 'sjis)
(defvar urlencode-exceptional-chars "[a-zA-Z0-9]")

(global-set-key "\C-x\C-me" 'urlencode-region)
(global-set-key "\C-x\C-md" 'urldecode-region)

hchbaw

(defmacro with-my-anything-follow-mode (push-mark &rest body)
  (declare (indent 1))
  (let ((gf (gensym)))
    `(letf (((symbol-function 'push-mark)
             (symbol-function 'ignore)))
       (letf* ((,gf
                (symbol-function 'anything-initialize-overlays))
               ((symbol-function 'anything-initialize-overlays)
                (lambda (buffer)
                  (funcall ,gf buffer)