-;; Time-stamp: <2017-02-02 15:20:47 kmodi>
+;; Time-stamp: <2017-03-02 18:44:08 kmodi>
 
 ;; Setup for different tags
 

              (setq tags (expand-file-name "TAGS"
                                           (read-directory-name "Generate TAGS in dir:")))))
           (t
            (setq tags (ctags-update-find-tags-file))
            ;; If the TAGS file does not exist in this case, `tags' is set to nil.
            ))
          tags))
      (advice-add 'ctags-update-how-to-update :override #'modi/ctags-update-how-to-update)



Otherwise, if `ctags-update' is called non-interactively (example, via the
`after-save-hook'), if the TAGS file is present, return that file's path; else
do nothing and return nil.

This function also prevents the user-error \"Another ctags-update process is
already running\" caused in `ctags-update' function if value returned by this
function is non-nil and the tag generation process is already running."
        (let (tags)
          (cond
           ((> (prefix-numeric-value current-prefix-arg) 1)  ;C-u or C-uC-u ,generate new tags in selected directory
