cmake-mode.el: Fix extracting keyword at point in cmake-help

Since commit v3.1.0-rc2~1^2~1 (cmake-mode.el: syntax of '_' should be
treated as symbol, 2014-11-12) the 'word-at-point' function does not
extract the whole keyword anymore if it contains an '_', because
'forward-word' stops at '_'.  Use 'symbol-at-point' to extract a whole
keyword even if there is an '_'.
This commit is contained in:
Peter Vasil 2015-01-18 01:27:28 +01:00 committed by Brad King
parent 30f14aebee
commit ca80598eca
1 changed files with 7 additions and 3 deletions

View File

@ -320,9 +320,13 @@ and store the result as a list in LISTVAR."
)) ))
) )
(require 'thingatpt) (defun cmake-symbol-at-point ()
(let ((symbol (symbol-at-point)))
(and (not (null symbol))
(symbol-name symbol))))
(defun cmake-help-type (type) (defun cmake-help-type (type)
(let* ((default-entry (word-at-point)) (let* ((default-entry (cmake-symbol-at-point))
(history (car (cdr (cdr (assoc type cmake-string-to-list-symbol))))) (history (car (cdr (cdr (assoc type cmake-string-to-list-symbol)))))
(input (completing-read (input (completing-read
(format "CMake %s: " type) ; prompt (format "CMake %s: " type) ; prompt
@ -365,7 +369,7 @@ and store the result as a list in LISTVAR."
(defun cmake-help () (defun cmake-help ()
"Queries for any of the four available help topics and prints out the approriate page." "Queries for any of the four available help topics and prints out the approriate page."
(interactive) (interactive)
(let* ((default-entry (word-at-point)) (let* ((default-entry (cmake-symbol-at-point))
(command-list (cmake-get-list "command")) (command-list (cmake-get-list "command"))
(variable-list (cmake-get-list "variable")) (variable-list (cmake-get-list "variable"))
(module-list (cmake-get-list "module")) (module-list (cmake-get-list "module"))