From: Manuel Klimek Date: Wed, 28 Sep 2016 10:20:10 +0000 (+0000) Subject: Fix warnings in clang-completion-mode.el. X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=cf8824a440fbc3fefe9bb5152fd8943142baccb2;p=clang Fix warnings in clang-completion-mode.el. - Use defvar to declare variables - Don't use delete-backward-char, which is for interactive use only Patch by Philipp Stephani git-svn-id: https://llvm.org/svn/llvm-project/cfe/trunk@282573 91177308-0d34-0410-b5e6-96231b3b80d8 --- diff --git a/utils/clang-completion-mode.el b/utils/clang-completion-mode.el index 6cf5cb5745..e33e6bde7c 100644 --- a/utils/clang-completion-mode.el +++ b/utils/clang-completion-mode.el @@ -64,15 +64,15 @@ This variable will typically contain include paths, e.g., -I~/MyProject." :group 'clang-completion-mode) ;;; The prefix header to use with Clang code completion. -(setq clang-completion-prefix-header "") +(defvar clang-completion-prefix-header "") ;;; The substring we will use to filter completion results -(setq clang-completion-substring "") +(defvar clang-completion-substring "") ;;; The current completion buffer -(setq clang-completion-buffer nil) +(defvar clang-completion-buffer nil) -(setq clang-result-string "") +(defvar clang-result-string "") ;;; Compute the current line in the buffer (defun current-line () @@ -199,14 +199,14 @@ This variable will typically contain include paths, e.g., -I~/MyProject." ;; for the currently-active code completion. (defun clang-backspace () (interactive) - (delete-backward-char 1) + (delete-char -1) (clang-update-filter)) ;; Invoked when the user types the delete key to update the filter ;; for the currently-active code completion. (defun clang-delete () (interactive) - (delete-backward-char 1) + (delete-char -1) (clang-update-filter)) ;; Set up the keymap for the Clang minor mode. @@ -246,4 +246,3 @@ This variable will typically contain include paths, e.g., -I~/MyProject." nil " Clang" clang-completion-mode-map) -