[bpt/emacs.git] / lisp / ediff-help.el

;;; ediff-help.el --- Code related to the contents of Ediff help buffers

;; Copyright (C) 1996, 1997 Free Software Foundation, Inc.

;; Author: Michael Kifer <kifer@cs.sunysb.edu>

;; This file is part of GNU Emacs.

;; GNU Emacs is free software; you can redistribute it and/or modify
;; it under the terms of the GNU General Public License as published by
;; the Free Software Foundation; either version 2, or (at your option)
;; any later version.

;; GNU Emacs is distributed in the hope that it will be useful,
;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
;; GNU General Public License for more details.

;; You should have received a copy of the GNU General Public License
;; along with GNU Emacs; see the file COPYING.  If not, write to the
;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
;; Boston, MA 02111-1307, USA.

;;; Code:
	 
(provide 'ediff-help)

;; Compiler pacifier start
(defvar ediff-multiframe)

(eval-when-compile
  (let ((load-path (cons (expand-file-name ".") load-path)))
    (or (featurep 'ediff-init)
	(load "ediff-init.el" nil nil 'nosuffix))
    ))
;; end pacifier

(require 'ediff-init)

;; Help messages

(defconst ediff-long-help-message-head
  "    Move around      |      Toggle features      |        Manipulate
=====================|===========================|============================="
  "The head of the full help message.")
(defconst ediff-long-help-message-tail
  "=====================|===========================|=============================
    R -show registry |     = -compare regions    |  M   -show session group    
    D -diff output   |     E -browse Ediff manual|  G   -send bug report       
    i -status info   |     ? -help off           |  z/q -suspend/quit          
-------------------------------------------------------------------------------
For help on a specific command:  Click Button 2 over it; or
              			 Put the cursor over it and type RET."
  "The tail of the full-help message.")

(defconst ediff-long-help-message-compare3
  "
p,DEL -previous diff |     | -vert/horiz split   | xy -copy buf X's region to Y
n,SPC -next diff     |     h -hilighting         | rx -restore buf X's old diff
    j -jump to diff  |     @ -auto-refinement    |  * -refine current region   
   gx -goto X's point|                           |  ! -update diff regions     
  C-l -recenter      |    ## -ignore whitespace  |
  v/V -scroll up/dn  | #f/#h -focus/hide regions | wx -save buf X              
  </> -scroll lt/rt  |     X -read-only in buf X | wd -save diff output        
    ~ -rotate buffers|     m -wide display       |
"
  "Help message usually used for 3-way comparison.
Normally, not a user option.  See `ediff-help-message' for details.")
  
(defconst ediff-long-help-message-compare2
  "
p,DEL -previous diff |     | -vert/horiz split   |a/b -copy A/B's region to B/A
n,SPC -next diff     |     h -hilighting         | rx -restore buf X's old diff
    j -jump to diff  |     @ -auto-refinement    |  * -refine current region   
   gx -goto X's point|                           |  ! -update diff regions     
  C-l -recenter      |    ## -ignore whitespace  |
  v/V -scroll up/dn  | #f/#h -focus/hide regions | wx -save buf X              
  </> -scroll lt/rt  |     X -read-only in buf X | wd -save diff output        
    ~ -swap variants |     m -wide display       |  
"
  "Help message usually used for 2-way comparison.
Normally, not a user option.  See `ediff-help-message' for details.")
  
(defconst ediff-long-help-message-narrow2
  "
p,DEL -previous diff |     | -vert/horiz split   |a/b -copy A/B's region to B/A
n,SPC -next diff     |     h -hilighting         | rx -restore buf X's old diff
    j -jump to diff  |     @ -auto-refinement    |  * -refine current region   
   gx -goto X's point|     % -narrow/widen buffs |  ! -update diff regions     
  C-l -recenter      |    ## -ignore whitespace  |
  v/V -scroll up/dn  | #f/#h -focus/hide regions | wx -save buf X              
  </> -scroll lt/rt  |     X -read-only in buf X | wd -save diff output        
    ~ -swap variants |     m -wide display       |  
"
  "Help message when comparing windows or regions line-by-line.
Normally, not a user option.  See `ediff-help-message' for details.")
  
(defconst ediff-long-help-message-word-mode
  "
p,DEL -previous diff |     | -vert/horiz split   | xy -copy buf X's region to Y
n,SPC -next diff     |     h -hilighting         | rx -restore buf X's old diff
    j -jump to diff  |                           |                   
   gx -goto X's point|     % -narrow/widen buffs |  ! -recompute diffs         
  C-l -recenter      |                           |
  v/V -scroll up/dn  | #f/#h -focus/hide regions | wx -save buf X              
  </> -scroll lt/rt  |     X -read-only in buf X | wd -save diff output        
    ~ -swap variants |     m -wide display       |  
"
  "Help message when comparing windows or regions word-by-word.
Normally, not a user option.  See `ediff-help-message' for details.")
  
(defconst ediff-long-help-message-merge
  "
p,DEL -previous diff |     | -vert/horiz split   |  x -copy buf X's region to C
n,SPC -next diff     |     h -hilighting         |  r -restore buf C's old diff
    j -jump to diff  |     @ -auto-refinement    |  * -refine current region   
   gx -goto X's point|    ## -ignore whitespace  |  ! -update diff regions     
  C-l -recenter      | #f/#h -focus/hide regions |  + -combine diff regions    
  v/V -scroll up/dn  |     X -read-only in buf X | wx -save buf X              
  </> -scroll lt/rt  |     m -wide display       | wd -save diff output        
    ~ -swap variants |     s -shrink window C    |  / -show ancestor buff      
                     |  $$ -show clashes only    |  & -merge w/new default     
                     |  $* -skip changed regions |
"
  "Help message for merge sessions.
Normally, not a user option.  See `ediff-help-message' for details.")

;; The actual long help message.
(ediff-defvar-local ediff-long-help-message ""
  "Normally, not a user option.  See `ediff-help-message' for details.")
  
(defconst ediff-brief-message-string
  " ? -quick help "
  "Contents of the brief help message.")
;; The actual brief help message
(ediff-defvar-local ediff-brief-help-message ""
  "Normally, not a user option.  See `ediff-help-message' for details.")
  
(ediff-defvar-local ediff-brief-help-message-function nil
  "The brief help message that the user can customize.
If the user sets this to a parameter-less function, Ediff will use it to
produce the brief help message.  This function must return a string.")
(ediff-defvar-local ediff-long-help-message-function nil
  "The long help message that the user can customize.
See `ediff-brief-help-message-function' for more.")

(defcustom ediff-use-long-help-message nil
  "*If t, Ediff displays a long help message.  Short help message otherwise."
  :type 'boolean
  :group 'ediff-window)

;; The actual help message.
(ediff-defvar-local ediff-help-message ""
  "The actual help message.
Normally, the user shouldn't touch this.  However, if you want Ediff to
start up with different help messages for different jobs, you can change
the value of this variable and the variables `ediff-help-message-*' in
`ediff-startup-hook'.") 


;; the keymap that defines clicks over the quick help regions
(defvar ediff-help-region-map (make-sparse-keymap))

(define-key
  ediff-help-region-map
  (if ediff-emacs-p [mouse-2] [button2])
  'ediff-help-for-quick-help)

;; runs in the control buffer
(defun ediff-set-help-overlays ()
  (goto-char (point-min))
  (let (overl beg end cmd)
    (while (re-search-forward " *\\([^ \t\n|]+\\||\\) +-[^|\n]+" nil 'noerror)
      (setq beg (match-beginning 0)
	    end (match-end 0)
	    cmd (buffer-substring (match-beginning 1) (match-end 1)))
      (setq overl (ediff-make-overlay beg end))
      (if ediff-emacs-p
	  (ediff-overlay-put overl 'mouse-face 'highlight)
	(ediff-overlay-put overl 'highlight t))
      (ediff-overlay-put overl 'ediff-help-info cmd))))


(defun ediff-help-for-quick-help ()
  "Explain Ediff commands in more detail."
  (interactive)
  (ediff-barf-if-not-control-buffer)
  (let ((pos (ediff-event-point last-command-event))
	overl cmd)

    (if ediff-xemacs-p
	(setq overl (extent-at pos (current-buffer) 'ediff-help-info)
	      cmd   (ediff-overlay-get overl 'ediff-help-info))
      (setq cmd (car (mapcar (lambda (elt)
			       (overlay-get elt 'ediff-help-info))
			     (overlays-at pos)))))
    
    (if (not (stringp cmd))
	(error "Hmm...  I don't see an Ediff command around here..."))
    
    (ediff-documentation "Quick Help Commands")
    
    (let (case-fold-search)
      (cond ((string= cmd "?") (re-search-forward "^`\\?'"))
	    ((string= cmd "G") (re-search-forward "^`G'"))
	    ((string= cmd "E") (re-search-forward "^`E'"))
	    ((string= cmd "wd") (re-search-forward "^`wd'"))
	    ((string= cmd "wx") (re-search-forward "^`wa'"))
	    ((string= cmd "a/b") (re-search-forward "^`a'"))
	    ((string= cmd "x") (re-search-forward "^`a'"))
	    ((string= cmd "xy") (re-search-forward "^`ab'"))
	    ((string= cmd "p,DEL") (re-search-forward "^`p'"))
	    ((string= cmd "n,SPC") (re-search-forward "^`n'"))
	    ((string= cmd "j") (re-search-forward "^`j'"))
	    ((string= cmd "gx") (re-search-forward "^`ga'"))
	    ((string= cmd "!") (re-search-forward "^`!'"))
	    ((string= cmd "*") (re-search-forward "^`\\*'"))
	    ((string= cmd "m") (re-search-forward "^`m'"))
	    ((string= cmd "|") (re-search-forward "^`|'"))
	    ((string= cmd "@") (re-search-forward "^`@'"))
	    ((string= cmd "h") (re-search-forward "^`h'"))
	    ((string= cmd "r") (re-search-forward "^`r'"))
	    ((string= cmd "rx") (re-search-forward "^`ra'"))
	    ((string= cmd "##") (re-search-forward "^`##'"))
	    ((string= cmd "#f/#h") (re-search-forward "^`#f'"))
	    ((string= cmd "X") (re-search-forward "^`A'"))
	    ((string= cmd "v/V") (re-search-forward "^`v'"))
	    ((string= cmd "</>") (re-search-forward "^`<'"))
	    ((string= cmd "~") (re-search-forward "^`~'"))
	    ((string= cmd "i") (re-search-forward "^`i'"))
	    ((string= cmd "D") (re-search-forward "^`D'"))
	    ((string= cmd "R") (re-search-forward "^`R'"))
	    ((string= cmd "M") (re-search-forward "^`M'"))
	    ((string= cmd "z/q") (re-search-forward "^`z'"))
	    ((string= cmd "%") (re-search-forward "^`%'"))
	    ((string= cmd "C-l") (re-search-forward "^`C-l'"))
	    ((string= cmd "$$") (re-search-forward "^`\\$\\$'"))
	    ((string= cmd "$*") (re-search-forward "^`\\$\\*'"))
	    ((string= cmd "/") (re-search-forward "^`/'"))
	    ((string= cmd "&") (re-search-forward "^`&'"))
	    ((string= cmd "s") (re-search-forward "^`s'"))
	    ((string= cmd "+") (re-search-forward "^`\\+'"))
	    ((string= cmd "=") (re-search-forward "^`='"))
	    (t (error "Undocumented command! Type `G' in Ediff Control Panel to drop a note to the Ediff maintainer")))
      ) ; let case-fold-search
    ))


;; assuming we are in control window, calculate length of the first line in
;; help message
(defun ediff-help-message-line-length ()
  (save-excursion
    (goto-char (point-min))
    (if ediff-use-long-help-message
	(next-line 1))
    (end-of-line)
    (current-column)))
    

(defun ediff-indent-help-message ()
  (let* ((shift (/ (max 0 (- (window-width (selected-window))
			     (ediff-help-message-line-length)))
		   2))
	 (str (make-string shift ?\ )))
    (save-excursion
      (goto-char (point-min))
      (while (< (point) (point-max))
	(insert str)
	(beginning-of-line)
	(forward-line 1)))))
      

;; compose the help message as a string
(defun ediff-set-help-message ()
  (setq ediff-long-help-message
	(cond ((and ediff-long-help-message-function
		    (or (symbolp ediff-long-help-message-function)
			(consp ediff-long-help-message-function)))
	       (funcall ediff-long-help-message-function))
	      (ediff-word-mode 
	       (concat ediff-long-help-message-head
		       ediff-long-help-message-word-mode
		       ediff-long-help-message-tail))
	      (ediff-narrow-job
	       (concat ediff-long-help-message-head
		       ediff-long-help-message-narrow2
		       ediff-long-help-message-tail))
	      (ediff-merge-job 
	       (concat ediff-long-help-message-head
		       ediff-long-help-message-merge
		       ediff-long-help-message-tail))
	      (ediff-diff3-job
	       (concat ediff-long-help-message-head
		       ediff-long-help-message-compare3
		       ediff-long-help-message-tail))
	      (t 
	       (concat ediff-long-help-message-head
		       ediff-long-help-message-compare2
		       ediff-long-help-message-tail))))
  (setq ediff-brief-help-message 
	(cond ((and ediff-brief-help-message-function
		    (or (symbolp ediff-brief-help-message-function)
			(consp ediff-brief-help-message-function)))
	       (funcall ediff-brief-help-message-function))
	      ((stringp ediff-brief-help-message-function)
	       ediff-brief-help-message-function)
	      ((ediff-multiframe-setup-p) ediff-brief-message-string)
	      (t ; long brief msg, not multiframe --- put in the middle
	       ediff-brief-message-string)
	      ))
  (setq ediff-help-message (if ediff-use-long-help-message
			       ediff-long-help-message
			     ediff-brief-help-message))
  (run-hooks 'ediff-display-help-hook))

;;;###autoload
(defun ediff-customize ()
  (interactive)
  (customize-group "ediff"))


;;; ediff-help.el ends here
Commit	Line	Data
f49e1445 MK	1	;;; ediff-help.el --- Code related to the contents of Ediff help buffers
f49e1445 MK	2
ddc90f39	3	;; Copyright (C) 1996, 1997 Free Software Foundation, Inc.
f49e1445 MK	4
	5	;; Author: Michael Kifer <kifer@cs.sunysb.edu>
	6
	7	;; This file is part of GNU Emacs.
	8
	9	;; GNU Emacs is free software; you can redistribute it and/or modify
	10	;; it under the terms of the GNU General Public License as published by
	11	;; the Free Software Foundation; either version 2, or (at your option)
	12	;; any later version.
	13
	14	;; GNU Emacs is distributed in the hope that it will be useful,
	15	;; but WITHOUT ANY WARRANTY; without even the implied warranty of
	16	;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	17	;; GNU General Public License for more details.
	18
	19	;; You should have received a copy of the GNU General Public License
	20	;; along with GNU Emacs; see the file COPYING. If not, write to the
	21	;; Free Software Foundation, Inc., 59 Temple Place - Suite 330,
	22	;; Boston, MA 02111-1307, USA.
	23
	24	;;; Code:
ddc90f39 MK	25
ddc90f39 MK	26	(provide 'ediff-help)
f49e1445 MK	27
	28	;; Compiler pacifier start
	29	(defvar ediff-multiframe)
ddc90f39 MK	30
	31	(eval-when-compile
	32	(let ((load-path (cons (expand-file-name ".") load-path)))
	33	(or (featurep 'ediff-init)
	34	(load "ediff-init.el" nil nil 'nosuffix))
	35	))
f49e1445 MK	36	;; end pacifier
f49e1445 MK	37
ddc90f39 MK	38	(require 'ediff-init)
ddc90f39 MK	39
f49e1445 MK	40	;; Help messages
	41
	42	(defconst ediff-long-help-message-head
	43	" Move around \| Toggle features \| Manipulate
	44	=====================\|===========================\|============================="
	45	"The head of the full help message.")
	46	(defconst ediff-long-help-message-tail
	47	"=====================\|===========================\|=============================
	48	R -show registry \| = -compare regions \| M -show session group
	49	D -diff output \| E -browse Ediff manual\| G -send bug report
	50	i -status info \| ? -help off \| z/q -suspend/quit
	51	-------------------------------------------------------------------------------
	52	For help on a specific command: Click Button 2 over it; or
	53	Put the cursor over it and type RET."
	54	"The tail of the full-help message.")
	55
	56	(defconst ediff-long-help-message-compare3
	57	"
	58	p,DEL -previous diff \| \| -vert/horiz split \| xy -copy buf X's region to Y
	59	n,SPC -next diff \| h -hilighting \| rx -restore buf X's old diff
	60	j -jump to diff \| @ -auto-refinement \| * -refine current region
	61	gx -goto X's point\| \| ! -update diff regions
	62	C-l -recenter \| ## -ignore whitespace \|
	63	v/V -scroll up/dn \| #f/#h -focus/hide regions \| wx -save buf X
	64	</> -scroll lt/rt \| X -read-only in buf X \| wd -save diff output
	65	~ -rotate buffers\| m -wide display \|
	66	"
	67	"Help message usually used for 3-way comparison.
3af0304a	68	Normally, not a user option. See `ediff-help-message' for details.")
f49e1445 MK	69
	70	(defconst ediff-long-help-message-compare2
	71	"
	72	p,DEL -previous diff \| \| -vert/horiz split \|a/b -copy A/B's region to B/A
	73	n,SPC -next diff \| h -hilighting \| rx -restore buf X's old diff
	74	j -jump to diff \| @ -auto-refinement \| * -refine current region
	75	gx -goto X's point\| \| ! -update diff regions
	76	C-l -recenter \| ## -ignore whitespace \|
	77	v/V -scroll up/dn \| #f/#h -focus/hide regions \| wx -save buf X
	78	</> -scroll lt/rt \| X -read-only in buf X \| wd -save diff output
	79	~ -swap variants \| m -wide display \|
	80	"
	81	"Help message usually used for 2-way comparison.
3af0304a	82	Normally, not a user option. See `ediff-help-message' for details.")
f49e1445 MK	83
	84	(defconst ediff-long-help-message-narrow2
	85	"
	86	p,DEL -previous diff \| \| -vert/horiz split \|a/b -copy A/B's region to B/A
	87	n,SPC -next diff \| h -hilighting \| rx -restore buf X's old diff
	88	j -jump to diff \| @ -auto-refinement \| * -refine current region
	89	gx -goto X's point\| % -narrow/widen buffs \| ! -update diff regions
	90	C-l -recenter \| ## -ignore whitespace \|
	91	v/V -scroll up/dn \| #f/#h -focus/hide regions \| wx -save buf X
	92	</> -scroll lt/rt \| X -read-only in buf X \| wd -save diff output
	93	~ -swap variants \| m -wide display \|
	94	"
	95	"Help message when comparing windows or regions line-by-line.
3af0304a	96	Normally, not a user option. See `ediff-help-message' for details.")
f49e1445 MK	97
	98	(defconst ediff-long-help-message-word-mode
	99	"
	100	p,DEL -previous diff \| \| -vert/horiz split \| xy -copy buf X's region to Y
	101	n,SPC -next diff \| h -hilighting \| rx -restore buf X's old diff
	102	j -jump to diff \| \|
	103	gx -goto X's point\| % -narrow/widen buffs \| ! -recompute diffs
	104	C-l -recenter \| \|
	105	v/V -scroll up/dn \| #f/#h -focus/hide regions \| wx -save buf X
	106	</> -scroll lt/rt \| X -read-only in buf X \| wd -save diff output
	107	~ -swap variants \| m -wide display \|
	108	"
	109	"Help message when comparing windows or regions word-by-word.
3af0304a	110	Normally, not a user option. See `ediff-help-message' for details.")
f49e1445 MK	111
	112	(defconst ediff-long-help-message-merge
	113	"
	114	p,DEL -previous diff \| \| -vert/horiz split \| x -copy buf X's region to C
	115	n,SPC -next diff \| h -hilighting \| r -restore buf C's old diff
	116	j -jump to diff \| @ -auto-refinement \| * -refine current region
	117	gx -goto X's point\| ## -ignore whitespace \| ! -update diff regions
	118	C-l -recenter \| #f/#h -focus/hide regions \| + -combine diff regions
	119	v/V -scroll up/dn \| X -read-only in buf X \| wx -save buf X
	120	</> -scroll lt/rt \| m -wide display \| wd -save diff output
	121	~ -swap variants \| s -shrink window C \| / -show ancestor buff
3af0304a MK	122	\| $$ -show clashes only \| & -merge w/new default
3af0304a MK	123	\| $* -skip changed regions \|
f49e1445	124	"
3af0304a MK	125	"Help message for merge sessions.
3af0304a MK	126	Normally, not a user option. See `ediff-help-message' for details.")
f49e1445 MK	127
	128	;; The actual long help message.
	129	(ediff-defvar-local ediff-long-help-message ""
3af0304a	130	"Normally, not a user option. See `ediff-help-message' for details.")
f49e1445 MK	131
f49e1445 MK	132	(defconst ediff-brief-message-string
3af0304a	133	" ? -quick help "
f49e1445 MK	134	"Contents of the brief help message.")
	135	;; The actual brief help message
	136	(ediff-defvar-local ediff-brief-help-message ""
3af0304a	137	"Normally, not a user option. See `ediff-help-message' for details.")
f49e1445 MK	138
	139	(ediff-defvar-local ediff-brief-help-message-function nil
	140	"The brief help message that the user can customize.
	141	If the user sets this to a parameter-less function, Ediff will use it to
3af0304a	142	produce the brief help message. This function must return a string.")
f49e1445 MK	143	(ediff-defvar-local ediff-long-help-message-function nil
	144	"The long help message that the user can customize.
	145	See `ediff-brief-help-message-function' for more.")
	146
7d027816 MK	147	(defcustom ediff-use-long-help-message nil
	148	"*If t, Ediff displays a long help message. Short help message otherwise."
	149	:type 'boolean
	150	:group 'ediff-window)
f49e1445 MK	151
	152	;; The actual help message.
	153	(ediff-defvar-local ediff-help-message ""
	154	"The actual help message.
3af0304a	155	Normally, the user shouldn't touch this. However, if you want Ediff to
f49e1445 MK	156	start up with different help messages for different jobs, you can change
	157	the value of this variable and the variables `ediff-help-message-*' in
	158	`ediff-startup-hook'.")
	159
	160
	161	;; the keymap that defines clicks over the quick help regions
	162	(defvar ediff-help-region-map (make-sparse-keymap))
	163
	164	(define-key
	165	ediff-help-region-map
	166	(if ediff-emacs-p [mouse-2] [button2])
	167	'ediff-help-for-quick-help)
	168
	169	;; runs in the control buffer
	170	(defun ediff-set-help-overlays ()
	171	(goto-char (point-min))
	172	(let (overl beg end cmd)
	173	(while (re-search-forward " *\\([^ \t\n\|]+\\\|\|\\) +-[^\|\n]+" nil 'noerror)
	174	(setq beg (match-beginning 0)
	175	end (match-end 0)
	176	cmd (buffer-substring (match-beginning 1) (match-end 1)))
	177	(setq overl (ediff-make-overlay beg end))
	178	(if ediff-emacs-p
	179	(ediff-overlay-put overl 'mouse-face 'highlight)
	180	(ediff-overlay-put overl 'highlight t))
	181	(ediff-overlay-put overl 'ediff-help-info cmd))))
	182
	183
	184	(defun ediff-help-for-quick-help ()
	185	"Explain Ediff commands in more detail."
	186	(interactive)
	187	(ediff-barf-if-not-control-buffer)
ddc90f39	188	(let ((pos (ediff-event-point last-command-event))
f49e1445 MK	189	overl cmd)
	190
	191	(if ediff-xemacs-p
	192	(setq overl (extent-at pos (current-buffer) 'ediff-help-info)
	193	cmd (ediff-overlay-get overl 'ediff-help-info))
3af0304a MK	194	(setq cmd (car (mapcar (lambda (elt)
3af0304a MK	195	(overlay-get elt 'ediff-help-info))
f49e1445 MK	196	(overlays-at pos)))))
	197
	198	(if (not (stringp cmd))
3af0304a	199	(error "Hmm... I don't see an Ediff command around here..."))
f49e1445 MK	200
	201	(ediff-documentation "Quick Help Commands")
	202
	203	(let (case-fold-search)
	204	(cond ((string= cmd "?") (re-search-forward "^`\\?'"))
	205	((string= cmd "G") (re-search-forward "^`G'"))
	206	((string= cmd "E") (re-search-forward "^`E'"))
	207	((string= cmd "wd") (re-search-forward "^`wd'"))
	208	((string= cmd "wx") (re-search-forward "^`wa'"))
	209	((string= cmd "a/b") (re-search-forward "^`a'"))
	210	((string= cmd "x") (re-search-forward "^`a'"))
	211	((string= cmd "xy") (re-search-forward "^`ab'"))
	212	((string= cmd "p,DEL") (re-search-forward "^`p'"))
	213	((string= cmd "n,SPC") (re-search-forward "^`n'"))
	214	((string= cmd "j") (re-search-forward "^`j'"))
	215	((string= cmd "gx") (re-search-forward "^`ga'"))
	216	((string= cmd "!") (re-search-forward "^`!'"))
	217	((string= cmd "") (re-search-forward "^`\\'"))
	218	((string= cmd "m") (re-search-forward "^`m'"))
	219	((string= cmd "\|") (re-search-forward "^`\|'"))
	220	((string= cmd "@") (re-search-forward "^`@'"))
	221	((string= cmd "h") (re-search-forward "^`h'"))
	222	((string= cmd "r") (re-search-forward "^`r'"))
	223	((string= cmd "rx") (re-search-forward "^`ra'"))
	224	((string= cmd "##") (re-search-forward "^`##'"))
	225	((string= cmd "#f/#h") (re-search-forward "^`#f'"))
	226	((string= cmd "X") (re-search-forward "^`A'"))
	227	((string= cmd "v/V") (re-search-forward "^`v'"))
	228	((string= cmd "</>") (re-search-forward "^`<'"))
	229	((string= cmd "~") (re-search-forward "^`~'"))
	230	((string= cmd "i") (re-search-forward "^`i'"))
	231	((string= cmd "D") (re-search-forward "^`D'"))
	232	((string= cmd "R") (re-search-forward "^`R'"))
	233	((string= cmd "M") (re-search-forward "^`M'"))
	234	((string= cmd "z/q") (re-search-forward "^`z'"))
	235	((string= cmd "%") (re-search-forward "^`%'"))
	236	((string= cmd "C-l") (re-search-forward "^`C-l'"))
3af0304a MK	237	((string= cmd "$$") (re-search-forward "^`\\$\\$'"))
3af0304a MK	238	((string= cmd "$") (re-search-forward "^`\\$\\'"))
f49e1445 MK	239	((string= cmd "/") (re-search-forward "^`/'"))
	240	((string= cmd "&") (re-search-forward "^`&'"))
	241	((string= cmd "s") (re-search-forward "^`s'"))
	242	((string= cmd "+") (re-search-forward "^`\\+'"))
	243	((string= cmd "=") (re-search-forward "^`='"))
	244	(t (error "Undocumented command! Type `G' in Ediff Control Panel to drop a note to the Ediff maintainer")))
	245	) ; let case-fold-search
	246	))
	247
	248
	249	;; assuming we are in control window, calculate length of the first line in
	250	;; help message
	251	(defun ediff-help-message-line-length ()
	252	(save-excursion
	253	(goto-char (point-min))
	254	(if ediff-use-long-help-message
	255	(next-line 1))
	256	(end-of-line)
	257	(current-column)))
	258
	259
	260	(defun ediff-indent-help-message ()
	261	(let* ((shift (/ (max 0 (- (window-width (selected-window))
	262	(ediff-help-message-line-length)))
	263	2))
	264	(str (make-string shift ?\ )))
	265	(save-excursion
	266	(goto-char (point-min))
	267	(while (< (point) (point-max))
	268	(insert str)
	269	(beginning-of-line)
	270	(forward-line 1)))))
	271
	272
	273	;; compose the help message as a string
	274	(defun ediff-set-help-message ()
	275	(setq ediff-long-help-message
	276	(cond ((and ediff-long-help-message-function
	277	(or (symbolp ediff-long-help-message-function)
	278	(consp ediff-long-help-message-function)))
	279	(funcall ediff-long-help-message-function))
	280	(ediff-word-mode
	281	(concat ediff-long-help-message-head
	282	ediff-long-help-message-word-mode
	283	ediff-long-help-message-tail))
	284	(ediff-narrow-job
	285	(concat ediff-long-help-message-head
	286	ediff-long-help-message-narrow2
	287	ediff-long-help-message-tail))
	288	(ediff-merge-job
	289	(concat ediff-long-help-message-head
	290	ediff-long-help-message-merge
	291	ediff-long-help-message-tail))
	292	(ediff-diff3-job
	293	(concat ediff-long-help-message-head
	294	ediff-long-help-message-compare3
	295	ediff-long-help-message-tail))
	296	(t
	297	(concat ediff-long-help-message-head
	298	ediff-long-help-message-compare2
	299	ediff-long-help-message-tail))))
	300	(setq ediff-brief-help-message
	301	(cond ((and ediff-brief-help-message-function
	302	(or (symbolp ediff-brief-help-message-function)
303	(consp ediff-brief-help-message-function)))
304	(funcall ediff-brief-help-message-function))
305	((stringp ediff-brief-help-message-function)
306	ediff-brief-help-message-function)
307	((ediff-multiframe-setup-p) ediff-brief-message-string)
308	(t ; long brief msg, not multiframe --- put in the middle
309	ediff-brief-message-string)
310	))
311	(setq ediff-help-message (if ediff-use-long-help-message
312	ediff-long-help-message
313	ediff-brief-help-message))
314	(run-hooks 'ediff-display-help-hook))
315
55d7ff38	316	;;;###autoload
3af0304a MK	317	(defun ediff-customize ()
	318	(interactive)
	319	(customize-group "ediff"))
	320
f49e1445 MK	321
f49e1445 MK	322	;;; ediff-help.el ends here