forks
/
DCD
mirror of https://github.com/dlang-community/DCD.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity

Very little fix 

use value instead of hand-written literal, and move page-break.
This commit is contained in:
tsukimizake 2014-08-09 15:59:11 +09:00
parent 2f562df1fd
commit 0f2fc68fcf
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
editors/emacs/ac-dcd.el
View File

@ -153,7 +153,7 @@ If you want to restart server, use `ac-dcd-init-server' instead."
(defun ac-dcd-call-process (prefix args) (defun ac-dcd-call-process (prefix args)
(if (null ac-dcd-executable) (if (null ac-dcd-executable)
(error (format "Could not find dcd-client executable")) (error (format "Could not find dcd-client executable"))
(let ((buf (get-buffer-create "*dcd-output*")) (let ((buf (get-buffer-create ac-dcd-output-buffer-name))
res) res)
(with-current-buffer buf (erase-buffer)) (with-current-buffer buf (erase-buffer))
(setq res (apply 'call-process-region (point-min) (point-max) (setq res (apply 'call-process-region (point-min) (point-max)
@ -501,6 +501,7 @@ so I have to replace it with struct name."
(goto-char (point-min)) (goto-char (point-min))
(forward-char (string-to-number offset)))))))) (forward-char (string-to-number offset))))))))
;; utilities for goto-definition ;; utilities for goto-definition
(defun ac-dcd-call-process-for-symbol-declaration (pos) (defun ac-dcd-call-process-for-symbol-declaration (pos)
@ -530,7 +531,7 @@ output is just like following.\n
(cons (match-string 1) (match-string 2))) (cons (match-string 1) (match-string 2)))
(cons nil nil))) (cons nil nil)))
)) ))
(provide 'ac-dcd) (provide 'ac-dcd)
;;; ac-dcd.el ends here ;;; ac-dcd.el ends here