PageRenderTime 57ms CodeModel.GetById 17ms RepoModel.GetById 1ms app.codeStats 0ms

/emacspeak-29.0/lisp/emacspeak-find-func.el

#
Emacs Lisp | 82 lines | 20 code | 12 blank | 50 comment | 1 complexity | 88e6e1b34ad2efcaddf8e095425de02d MD5 | raw file
Possible License(s): MIT
  1. ;;; emacspeak-find-func.el --- Speech enable emacs' code finder
  2. ;;; $Id: emacspeak-find-func.el 5798 2008-08-22 17:35:01Z tv.raman.tv $
  3. ;;; $Author: tv.raman.tv $
  4. ;;; Description: Emacspeak extension to speech enable find-func
  5. ;;; Keywords: Emacspeak, find-func
  6. ;;{{{ LCD Archive entry:
  7. ;;; LCD Archive Entry:
  8. ;;; emacspeak| T. V. Raman |raman@cs.cornell.edu
  9. ;;; A speech interface to Emacs |
  10. ;;; $Date: 2007-09-01 15:30:13 -0700 (Sat, 01 Sep 2007) $ |
  11. ;;; $Revision: 4532 $ |
  12. ;;; Location undetermined
  13. ;;;
  14. ;;}}}
  15. ;;{{{ Copyright:
  16. ;;;Copyright (C) 1995 -- 2007, T. V. Raman
  17. ;;; Copyright (c) 1994, 1995 by Digital Equipment Corporation.
  18. ;;; All Rights Reserved.
  19. ;;;
  20. ;;; This file is not part of GNU Emacs, but the same permissions apply.
  21. ;;;
  22. ;;; GNU Emacs is free software; you can redistribute it and/or modify
  23. ;;; it under the terms of the GNU General Public License as published by
  24. ;;; the Free Software Foundation; either version 2, or (at your option)
  25. ;;; any later version.
  26. ;;;
  27. ;;; GNU Emacs is distributed in the hope that it will be useful,
  28. ;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
  29. ;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
  30. ;;; GNU General Public License for more details.
  31. ;;;
  32. ;;; You should have received a copy of the GNU General Public License
  33. ;;; along with GNU Emacs; see the file COPYING. If not, write to
  34. ;;; the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.
  35. ;;}}}
  36. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  37. ;;{{{ Introduction:
  38. ;;; Commentary:
  39. ;;; This module speech enables find-func
  40. ;;}}}
  41. ;;{{{ requires
  42. (require 'emacspeak-preamble)
  43. ;;}}}
  44. ;;{{{ advice
  45. (defvar emacspeak-find-func-commands
  46. '(find-function
  47. find-function-at-point
  48. find-variable
  49. find-variable-at-point
  50. find-function-on-key)
  51. "Commands to speech enable")
  52. (loop for f in emacspeak-find-func-commands
  53. do
  54. (eval
  55. `(defadvice ,f (after emacspeak pre act comp)
  56. "Speak current line"
  57. (when (interactive-p)
  58. (emacspeak-auditory-icon 'open-object)
  59. (emacspeak-dtk-sync)
  60. (dtk-speak
  61. (format "Found %s" (ad-get-arg 0)))))))
  62. ;;}}}
  63. (provide 'emacspeak-find-func)
  64. ;;{{{ emacs local variables
  65. ;;; local variables:
  66. ;;; folded-file: t
  67. ;;; byte-compile-dynamic: t
  68. ;;; end:
  69. ;;}}}