unofficial mirror of emacs-devel@gnu.org 
 help / color / mirror / code / Atom feed
* emacs lisp library name conflicts
@ 2016-05-07 15:03 Mike F
  2016-05-07 16:39 ` Nicolas Petton
  0 siblings, 1 reply; 3+ messages in thread
From: Mike F @ 2016-05-07 15:03 UTC (permalink / raw)
  To: rubikitch, emacs-devel, nicolas

[-- Attachment #1: Type: text/plain, Size: 775 bytes --]

Hi Guys,

There is a conflict in command names between libraries
seq.el and sequential-command.el.
They both define a command seq-count.
Pasted in the two defuns below.

Any recommendations?

Thanks
Mike Fitzgerald


## MTF from sequential-command.el
(defun seq-count ()
  "Returns number of times `this-command' was executed.
It also updates `seq-start-position'."
  (if (eq last-command this-command)
      (incf seq-store-count)
    (setq seq-start-position  (cons (point) (window-start))
          seq-store-count     0)))

## MTF from seq.el
(defun seq-count (pred seq)
  "Return the number of elements for which (PRED element) is non-nil in
SEQ."
  (let ((count 0))
    (seq-doseq (elt seq)
      (when (funcall pred elt)
        (setq count (+ 1 count))))
    count))

[-- Attachment #2: Type: text/html, Size: 1115 bytes --]

^ permalink raw reply	[flat|nested] 3+ messages in thread

end of thread, other threads:[~2016-05-11  1:54 UTC | newest]

Thread overview: 3+ messages (download: mbox.gz follow: Atom feed
-- links below jump to the message on this page --
2016-05-07 15:03 emacs lisp library name conflicts Mike F
2016-05-07 16:39 ` Nicolas Petton
2016-05-11  1:54   ` John Wiegley

Code repositories for project(s) associated with this public inbox

	https://git.savannah.gnu.org/cgit/emacs.git

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for read-only IMAP folder(s) and NNTP newsgroup(s).