Mercurial > hg > xemacs-beta

comparison lisp/hyper-apropos.el @ 444:576fb035e263 r21-2-37

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-37
author cvs
date Mon, 13 Aug 2007 11:36:19 +0200
parents 8de8e3f6228a
children 7039e6323819
comparison
equal deleted inserted replaced
443:a8296e22da4e 444:576fb035e263
1083 (beginning-of-line) 1083 (beginning-of-line)
1084 (if (looking-at hyper-apropos-junk-regexp) 1084 (if (looking-at hyper-apropos-junk-regexp)
1085 nil 1085 nil
1086 (forward-char 3) 1086 (forward-char 3)
1087 (read (point-marker)))) 1087 (read (point-marker))))
1088 ((and 1088 ;; What's this? This ends up in the same symbol already described.
1089 (eq major-mode 'hyper-apropos-help-mode) 1089 ;; ((and
1090 (> (point) (point-min))) 1090 ;; (eq major-mode 'hyper-apropos-help-mode)
1091 (save-excursion 1091 ;; (> (point) (point-min)))
1092 (goto-char (point-min)) 1092 ;; (save-excursion
1093 (hyper-apropos-this-symbol))) 1093 ;; (goto-char (point-min))
1094 ;; (hyper-apropos-this-symbol)))
1094 (t 1095 (t
1095 (let* ((st (progn 1096 (let* ((st (progn
1096 (skip-syntax-backward "w_") 1097 (skip-syntax-backward "w_")
1097 ;; !@(*$^%%# stupid backquote implementation!!! 1098 ;; !@(*$^%%# stupid backquote implementation!!!
1098 (skip-chars-forward "`") 1099 (skip-chars-forward "`")