jason/emacs.d
1
0
Fork 0
Code Issues 3 Pull requests Projects Releases Packages Wiki Activity

Compare commits

base: jason:309c05595afd9dfd9dfdfab97b3740bd4535fc31
Branches Tags
jason:master
jason:fix-initial-prompt
...
compare: jason:b1dbd3133b6840bd6fdf8e05ee7b949e4b6affe5
Branches Tags
jason:master
jason:fix-initial-prompt

2 commits
309c05595a ... b1dbd3133b

Author SHA1 Message Date
Jason Tian
b1dbd3133b fixed void variable 2023-10-12 14:11:03 +08:00
Jason Tian
685f97533a fix: target-dir issue 2023-10-12 13:47:32 +08:00
1 changed files with 11 additions and 16 deletions
Show stats Expand all files Collapse all files

27
lisp/init-misc.el
View file

@ -141,24 +141,19 @@ Updated: 2023-10-11"
'("y" "n"))
(if (boundp 'sudo)
sudo
current-prefix-arg ; if universal argument (sudo)
(if current-prefix-arg t nil) ; if universal argument (sudo)
)
(if (boundp 'process-name) process-name "create tags"))))
(let* ((target-dir (if (string= "" dir-name)
default-directory
(if (eq system-type 'windows-nt)
;; if the dir-name already start with "/d", just use it
(if (string-prefix-p "/d" dir-name)
dir-name
(expand-file-name dir-name)))))
(target-dir-value (if (eq system-type 'windows-nt)
;; fix changing dir across different drives issue on Windows
(if (string-prefix-p "/d" target-dir)
target-dir
(concat "/d " target-dir))
target-dir))
(let* ((target-dir-value (if (string= "" dir-name)
default-directory
(if (eq system-type 'windows-nt)
;; if the dir-name already start with "/d", just use it
(if (string-prefix-p "/d" dir-name)
dir-name
;; fix changing dir across different drives issue on Windows
(concat "/d " dir-name))
(expand-file-name dir-name))))
(tags-format-value (if (string-equal tags-format 'ctags) "" "-e"))
@ -172,7 +167,7 @@ Updated: 2023-10-11"
(tags-path-value
(if (string= tag-relative 'y)
(expand-file-name tags-filename target-dir)
(expand-file-name tags-filename target-dir-value)
(or tags-path
(expand-file-name tags-filename
(read-directory-name