/[emacs]/emacs/lisp/enriched.el
ViewVC logotype

Diff of /emacs/lisp/enriched.el

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

revision 1.36 by pj, Tue Jan 1 00:49:56 2002 UTC revision 1.37 by pj, Wed Jan 2 13:19:09 2002 UTC
# Line 172  etc/enriched.doc in the Emacs distributi Line 172  etc/enriched.doc in the Emacs distributi
172    
173  Commands:  Commands:
174    
175  \\<enriched-mode-map>\\{enriched-mode-map}"  \\{enriched-mode-map}"
176    nil " Enriched" nil    nil " Enriched" nil
177    (cond ((null enriched-mode)    (cond ((null enriched-mode)
178           ;; Turn mode off           ;; Turn mode off
# Line 462  is a list `(CLOSE OPEN)', where CLOSE is Line 462  is a list `(CLOSE OPEN)', where CLOSE is
462  close and OPEN a list of annotations to open.  Each of these lists  close and OPEN a list of annotations to open.  Each of these lists
463  has the form `(ANNOTATION PARAM ...)'."  has the form `(ANNOTATION PARAM ...)'."
464    (let ((annotation "x-display")    (let ((annotation "x-display")
465          (param (prin1-to-string (or old new)))          (param (prin1-to-string (or old new))))
         close open)  
466      (if (null old)      (if (null old)
467          (list nil (list annotation param))          (list nil (list annotation param))
468        (list (list annotation param)))))        (list (list annotation param)))))

Legend:
Removed from v.1.36  
changed lines
  Added in v.1.37

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