+2007-09-26 Juanma Barranquero <lekktu@gmail.com>
+
+ * calc/calc-ext.el (calc-init-extensions, calc-reset):
+ * calc/calc-help.el (calc-full-help):
+ * calc/calc-misc.el (another-calc):
+ * calc/calc-store.el (calc-var-name-map):
+ * calc/calc-stuff.el (calc-flush-caches):
+ * calc/calc-units.el (math-build-units-table):
+ * calc/calc.el (calc-digit-map, calc-dispatch-map, calc-mode)
+ (calc-quit):
+ * calendar/icalendar.el (icalendar--format-ical-event)
+ (icalendar--convert-ical-to-diary):
+ * emacs-lisp/authors.el (authors):
+ * emacs-lisp/cust-print.el (custom-print-install)
+ (custom-print-uninstall):
+ * emacs-lisp/disass.el (disassemble-1):
+ * emacs-lisp/easy-mmode.el (easy-mmode-define-syntax):
+ * emacs-lisp/edebug.el (byte-compile-resolve-functions):
+ * emacs-lisp/elint.el (elint-current-buffer, elint-check-defun-form)
+ (elint-check-let-form, elint-check-condition-case-form)
+ (elint-initialize):
+ * emacs-lisp/elp.el (elp-results):
+ * emacs-lisp/generic.el (generic-mode-internal):
+ * emacs-lisp/re-builder.el (reb-delete-overlays):
+ * emacs-lisp/regi.el (regi-interpret):
+ * emacs-lisp/sregex.el (sregex--char-aux):
+ * emulation/cua-rect.el (cua--deactivate-rectangle)
+ (cua--highlight-rectangle, cua--rectangle-post-command):
+ * emulation/viper-keym.el (viper-toggle-key, viper-ESC-key):
+ * emulation/viper-macs.el (viper-describe-kbd-macros)
+ (viper-describe-one-macro):
+ * emulation/viper-util.el (viper-setup-master-buffer):
+ * emulation/viper.el (set-viper-state-in-major-mode):
+ * international/mule-diag.el (describe-current-coding-system):
+ * language/ethio-util.el (ethio-fidel-to-sera-buffer):
+ * mail/emacsbug.el (report-emacs-bug):
+ * net/ange-ftp.el (ange-ftp-call-chmod, ange-ftp-parse-bs2000-listing):
+ * obsolete/hilit19.el (hilit-unhighlight-region)
+ (hilit-set-mode-patterns):
+ * play/solitaire.el (solitaire-check, solitaire-solve):
+ * play/zone.el (zone-pgm-rotate):
+ * progmodes/ada-mode.el (ada-save-exceptions-to-file):
+ * progmodes/ada-prj.el (ada-prj-display-page):
+ * progmodes/delphi.el (delphi-search-directory, delphi-find-unit-file)
+ (delphi-debug-mode-map, delphi-mode-map, delphi-mode):
+ * progmodes/ebrowse.el (ebrowse-tree-mode, ebrowse-view-exit-fn)
+ (ebrowse-member-mode, ebrowse-save-tree-as, ebrowse-save-class):
+ * progmodes/sh-script.el (sh-make-vars-local)
+ (sh-reset-indent-vars-to-global-values):
+ * progmodes/sql.el (top):
+ * progmodes/vhdl-mode.el (vhdl-set-style, vhdl-regress-line):
+ * progmodes/xscheme.el (top):
+ * textmodes/artist.el (artist-mt-get-symbol-from-keyword-sub)
+ (artist-go-retrieve-from-symbol-sub, artist-go-get-symbol-shift-sub)
+ (artist-fc-retrieve-from-symbol-sub, artist-vaporize-line)
+ (artist-vaporize-lines, artist-ellipse-compute-fill-info)
+ (artist-submit-bug-report):
+ * textmodes/flyspell.el (flyspell-delay-commands)
+ (flyspell-deplacement-commands):
+ * textmodes/table.el (table--generate-source-epilogue, table-insert)
+ (table--generate-source-cells-in-a-row, table--make-cell-map)
+ (*table--cell-describe-bindings): Use `mapc' rather than `mapcar'.
+
2007-09-25 Juanma Barranquero <lekktu@gmail.com>
* allout.el (produce-allout-mode-map, allout-process-exposed):
2007-09-24 Adam Hupp <adam@hupp.org>
- * progmodes/python.el (run-python): Import Emacs module without
+ * progmodes/python.el (run-python): Import emacs module without
waiting; prevents lockup on error.
2007-09-23 Richard Stallman <rms@gnu.org>
;;
;; Point Motion Only Group
-(mapcar
+(mapc
(lambda (command)
(let ((func-symbol (intern (format "*table--cell-%s" command)))
(doc-string (format "Table remapped function for `%s'." command)))
backward-paragraph))
;; Extraction Group
-(mapcar
+(mapc
(lambda (command)
(let ((func-symbol (intern (format "*table--cell-%s" command)))
(doc-string (format "Table remapped function for `%s'." command)))
backward-kill-sexp))
;; Pasting Group
-(mapcar
+(mapc
(lambda (command)
(let ((func-symbol (intern (format "*table--cell-%s" command)))
(doc-string (format "Table remapped function for `%s'." command)))
insert))
;; Formatting Group
-(mapcar
+(mapc
(lambda (command)
(let ((func-symbol (intern (format "*table--cell-%s" command)))
(doc-string (format "Table remapped function for `%s'." command)))
(if (numberp cell-width) (setq cell-width (cons cell-width nil)))
(if (numberp cell-height) (setq cell-height (cons cell-height nil)))
;; test validity of the arguments.
- (mapcar (lambda (arg)
- (let* ((value (symbol-value arg))
- (error-handler
- (function (lambda ()
- (error "%s must be a positive integer%s" arg
- (if (listp value) " or a list of positive integers" ""))))))
- (if (null value) (funcall error-handler))
- (mapcar (function (lambda (arg1)
- (if (or (not (integerp arg1))
- (< arg1 1))
- (funcall error-handler))))
- (if (listp value) value
- (cons value nil)))))
- '(columns rows cell-width cell-height))
+ (mapc (lambda (arg)
+ (let* ((value (symbol-value arg))
+ (error-handler
+ (function (lambda ()
+ (error "%s must be a positive integer%s" arg
+ (if (listp value) " or a list of positive integers" ""))))))
+ (if (null value) (funcall error-handler))
+ (mapcar (function (lambda (arg1)
+ (if (or (not (integerp arg1))
+ (< arg1 1))
+ (funcall error-handler))))
+ (if (listp value) value
+ (cons value nil)))))
+ '(columns rows cell-width cell-height))
(let ((orig-coord (table--get-coordinate))
(coord (table--get-coordinate))
r i cw ch cell-str border-str)
(set-marker-insertion-type (table-get-source-info 'colspec-marker) t) ;; insert before
(save-excursion
(goto-char (table-get-source-info 'colspec-marker))
- (mapcar
+ (mapc
(lambda (col)
(insert (format " <colspec colnum=\"%d\" colname=\"c%d\"/>\n" col col)))
(sort (table-get-source-info 'colnum-list) '<)))
(if (> colspan 1)
(let ((scol (table-get-source-info 'current-column))
(ecol (+ (table-get-source-info 'current-column) colspan -1)))
- (mapcar (lambda (col)
- (unless (memq col (table-get-source-info 'colnum-list))
- (table-put-source-info 'colnum-list
- (cons col (table-get-source-info 'colnum-list)))))
- (list scol ecol))
+ (mapc (lambda (col)
+ (unless (memq col (table-get-source-info 'colnum-list))
+ (table-put-source-info 'colnum-list
+ (cons col (table-get-source-info 'colnum-list)))))
+ (list scol ecol))
(insert (format " namest=\"c%d\" nameend=\"c%d\"" scol ecol))))
(if (> rowspan 1) (insert (format " morerows=\"%d\"" (1- rowspan))))
(if (and alignment
(remap-alist table-command-remap-alist))
;; table-command-prefix mode specific bindings
(if (vectorp table-command-prefix)
- (mapcar (lambda (binding)
- (let ((seq (copy-sequence (car binding))))
- (and (vectorp seq)
- (listp (aref seq 0))
- (eq (car (aref seq 0)) 'control)
- (progn
- (aset seq 0 (cadr (aref seq 0)))
- (define-key map (vconcat table-command-prefix seq) (cdr binding))))))
- table-cell-bindings))
+ (mapc (lambda (binding)
+ (let ((seq (copy-sequence (car binding))))
+ (and (vectorp seq)
+ (listp (aref seq 0))
+ (eq (car (aref seq 0)) 'control)
+ (progn
+ (aset seq 0 (cadr (aref seq 0)))
+ (define-key map (vconcat table-command-prefix seq) (cdr binding))))))
+ table-cell-bindings))
;; shorthand control bindings
- (mapcar (lambda (binding)
- (define-key map (car binding) (cdr binding)))
- table-cell-bindings)
+ (mapc (lambda (binding)
+ (define-key map (car binding) (cdr binding)))
+ table-cell-bindings)
;; remap normal commands to table specific version
(while remap-alist
(define-key map (vector 'remap (caar remap-alist)) (cdar remap-alist))
--- -------
")
- (mapcar (lambda (binding)
- (princ (format "%-16s%s\n"
- (key-description (car binding))
- (cdr binding))))
- table-cell-bindings)
+ (mapc (lambda (binding)
+ (princ (format "%-16s%s\n"
+ (key-description (car binding))
+ (cdr binding))))
+ table-cell-bindings)
(print-help-return-message))))
(defun *table--cell-dabbrev-expand (arg)
HCoop / bpt / emacs.git / commitdiff