 ;;; Code:
 
 (defconst keyboard-version "2017.1"
-  "keyboard-version-id
-
-Report bugs to: Remy TOMASETTO <Remy.TOMASETTO@sxb.bsf.alcatel.fr>")
+  "Keyboard-version-id.")
 
 ;; Use better names than plop<1> and plop<2> for files with same name
 (require 'uniquify)


;; Goto matching parenthesis
(defun match-paren ()
  "Will bounce between matching parens just like % in vi"
  (interactive)
  (let ((prev-char (char-to-string (preceding-char)))
	(next-char (char-to-string (following-char))))
	(cond ((string-match "[[{(<]" next-char) (forward-sexp 1))
		  ((string-match "[\]})>]" prev-char) (backward-sexp 1))
		  (t (error "%s" "Not on a paren, brace, or bracket")))))

(global-set-key [(control =)] 'match-paren)




(defun toto ()
  (interactive)
  (buffer-list-to-columns 6))


