diff options
| author | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-03-30 17:51:50 -0400 |
|---|---|---|
| committer | Stefan Monnier <monnier@iro.umontreal.ca> | 2015-03-30 17:51:50 -0400 |
| commit | ef37e79aae7a64f3c30f7ff4350c8f3a3c6c7b20 (patch) | |
| tree | 7320acdd4f34fe20ac7ed82d6cc2c05b14586037 | |
| parent | 05a5a94000b82c81dc86cb7e2f3b4010bb2a4f0b (diff) | |
| download | emacs-ef37e79aae7a64f3c30f7ff4350c8f3a3c6c7b20.tar.gz | |
* eieio-base.el (make-instance) <eieio-named>: New instance.
| -rw-r--r-- | lisp/ChangeLog | 36 | ||||
| -rw-r--r-- | lisp/emacs-lisp/eieio-base.el | 9 |
2 files changed, 30 insertions, 15 deletions
diff --git a/lisp/ChangeLog b/lisp/ChangeLog index 649e8849732..e6ecf0fe09a 100644 --- a/lisp/ChangeLog +++ b/lisp/ChangeLog @@ -1,14 +1,20 @@ +2015-03-30 Stefan Monnier <monnier@iro.umontreal.ca> + + * emacs-lisp/eieio-base.el (make-instance) <eieio-named>: New instance + which stores the old-style object name argument into the + object-name field. + 2015-03-30 Alan Mackenzie <acm@muc.de> Correct calculation of CC Mode's font-lock region. - * progmodes/cc-mode.el (c-fl-decl-start): Renamed from + * progmodes/cc-mode.el (c-fl-decl-start): Rename from c-set-fl-decl-start. Change signature such that nil is returned when no declaration is found. - (c-change-expand-fl-region): Renamed from + (c-change-expand-fl-region): Rename from c-change-set-fl-decl-start. This now also handles expanding the font lock region to whole lines. - (c-context-expand-fl-region): Renamed from + (c-context-expand-fl-region): Rename from c-context-set-fl-decl-start. This now also handles expanding the font lock region to whole lines. (c-font-lock-fontify-region): When a change font lock region is @@ -66,15 +72,15 @@ 2015-03-27 Wolfgang Jenkner <wjenkner@inode.at> - * font-lock.el (font-lock--remove-face-from-text-property): New - function. Adapted from the previously commented out + * font-lock.el (font-lock--remove-face-from-text-property): + New function. Adapted from the previously commented out remove-single-text-property. Remove previously unused and commented out auxiliary function remove-text-property and obsolete comment. * comint.el (comint-output-filter): Use it to remove comint-highlight-prompt. - (comint-snapshot-last-prompt, comint-output-filter): Use - font-lock-prepend-text-property for comint-highlight-prompt. + (comint-snapshot-last-prompt, comint-output-filter): + Use font-lock-prepend-text-property for comint-highlight-prompt. (Bug#20084) 2015-03-26 Daniel Colascione <dancol@dancol.org> @@ -221,15 +227,15 @@ Automatically adjust process window sizes. - * window.el (window-adjust-process-window-size-function): New - customizable variable. + * window.el (window-adjust-process-window-size-function): + New customizable variable. (window-adjust-process-window-size) (window-adjust-process-window-size-smallest) (window-adjust-process-window-size-largest) (window--process-window-list, window--adjust-process-windows): New functions. - (window-configuration-change-hook): Add - `window--adjust-process-windows'. + (window-configuration-change-hook): + Add `window--adjust-process-windows'. * term.el (term-mode): Observe result of `window-adjust-process-window-size-function'. (term-check-size): Delete. @@ -261,13 +267,13 @@ 2015-03-21 Tassilo Horn <tsdh@gnu.org> - * emacs-lisp/lisp-mode.el (lisp-el-font-lock-keywords-1): Also - recognize (cl-)defmethod with (setf method) name. + * emacs-lisp/lisp-mode.el (lisp-el-font-lock-keywords-1): + Also recognize (cl-)defmethod with (setf method) name. 2015-03-20 Tassilo Horn <tsdh@gnu.org> - * emacs-lisp/lisp-mode.el (lisp-el-font-lock-keywords-1): Fix - false positive in function name font-locking. + * emacs-lisp/lisp-mode.el (lisp-el-font-lock-keywords-1): + Fix false positive in function name font-locking. (lisp-cl-font-lock-keywords-1): Ditto. 2015-03-20 Stefan Monnier <monnier@iro.umontreal.ca> diff --git a/lisp/emacs-lisp/eieio-base.el b/lisp/emacs-lisp/eieio-base.el index 5b3d9029c53..c2eab202881 100644 --- a/lisp/emacs-lisp/eieio-base.el +++ b/lisp/emacs-lisp/eieio-base.el @@ -498,6 +498,15 @@ All slots are unbound, except those initialized with PARAMS." (concat nm "-1"))))) nobj)) +(cl-defmethod make-instance ((class (subclass eieio-named)) &rest args) + (if (not (stringp (car args))) + (cl-call-next-method) + (funcall (if eieio-backward-compatibility #'ignore #'message) + "Obsolete: name passed without :object-name to %S constructor" + class) + (apply #'cl-call-next-method class :object-name args))) + + (provide 'eieio-base) ;;; eieio-base.el ends here |