setting NEWVAR and marks OLDVAR as obsolete.
If OLDVAR was bound and NEWVAR was not, Set NEWVAR to OLDVAR.
-Note: Use this before any other references (defvar/defcustom) to NEWVAR"
+Note: Use this before any other references (defvar/defcustom) to NEWVAR."
(let ((needs-setting (and (boundp oldvar) (not (boundp newvar))))
(value (and (boundp oldvar) (symbol-value oldvar))))
(defvaralias oldvar newvar)
(defun add-menu (menu-path menu-name menu-items &optional before)
"See the function `add-submenu'."
- (or menu-name (error (gettext "must specify a menu name")))
- (or menu-items (error (gettext "must specify some menu items")))
+ (or menu-name (error "must specify a menu name"))
+ (or menu-items (error "must specify some menu items"))
(add-submenu menu-path (cons menu-name menu-items) before))
;; Can't make this obsolete. easymenu depends on it.
(make-compatible 'add-menu 'add-submenu)
"Return a vector of characters in STRING."
(mapvector #'identity string))
-(defun store-substring (string idx obj)
- "Embed OBJ (string or character) at index IDX of STRING."
- (let* ((str (cond ((stringp obj) obj)
- ((characterp obj) (char-to-string obj))
+(defun store-substring (string idx object)
+ "Embed OBJECT (string or character) at index IDX of STRING."
+ (let* ((str (cond ((stringp object) object)
+ ((characterp object) (char-to-string object))
(t (error
"Invalid argument (should be string or character): %s"
- obj))))
+ object))))
(string-len (length string))
(len (length str))
(i 0))