mirrors/emacs
1
Fork 0
mirror of git://git.sv.gnu.org/emacs.git synced 2026-03-02 11:50:48 -08:00
Code Issues Projects Releases Wiki Activity

* lisp/progmodes/octave.el (octave-mode-map): Add key binding for

Browse source 
octave-lookfor.
(octave-mode-menu): Add octave-lookfor.
(inferior-octave-mode-map, octave-help-mode-map): Bind C-ha to
octave-lookfor.
(octave-lookfor): New function.
This commit is contained in:
Rüdiger Sonderfeld 2013-09-28 10:30:37 +08:00 • committed by Leo Liu
parent 25201ef030
commit 5af5ed0865
2 changed files with 39 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

9
lisp/ChangeLog
View file

@ -1,3 +1,12 @@
2013-09-28 Rüdiger Sonderfeld <ruediger@c-plusplus.de>
* lisp/progmodes/octave.el (octave-mode-map): Add key binding for
octave-lookfor.
(octave-mode-menu): Add octave-lookfor.
(inferior-octave-mode-map, octave-help-mode-map): Bind C-ha to
octave-lookfor.
(octave-lookfor): New function.
2013-09-28 Stefan Monnier <monnier@iro.umontreal.ca>
* emacs-lisp/cl-macs.el:

30
lisp/progmodes/octave.el
View file

@ -109,6 +109,7 @@ parenthetical grouping.")
(define-key map "\C-c/" 'smie-close-block)
(define-key map "\C-c;" 'octave-update-function-file-comment)
(define-key map "\C-hd" 'octave-help)
(define-key map "\C-ha" 'octave-lookfor)
(define-key map "\C-c\C-f" 'octave-insert-defun)
(define-key map "\C-c\C-il" 'octave-send-line)
(define-key map "\C-c\C-ib" 'octave-send-block)
@ -143,6 +144,7 @@ parenthetical grouping.")
["Start Octave Process" run-octave t]
["Documentation Lookup" info-lookup-symbol t]
["Help on Function" octave-help t]
["Search help" octave-lookfor t]
["Find Function Definition" octave-find-definition t]
["Insert Function" octave-insert-defun t]
["Update Function File Comment" octave-update-function-file-comment t]
@ -634,6 +636,7 @@ mode, include \"-q\" and \"--traditional\"."
(define-key map "\M-." 'octave-find-definition)
(define-key map "\t" 'completion-at-point)
(define-key map "\C-hd" 'octave-help)
(define-key map "\C-ha" 'octave-lookfor)
;; Same as in `shell-mode'.
(define-key map "\M-?" 'comint-dynamic-list-filename-completions)
(define-key map "\C-c\C-l" 'inferior-octave-dynamic-list-input-ring)
@ -1599,6 +1602,7 @@ code line."
(let ((map (make-sparse-keymap)))
(define-key map "\M-." 'octave-find-definition)
(define-key map "\C-hd" 'octave-help)
(define-key map "\C-ha" 'octave-lookfor)
map))
(define-derived-mode octave-help-mode help-mode "OctHelp"
@ -1677,6 +1681,32 @@ code line."
:type 'octave-help-function)))))
(octave-help-mode)))))
(defun octave-lookfor (str &optional all)
"Search for the string STR in all function help strings.
If ALL is non-nil search the entire help string else only search the first
sentence."
(interactive "sSearch for: \nP")
(inferior-octave-send-list-and-digest
(list (format "lookfor (%s'%s');\n"
(if all "'-all', " "")
str)))
(let ((lines inferior-octave-output-list))
(when (string-match "error: \\(.*\\)$" (car lines))
(error "%s" (match-string 1 (car lines))))
(with-help-window octave-help-buffer
(princ (mapconcat 'identity lines "\n"))
(with-current-buffer octave-help-buffer
;; Bound to t so that `help-buffer' returns current buffer for
;; `help-setup-xref'.
(let ((help-xref-following t))
(help-setup-xref (list 'octave-lookfor str all)
(called-interactively-p 'interactive)))
(goto-char (point-min))
(while (re-search-forward "^\\([^[:blank:]]+\\) " nil 'noerror)
(make-text-button (match-beginning 1) (match-end 1)
:type 'octave-help-function))
(octave-help-mode)))))
(defcustom octave-source-directories nil
"A list of directories for Octave sources.
If the environment variable OCTAVE_SRCDIR is set, it is searched first."