[Emacs-diffs] Changes to emacs/lisp/textmodes/scribe.el

[Pavel Janík]

Index: emacs/lisp/textmodes/scribe.el
diff -c emacs/lisp/textmodes/scribe.el:1.18 emacs/lisp/textmodes/scribe.el:1.19
*** emacs/lisp/textmodes/scribe.el:1.18 Sat Oct 13 15:13:38 2001
--- emacs/lisp/textmodes/scribe.el      Thu Dec 20 13:11:26 2001
***************
*** 42,58 ****
    "Abbrev table used while in scribe mode.")
  
  (defcustom scribe-fancy-paragraphs nil
!   "*Non-NIL makes Scribe mode use a different style of paragraph separation."
    :type 'boolean
    :group 'scribe)
  
  (defcustom scribe-electric-quote nil
!   "*Non-NIL makes insert of double quote use `` or '' depending on context."
    :type 'boolean
    :group 'scribe)
  
  (defcustom scribe-electric-parenthesis nil
!   "*Non-NIL makes parenthesis char ( (]}> ) automatically insert its close
  if typed after an @Command form."
    :type 'boolean
    :group 'scribe)
--- 42,58 ----
    "Abbrev table used while in scribe mode.")
  
  (defcustom scribe-fancy-paragraphs nil
!   "*Non-nil makes Scribe mode use a different style of paragraph separation."
    :type 'boolean
    :group 'scribe)
  
  (defcustom scribe-electric-quote nil
!   "*Non-nil makes insert of double quote use `` or '' depending on context."
    :type 'boolean
    :group 'scribe)
  
  (defcustom scribe-electric-parenthesis nil
!   "*Non-nil makes parenthesis char ( (]}> ) automatically insert its close
  if typed after an @Command form."
    :type 'boolean
    :group 'scribe)
***************
*** 261,267 ****
  
  (defun scribe-insert-quote (count)
    "Insert ``, '' or \" according to preceding character.
! If `scribe-electric-quote' is non-NIL, insert ``, '' or \" according
  to preceding character.  With numeric arg N, always insert N \" characters.
  Else just insert \"."
    (interactive "P")
--- 261,267 ----
  
  (defun scribe-insert-quote (count)
    "Insert ``, '' or \" according to preceding character.
! If `scribe-electric-quote' is non-nil, insert ``, '' or \" according
  to preceding character.  With numeric arg N, always insert N \" characters.
  Else just insert \"."
    (interactive "P")
***************
*** 297,303 ****
                 (t "``")))))))))
  
  (defun scribe-parenthesis (count)
!   "If scribe-electric-parenthesis is non-NIL, insertion of an open-parenthesis
  character inserts the following close parenthesis character if the
  preceding text is of the form @Command."
    (interactive "P")
--- 297,303 ----
                 (t "``")))))))))
  
  (defun scribe-parenthesis (count)
!   "If scribe-electric-parenthesis is non-nil, insertion of an open-parenthesis
  character inserts the following close parenthesis character if the
  preceding text is of the form @Command."
    (interactive "P")