Function: mpc-tagbrowser-tag-name

mpc-tagbrowser-tag-name is a byte-compiled function defined in mpc.el.gz.

Signature

(mpc-tagbrowser-tag-name TAG)

Source Code

;; Defined in /usr/src/emacs/lisp/mpc.el.gz
(defun mpc-tagbrowser-tag-name (tag)
  (cond
   ((string-match "|" (symbol-name tag))
    (let ((tag1 (intern (substring (symbol-name tag)
                                   0 (match-beginning 0))))
          (tag2 (intern (substring (symbol-name tag)
                                   (match-end 0)))))
      (concat (mpc-tagbrowser-tag-name tag1)
              " | "
              (mpc-tagbrowser-tag-name tag2))))
   ((string-match "y\\'" (symbol-name tag))
    (concat (substring (symbol-name tag) 0 -1) "ies"))
   (t (concat (symbol-name tag) "s"))))