Function: ediff-help-for-quick-help

ediff-help-for-quick-help is an interactive and byte-compiled function defined in ediff-help.el.gz.

Signature

(ediff-help-for-quick-help)

Documentation

Explain Ediff commands in more detail.

Key Bindings

Source Code

;; Defined in /usr/src/emacs/lisp/vc/ediff-help.el.gz
(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))
	cmd)

    (setq cmd (car (mapcar (lambda (elt)
			     (overlay-get elt 'ediff-help-info))
			   (overlays-at pos))))

    (if (not (stringp cmd))
	(user-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 "#c") (re-search-forward "^['`‘]#c['’]"))
	    ((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 (user-error (substitute-command-keys
                            "Undocumented command! Type \\`G' in Ediff Control \
Panel to drop a note to the Ediff maintainer"))))
      ) ; let case-fold-search
    ))