-;; Time-stamp: <2015-05-07 12:22:24 kmodi>
+;; Time-stamp: <2015-05-07 12:45:23 kmodi>
 
 ;; Functions related to editing text in the buffer
 

            (setq start (string-to-number (match-string-no-properties 2 regexp)))))
      (progn
        (setq prefix regexp)))
    (setq to-strings (modi/get-incr-number-string prefix start))
    (backward-word 1)
    (map-query-replace-regexp regexp to-strings)))

;; Unicode

(bind-key "C-c d" #'modi/insert-time-stamp modi-mode-map)

;; Replace identical strings with incremental number suffixes
(defvar modi/replace-with-incr-num-suffix-max 100
  "Default maximum number till which the number suffixes will increment in the
replacements.")

(defvar modi/replace-with-incr-num-suffix-incr 1
  "Default number by which the number suffixes will increment in the
replacements.")

(defun modi/replace-with-incr-num-suffix (start)
  "Replace all instances of the selected region or the symbol under point with
the same, but suffixed with an incrementing number.

If START is non-nil, the replacements will be suffixes with the START number
and increment by 1 on each replacement.
