/[emacs]/emacs/lisp/textmodes/scribe.el
ViewVC logotype

Diff of /emacs/lisp/textmodes/scribe.el

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.18 by monnier, Sat Oct 13 19:13:38 2001 UTC revision 1.19 by pj, Thu Dec 20 18:11:26 2001 UTC
# Line 42  Line 42 
42    "Abbrev table used while in scribe mode.")    "Abbrev table used while in scribe mode.")
43    
44  (defcustom scribe-fancy-paragraphs nil  (defcustom scribe-fancy-paragraphs nil
45    "*Non-NIL makes Scribe mode use a different style of paragraph separation."    "*Non-nil makes Scribe mode use a different style of paragraph separation."
46    :type 'boolean    :type 'boolean
47    :group 'scribe)    :group 'scribe)
48    
49  (defcustom scribe-electric-quote nil  (defcustom scribe-electric-quote nil
50    "*Non-NIL makes insert of double quote use `` or '' depending on context."    "*Non-nil makes insert of double quote use `` or '' depending on context."
51    :type 'boolean    :type 'boolean
52    :group 'scribe)    :group 'scribe)
53    
54  (defcustom scribe-electric-parenthesis nil  (defcustom scribe-electric-parenthesis nil
55    "*Non-NIL makes parenthesis char ( (]}> ) automatically insert its close    "*Non-nil makes parenthesis char ( (]}> ) automatically insert its close
56  if typed after an @Command form."  if typed after an @Command form."
57    :type 'boolean    :type 'boolean
58    :group 'scribe)    :group 'scribe)
# Line 261  to skip backward." Line 261  to skip backward."
261    
262  (defun scribe-insert-quote (count)  (defun scribe-insert-quote (count)
263    "Insert ``, '' or \" according to preceding character.    "Insert ``, '' or \" according to preceding character.
264  If `scribe-electric-quote' is non-NIL, insert ``, '' or \" according  If `scribe-electric-quote' is non-nil, insert ``, '' or \" according
265  to preceding character.  With numeric arg N, always insert N \" characters.  to preceding character.  With numeric arg N, always insert N \" characters.
266  Else just insert \"."  Else just insert \"."
267    (interactive "P")    (interactive "P")
# Line 297  Else just insert \"." Line 297  Else just insert \"."
297                   (t "``")))))))))                   (t "``")))))))))
298    
299  (defun scribe-parenthesis (count)  (defun scribe-parenthesis (count)
300    "If scribe-electric-parenthesis is non-NIL, insertion of an open-parenthesis    "If scribe-electric-parenthesis is non-nil, insertion of an open-parenthesis
301  character inserts the following close parenthesis character if the  character inserts the following close parenthesis character if the
302  preceding text is of the form @Command."  preceding text is of the form @Command."
303    (interactive "P")    (interactive "P")

Legend:
Removed from v.1.18  
changed lines
  Added in v.1.19

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26