comparison lisp/help-fns.el @ 90200:f9a65d7ebd29

Revision: [e-mail]--gnu-2005/emacs--unicode--0--patch-68 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 459-473) - Update from CVS - Merge from gnus--rel--5.10 * gnus--rel--5.10 (patch 86-87) - Update from CVS

90199:bb71c6cf2009

;; 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.

;;; Commentary:

;; This file contains those help commands which are complicated, and
;; which may not be used in every session.  For example

      (let ((arg (prog1 (car args) (setq args (cdr args)))))
        (setq doc (replace-regexp-in-string
                   ;; This is heuristic, but covers all common cases
                   ;; except ARG1-ARG2
                   (concat "\\<"                   ; beginning of word
                           "\\(?:[a-z-]+-\\)?"     ; for xxx-ARG
                           "\\("
                           arg
                           "\\)"
                           "\\(?:es\\|s\\|th\\)?"  ; for ARGth, ARGs
                           "\\(?:-[a-z-]+\\)?"     ; for ARG-xxx
                           "\\>")                  ; end of word
                   (help-default-arg-highlight arg)

90200:f9a65d7ebd29

;; 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., 51 Franklin Street, Fifth Floor,
;; Boston, MA 02110-1301, USA.

;;; Commentary:

;; This file contains those help commands which are complicated, and
;; which may not be used in every session.  For example

      (let ((arg (prog1 (car args) (setq args (cdr args)))))
        (setq doc (replace-regexp-in-string
                   ;; This is heuristic, but covers all common cases
                   ;; except ARG1-ARG2
                   (concat "\\<"                   ; beginning of word
                           "\\(?:[a-z-]*-\\)?"     ; for xxx-ARG
                           "\\("
                           (regexp-quote arg)
                           "\\)"
                           "\\(?:es\\|s\\|th\\)?"  ; for ARGth, ARGs
                           "\\(?:-[a-z-]+\\)?"     ; for ARG-xxx
                           "\\>")                  ; end of word
                   (help-default-arg-highlight arg)