/utilities/emacspeak/lisp/emacspeak-add-log.el

https://github.com/jamesnvc/emacs.d · Lisp · 83 lines · 20 code · 12 blank · 51 comment · 1 complexity · b637758d5baff187a67e24579fa0b7b0 MD5 · raw file

  1. ;;; emacspeak-add-log.el --- Speech-enable add-log
  2. ;;; $Id: emacspeak-add-log.el 5798 2008-08-22 17:35:01Z tv.raman.tv $
  3. ;;; $Author: tv.raman.tv $
  4. ;;; Description: speech-enable change-log-mode
  5. ;;; Keywords: Emacspeak, Audio Desktop ChangeLogs
  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-08-25 18:28:19 -0700 (Sat, 25 Aug 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. ;;; speech-enables change-log-mode
  40. ;;;Code:
  41. ;;}}}
  42. ;;{{{ Required modules
  43. (require 'cl)
  44. (declaim (optimize (safety 0) (speed 3)))
  45. (require 'custom)
  46. (require 'emacspeak-preamble)
  47. ;;}}}
  48. ;;{{{ define personalities
  49. (defgroup emacspeak-add-log nil
  50. "Customize Emacspeak for change-log-mode and friends."
  51. :group 'emacspeak)
  52. (voice-setup-add-map
  53. '(
  54. (change-log-acknowledgement voice-smoothen)
  55. (change-log-conditionals voice-animate)
  56. (change-log-email voice-womanize-1)
  57. (change-log-function voice-bolden-extra)
  58. (change-log-file voice-bolden)
  59. (change-log-email voice-womanize-1)
  60. (change-log-list voice-lighten)
  61. (change-log-name voice-lighten-extra)
  62. ))
  63. ;;}}}
  64. (provide 'emacspeak-add-log)
  65. ;;{{{ end of file
  66. ;;; local variables:
  67. ;;; folded-file: t
  68. ;;; byte-compile-dynamic: t
  69. ;;; end:
  70. ;;}}}