 ;;
 
 (when window-system
-  (blink-cursor-mode 1))
+  (blink-cursor-mode 0))
 
 ;;
 ;; OS-Dependant Config

          (set-visited-file-name new-name)
          (set-buffer-modified-p nil)))))))

(setq quote-xml
   [?\C-s ?< ?\C-m ?\C-b ?\" ?\C-e ?\" ?\S-  ?+ ?\C-a ?\C-n])

;;(provide 'pje-customizations)

    (let ((text (delete-and-extract-region start end)))
      (insert (funcall func text)))))

(defun urlencode (start end)
  "urlencode the region between START and END in current buffer."
  (interactive "r")
  (func-region start end #'url-hexify-string))

(defun urldecode (start end)
  "de-urlencode the region between START and END in current buffer."
  (interactive "r")
  (func-region start end #'url-unhex-string))
